libsim  Versione 7.1.9

◆ 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
202 
204 subroutine rewind(this)
205 class(list),intent(inout) :: this
206 this%currLink => this%firstLink
207 if (.not. associated(this%firstLink)) then
208  this%index=imiss
209 else
210  this%index=1
211 end if
212 end subroutine rewind
213 
215 subroutine forward(this)
216 class(list),intent(inout) :: this
217 this%currLink => this%lastLink
218 if (.not. associated(this%lastLink)) then
219  ! index is unknow here
220  this%index=imiss
221 end if
222 
223 end subroutine forward
224 
226 subroutine next(this)
227 class(list),intent(inout) :: this
228 
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
233  else
234  this%index=imiss
235  end if

Generated with Doxygen.