libsim  Versione7.2.6

◆ append()

subroutine list_abstractforchar::append ( class(list this,
character(len=*)  value 
)
private

add class(*) to end of list

Definizione alla linea 154 del file list_abstractforchar.F03.

154 if (present(index)) then
155  insert = this%seek(index)
156  if (.not. insert) return
157 else
158  insert=.true.
159 end if
160 
161 if (.not. associated(this%currLink)) then
162  !insert the first one
163  this%firstLink => newlink
164  this%lastLink => newlink
165  this%index=1
166 else
167  !set prev and next in new link
168  call newlink%setPrevLink(this%currlink)
169  call newlink%setNextLink(this%currlink%nextlink())
170 
171  !break the chain and insert
172  nextlink=>this%currlink%nextlink()
Index method.

Generated with Doxygen.