|
◆ 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 210 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
|