|
◆ 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.
320 do while (this%element())
322 itemtodelete=>this%currlink
324 deallocate(itemtodelete)
326 this%firstLink => null()
327 this%lastLink => null()
328 this%currLink => null()
335 subroutine deleteitem()
337 class(link), pointer :: prevLink,nextLink
340 prevlink=>this%currlink%prevlink()
|