libsim  Versione 7.1.9

◆ seek()

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

set list iterator to index return .false.

if failed

Definizione alla linea 305 del file list_abstractforchar.F03.

306  delete=.true.
307  call this%rewind()
308  do while (this%element())
309  !save pointer to delete
310  itemtodelete=>this%currlink
311  call this%next()
312  deallocate(itemtodelete)
313  end do
314  this%firstLink => null() ! first link in list
315  this%lastLink => null() ! last link in list
316  this%currLink => null() ! list iterator
317  this%index=imiss ! index to current
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()

Generated with Doxygen.