178 call newlink%setPrevLink(this%currlink)
179 call newlink%setNextLink(this%currlink%nextlink())
182 nextlink=>this%currlink%nextlink()
183 call this%currLink%setNextLink(newlink)
185 if (
associated(nextlink))
then
186 call nextlink%setprevLink(newlink)
188 this%lastLink => newlink
190 this%index=this%index+1
193 this%currLink => newlink