libsim  Versione7.2.6

◆ seek()

logical function list_abstract::seek ( class(list), intent(inout)  this,
integer  index 
)
private

set list iterator to index return .false.

if failed

Definizione alla linea 330 del file list_abstract.F03.

330  end if
331 end if
332 
333 contains
334 
335 subroutine deleteitem()
336 
337 class(link), pointer :: prevLink,nextLink
338 
339 ! detach myitem"
340 prevlink=>this%currlink%prevlink()
341 nextlink=>this%currlink%nextlink()
342 
343 if (associated(prevlink)) then
344  call prevlink%setNextLink(nextlink)
345 else
346  this%firstLink => nextlink
347 end if
348 
349 if (associated(nextlink)) then
350  call nextlink%setPrevLink(prevlink)
351 else
352  this%lastLink => prevlink

Generated with Doxygen.