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