212 end subroutine rewind
215 subroutine forward(this)
217 this%currLink => this%lastLink
218 if (.not.
associated(this%lastLink))
then 223 end subroutine forward
226 subroutine next(this)
229 if (this%element())
then 230 this%currLink => this%currLink%nextLink()
231 if (this%element())
then 232 if(
c_e(this%index))this%index=this%index+1
241 subroutine prev(this)
244 if (this%element())
then 245 this%currLink => this%currLink%prevLink()
246 if (this%element())
then 247 if(
c_e(this%index))this%index=this%index-1