libsim  Versione 7.1.7

◆ rewind()

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

reset list iterator to start

Definizione alla linea 235 del file list_abstractforchar.F03.

236  if (this%element())then
237  if(c_e(this%index))this%index=this%index-1
238  else
239  this%index=imiss
240  end if
241 
242 end if

Generated with Doxygen.