libsim  Versione7.2.3

◆ seek()

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

set list iterator to index return .false.

if failed

Definizione alla linea 318 del file list_abstractforchar.F03.

318  end if
319 end if
320 
321 contains
322 
323 subroutine deleteitem()
324 
325 class(link), pointer :: prevLink,nextLink
326 
327 ! detach myitem"
328 prevlink=>this%currlink%prevlink()
329 nextlink=>this%currlink%nextlink()
330 
331 if (associated(prevlink)) then
332  call prevlink%setNextLink(nextlink)
333 else
334  this%firstLink => nextlink
335 end if
336 
337 if (associated(nextlink)) then
338  call nextlink%setPrevLink(prevlink)
339 else
340  this%lastLink => prevlink

Generated with Doxygen.