libsim Versione 7.2.1

◆ countelements()

integer function countelements ( class(list) this)
private

count values in list

Definizione alla linea 124 del file list_abstractforchar.F03.

125class(list) :: this
126character(len=*) :: value
127class(link), pointer :: newLink
128
129newlink => link(value)
130this%currLink => newlink
131
132if (.not. associated(this%firstLink)) then
133 this%firstLink => newlink
134 this%lastLink => newlink
135 this%index=1
136else

Generated with Doxygen.