libsim  Versione 7.1.9

◆ append()

subroutine list_abstract::append ( class(list), intent(inout)  this,
class(*), intent(in)  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),intent(inout) :: this
158 class(*) :: value
159 integer :: index ! removed optional because of inconsistent behavior
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.