libsim Versione 7.2.0
|
◆ seek()
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
331end if
332
333contains
334
335subroutine deleteitem()
336
337class(link), pointer :: prevLink,nextLink
338
339! detach myitem"
340prevlink=>this%currlink%prevlink()
|