|
◆ 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 209 del file list_abstract.F03.
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
241 subroutine prev(this)
242 class(list), intent(inout) :: this
244 if (this%element()) then
245 this%currLink => this%currLink%prevLink()
246 if (this%element()) then
247 if(c_e(this%index))this%index=this%index-1
|