202 end subroutine rewind
205 subroutine forward(this)
207 this%currLink => this%lastLink
208 if (.not.
associated(this%lastLink))
then 213 end subroutine forward
216 subroutine next(this)
219 if (this%element())
then 220 this%currLink => this%currLink%nextLink()
221 if (this%element())
then 222 if(c_e(this%index))this%index=this%index+1
231 subroutine prev(this)
234 if (this%element())
then 235 this%currLink => this%currLink%prevLink()
236 if (this%element())
then 237 if(c_e(this%index))this%index=this%index-1