libsim Versione 7.2.0

◆ delete()

logical function delete ( class(list), intent(inout)  this,
integer, optional  index 
)
private

delete values from list return .true.

if succes

Definizione alla linea 345 del file list_abstract.F03.

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

Generated with Doxygen.