set list iterator to index return .false.
333 subroutine deleteitem()
335 class(link),
pointer :: prevLink,nextLink
338 prevlink=>this%currlink%prevlink()
339 nextlink=>this%currlink%nextlink()
341 if (
associated(prevlink))
then 342 call prevlink%setNextLink(nextlink)
344 this%firstLink => nextlink
347 if (
associated(nextlink))
then 348 call nextlink%setPrevLink(prevlink)
350 this%lastLink => prevlink