libsim  Versione7.2.6

◆ 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 358 del file list_abstract.F03.

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
370 
abstract class to use lists in fortran 2003.

Generated with Doxygen.