libsim Versione 7.2.1

◆ prepend()

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

add class(*) to beginning of list

Definizione alla linea 165 del file list_abstractforchar.F03.

166else
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
181end if
182
183this%currLink => newlink

Generated with Doxygen.