libsim  Versione 7.1.6

◆ prev()

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

increment list iterator

Definizione alla linea 272 del file list_abstractforchar.F03.

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

Generated with Doxygen.