libsim  Versione 7.1.8

◆ delete()

logical function list_abstractforchar::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
335 end if
336 
337 if (associated(nextlink)) then
338  call nextlink%setPrevLink(prevlink)
339 else
340  this%lastLink => prevlink
341 end if
342 
343 deallocate(this%currlink)
344 
345 ! set current to prev
346 this%currLink => prevlink
347 
348 if (associated(this%firstLink))then
349  this%index=max(this%index-1,1)
350 else
351  this%index=imiss ! index to current
352 endif
353 
354 end subroutine deleteitem
355 end function delete
356 
357 end 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.