set list iterator to index return .false.
335 subroutine deleteitem()
337 class(link),
pointer :: prevLink,nextLink
340 prevlink=>this%currlink%prevlink()
341 nextlink=>this%currlink%nextlink()
343 if (
associated(prevlink))
then
344 call prevlink%setNextLink(nextlink)
346 this%firstLink => nextlink
349 if (
associated(nextlink))
then
350 call nextlink%setPrevLink(prevlink)
352 this%lastLink => prevlink