libsim  Versione 7.1.7

◆ prepend()

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

add class(*) to beginning of list

Definizione alla linea 165 del file list_abstractforchar.F03.

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()
173  call this%currLink%setNextLink(newlink)
174  call nextlink%setprevLink(newlink)
175  !verify if it's first or last
176  if (.not. this%element())then
177  this%firstLink => newlink
178  this%lastLink => newlink
179  end if
180  this%index=this%index+1
181 end if
182 
183 this%currLink => newlink

Generated with Doxygen.