libsim  Versione 7.1.7

◆ prev()

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

increment list iterator

Definizione alla linea 282 del file list_abstract.F03.

283 end if
284 
285 if (index < (this%index) .or. .not. c_e(this%index)) then
286  call this%rewind()
287 end if
288 
289 do 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.