libsim Versione 7.2.1

◆ delete()

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

delete values from list return .true.

if succes

Definizione alla linea 333 del file list_abstractforchar.F03.

334 this%firstLink => nextlink
335end if
336
337if (associated(nextlink)) then
338 call nextlink%setPrevLink(prevlink)
339else
340 this%lastLink => prevlink
341end if
342
343deallocate(this%currlink)
344
345! set current to prev
346this%currLink => prevlink
347
348if (associated(this%firstLink))then
349 this%index=max(this%index-1,1)
350else
351 this%index=imiss ! index to current
352endif
353
354end subroutine deleteitem
355end function delete
356
357end module list_abstractforchar
like abstract class to use character lists in fortran 2003 (gnu gcc 4.8 do not work with character(le...

Generated with Doxygen.