libsim Versione 7.2.6

◆ prev()

subroutine prev ( class(list), intent(inout) this)
private

increment list iterator

Definizione alla linea 282 del file list_abstract.F03.

283end if
284
285if (index < (this%index) .or. .not. c_e(this%index)) then
286 call this%rewind()
287end if
288
289do while (this%element())
290 if (index == this%index) then
291 seek =.true.
292 return
293 end if
294 call this%next()
Index method.

Generated with Doxygen.