libsim
Versione 7.1.7
list_abstractforchar
append
countelements
currentindex
currentpoli
delete
display
element
forward
insert
next
prepend
prev
rewind
seek
◆
countelements()
integer function list_abstractforchar::countelements
(
class(
list
)
this
)
private
count values in list
Definizione alla linea
124
del file
list_abstractforchar.F03
.
125
class(list) :: this
126
character(len=*) :: value
127
class(link), pointer :: newLink
128
129
newlink => link(
value
)
130
this%currLink => newlink
131
132
if
(.not.
associated
(this%firstLink))
then
133
this%firstLink => newlink
134
this%lastLink => newlink
135
this%index=1
136
else
Generated with
Doxygen
.