libsim Versione 7.2.4

◆ insert()

logical function insert ( class(list) this,
character(len=*) value,
integer, optional index )
private

add class(*) to position in list

Definizione alla linea 187 del file list_abstractforchar.F03.

188integer function currentindex(this)
189class(list) :: this
190currentindex=this%index
191end function currentindex
192
194subroutine rewind(this)
195class(list) :: this
196this%currLink => this%firstLink
197if (.not. associated(this%firstLink)) then
198 this%index=imiss
199else
200 this%index=1
201end if
202end subroutine rewind
203
205subroutine forward(this)
206class(list) :: this
207this%currLink => this%lastLink
208if (.not. associated(this%lastLink)) then
209 ! index is unknow here
210 this%index=imiss
211end if
212
213end subroutine forward
214
216subroutine next(this)
217class(list) :: this
218
219if (this%element()) then
220 this%currLink => this%currLink%nextLink()
221 if (this%element())then
222 if(c_e(this%index))this%index=this%index+1
223 else
224 this%index=imiss
225 end if

Generated with Doxygen.