168 call newlink%setPrevLink(this%currlink)
169 call newlink%setNextLink(this%currlink%nextlink())
172 nextlink=>this%currlink%nextlink()
173 call this%currLink%setNextLink(newlink)
174 call nextlink%setprevLink(newlink)
176 if (.not. this%element())
then
177 this%firstLink => newlink
178 this%lastLink => newlink
180 this%index=this%index+1
183 this%currLink => newlink