|
◆ insert()
logical function list_abstractforchar::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.
188 integer function currentindex(this)
190 currentindex=this%index
191 end function currentindex
194 subroutine rewind(this)
196 this%currLink => this%firstLink
197 if (.not. associated(this%firstLink)) then
202 end subroutine rewind
205 subroutine forward(this)
207 this%currLink => this%lastLink
208 if (.not. associated(this%lastLink)) then
213 end subroutine forward
216 subroutine next(this)
219 if (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
|