libsim Versione 7.2.0
|
◆ delete()
delete values from list return .true. if succes Definizione alla linea 345 del file list_abstract.F03. 346 this%firstLink => nextlink
347end if
348
349if (associated(nextlink)) then
350 call nextlink%setPrevLink(prevlink)
351else
352 this%lastLink => prevlink
353end if
354
355deallocate(this%currlink)
356
357! set current to prev
358this%currLink => prevlink
359
360if (associated(this%firstLink))then
361 this%index=max(this%index-1,1)
362else
363 this%index=imiss ! index to current
364endif
365
366end subroutine deleteitem
367end function delete
368
|