libsim  Versione 7.1.8

◆ rewind()

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

reset list iterator to start

Definizione alla linea 245 del file list_abstract.F03.

246  if (this%element())then
247  if(c_e(this%index))this%index=this%index-1
248  else
249  this%index=imiss
250  end if
251 
252 end if

Generated with Doxygen.