libsim  Versione 7.1.7

◆ delete()

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

Generated with Doxygen.