libsim Versione 7.2.1

◆ countelements()

integer function countelements ( class(list), intent(inout) this)
private

count values in list

Definizione alla linea 134 del file list_abstract.F03.

135class(list),intent(inout) :: this
136class(*) :: value
137class(link), pointer :: newLink
138
139newlink => link(value)
140this%currLink => newlink
141
142if (.not. associated(this%firstLink)) then
143 this%firstLink => newlink
144 this%lastLink => newlink
145 this%index=1
146else

Generated with Doxygen.