libsim Versione 7.2.4

◆ prev()

subroutine prev ( class(list) this)
private

increment list iterator

Definizione alla linea 272 del file list_abstractforchar.F03.

273if (index < (this%index) .or. .not. c_e(this%index)) then
274 call this%rewind()
275end if
276
277do while (this%element())
278 if (index == this%index) then
279 seek =.true.
280 return
281 end if
282 call this%next()
283end do
284
Index method.

Generated with Doxygen.