libsim
Versione 7.1.8
list_abstract
append
countelements
currentindex
currentpoli
delete
display
element
forward
insert
next
prepend
prev
rewind
seek
◆
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
Index method.
Definition:
array_utilities_pre.F90:78
Generated with
Doxygen
.