libsim
Versione6.3.0
list_abstractforchar
append
countelements
currentindex
currentpoli
delete
display
element
forward
insert
next
prepend
prev
rewind
seek
◆
append()
subroutine list_abstractforchar::append
(
class(
list
)
this
,
character(len=*)
value
)
private
add class(*) to end of list
Definizione alla linea
154
del file
list_abstractforchar.F03
.
154
if
(
present
(
index
))
then
155
insert
= this%seek(
index
)
156
if
(.not.
insert
)
return
157
else
158
insert
=.true.
159
end if
160
161
if
(.not.
associated
(this%currLink))
then
162
!insert the first one
163
this%firstLink => newlink
164
this%lastLink => newlink
165
this%index=1
166
else
167
!set prev and next in new link
168
call
newlink%setPrevLink(this%currlink)
169
call
newlink%setNextLink(this%currlink%nextlink())
170
171
!break the chain and insert
172
nextlink=>this%currlink%nextlink()
datetime_class::insert
Method for inserting elements of the array at a desired position.
Definition:
datetime_class.F90:632
index
Index method.
Definition:
array_utilities_pre.F90:90
Generated with
Doxygen
.