|
◆ insert()
logical function list_abstract::insert |
( |
class(list), intent(inout) |
this, |
|
|
class(*) |
value, |
|
|
integer |
index |
|
) |
| |
|
private |
add class(*) to position in list
Definizione alla linea 197 del file list_abstract.F03.
198 integer function currentindex(this)
199 class(list), intent(in) :: this
200 currentindex=this%index
201 end function currentindex
204 subroutine rewind(this)
205 class(list), intent(inout) :: this
206 this%currLink => this%firstLink
207 if (.not. associated(this%firstLink)) then
212 end subroutine rewind
215 subroutine forward(this)
216 class(list), intent(inout) :: this
217 this%currLink => this%lastLink
218 if (.not. associated(this%lastLink)) then
223 end subroutine forward
226 subroutine next(this)
227 class(list), intent(inout) :: 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
|