libsim Versione 7.2.0
|
◆ append()
add class(*) to end of list Definizione alla linea 141 del file list_abstractforchar.F03. 142end if
143end subroutine prepend
144
146logical function insert(this, value, index)
147class(list) :: this
148character(len=*) :: value
149integer,optional :: index
150class(link), pointer :: newLink,nextlink
151
152newlink => link(value)
153
155 insert = this%seek(index)
156 if (.not. insert) return
157else
158 insert=.true.
159end if
160
|