libsim  Versione6.3.0

◆ seek()

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

set list iterator to index return .false.

if failed

Definizione alla linea 328 del file list_abstract.F03.

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

Generated with Doxygen.