libsim  Versione 7.2.4

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

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
236 end if
237 
238 end subroutine next
239 
241 subroutine prev(this)
242 class(list),intent(inout) :: this
243 
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

Generated with Doxygen.