libsim Versione 7.2.4
|
◆ seek()
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()
|