libsim  Versione 7.1.7

◆ 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.