libsim  Versione 7.1.9

◆ 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 317 del file list_abstract.F03.

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

Generated with Doxygen.