libsim Versione 7.1.11
|
◆ delete()
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
like abstract class to use character lists in fortran 2003 (gnu gcc 4.8 do not work with character(le... Definition: list_abstractforchar.F03:48 |