libsim Versione 7.2.6

◆ seek()

logical function 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
319end if
320
321contains
322
323subroutine deleteitem()
324
325class(link), pointer :: prevLink,nextLink
326
327! detach myitem"
328prevlink=>this%currlink%prevlink()

Generated with Doxygen.