libsim  Versione 7.1.6

◆ prev()

subroutine list_abstract::prev ( class(list this)
private

increment list iterator

Definizione alla linea 282 del file list_abstract.F03.

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

Generated with Doxygen.