libsim
Versione 7.1.9
list_abstract
append
countelements
currentindex
currentpoli
delete
display
element
forward
insert
next
prepend
prev
rewind
seek
◆
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
.