|
◆ insert()
logical function list_abstract::insert |
( |
class(list) |
this, |
|
|
class(*) |
value, |
|
|
integer, optional |
index |
|
) |
| |
|
private |
add class(*) to position in list
Definizione alla linea 197 del file list_abstract.F03.
198 integer function currentindex(this)
200 currentindex=this%index
201 end function currentindex
204 subroutine rewind(this)
206 this%currLink => this%firstLink
207 if (.not. associated(this%firstLink)) then
212 end subroutine rewind
215 subroutine forward(this)
217 this%currLink => this%lastLink
218 if (.not. associated(this%lastLink)) then
223 end subroutine forward
226 subroutine next(this)
229 if (this%element()) then
230 this%currLink => this%currLink%nextLink()
231 if (this%element()) then
232 if(c_e(this%index))this%index=this%index+1
|