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