libsim  Versione 7.1.6

◆ append()

subroutine list_abstract::append ( class(list this,
class(*)  value 
)
private

add class(*) to end of list

Definizione alla linea 151 del file list_abstract.F03.

152 end if
153 end subroutine prepend
154 
156 logical function insert(this, value, index)
157 class(list) :: this
158 class(*) :: value
159 integer,optional :: index
160 class(link), pointer :: newLink,nextlink
161 
162 newlink => link(value)
163 
164 if (present(index)) then
165  insert = this%seek(index)
166  if (.not. insert) return
167 else
168  insert=.true.
169 end if
170 
Index method.

Generated with Doxygen.