set list iterator to index return .false.
323 subroutine deleteitem()
325 class(link),
pointer :: prevLink,nextLink
328 prevlink=>this%currlink%prevlink()
329 nextlink=>this%currlink%nextlink()
331 if (
associated(prevlink))
then 332 call prevlink%setNextLink(nextlink)
334 this%firstLink => nextlink
337 if (
associated(nextlink))
then 338 call nextlink%setPrevLink(prevlink)
340 this%lastLink => prevlink