libsim Versione 7.2.6
|
◆ append()
add class(*) to end of list Definizione alla linea 151 del file list_abstract.F03. 152end if
153end subroutine prepend
154
155!> add class(*) to position in list
156logical function insert(this, value, index)
157class(list),intent(inout) :: this
158class(*) :: value
159integer :: index ! removed optional because of inconsistent behavior
160class(link), pointer :: newLink,nextlink
161
162newlink => 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
|