libsim
Versione 7.1.8
list_abstract
append
countelements
currentindex
currentpoli
delete
display
element
forward
insert
next
prepend
prev
rewind
seek
◆
countelements()
integer function list_abstract::countelements
(
class(
list
), intent(inout)
this
)
private
count values in list
Definizione alla linea
134
del file
list_abstract.F03
.
135
class(list),intent(inout) :: this
136
class(*) :: value
137
class(link), pointer :: newLink
138
139
newlink => link(
value
)
140
this%currLink => newlink
141
142
if
(.not.
associated
(this%firstLink))
then
143
this%firstLink => newlink
144
this%lastLink => newlink
145
this%index=1
146
else
Generated with
Doxygen
.