libsim  Versione 7.1.6

◆ seek()

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

set list iterator to index return .false.

if failed

Definizione alla linea 315 del file list_abstract.F03.

316  delete=.true.
317  call this%rewind()
318  do while (this%element())
319  !save pointer to delete
320  itemtodelete=>this%currlink
321  call this%next()
322  deallocate(itemtodelete)
323  end do
324  this%firstLink => null() ! first link in list
325  this%lastLink => null() ! last link in list
326  this%currLink => null() ! list iterator
327  this%index=imiss ! index to current
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()

Generated with Doxygen.