178 call newlink%setPrevLink(this%currlink)
179 call newlink%setNextLink(this%currlink%nextlink())
182 nextlink=>this%currlink%nextlink()
183 call this%currLink%setNextLink(newlink)
184 call nextlink%setprevLink(newlink)
186 if (.not. this%element())
then
187 this%firstLink => newlink
188 this%lastLink => newlink
190 this%index=this%index+1
193 this%currLink => newlink