libsim  Versione 7.1.6

◆ delete()

logical function list_abstract::delete ( class(list this,
integer, optional  index 
)
private

delete values from list return .true.

if succes

Definizione alla linea 343 del file list_abstract.F03.

344  this%firstLink => nextlink
345 end if
346 
347 if (associated(nextlink)) then
348  call nextlink%setPrevLink(prevlink)
349 else
350  this%lastLink => prevlink
351 end if
352 
353 deallocate(this%currlink)
354 
355 ! set current to prev
356 this%currLink => prevlink
357 
358 if (associated(this%firstLink))then
359  this%index=max(this%index-1,1)
360 else
361  this%index=imiss ! index to current
362 endif
363 
364 end subroutine deleteitem
365 end function delete
366 
367 end module list_abstract
abstract class to use lists in fortran 2003.

Generated with Doxygen.