libsim Versione 7.2.4
|
◆ countelements()
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
|