libsim  Versione 7.2.6

◆ insert()

logical function list_abstractforchar::insert ( class(list this,
character(len=*)  value,
integer, optional  index 
)
private

add class(*) to position in list

Definizione alla linea 199 del file list_abstractforchar.F03.

200  this%index=1
201 end if
202 end subroutine rewind
203 
205 subroutine forward(this)
206 class(list) :: this
207 this%currLink => this%lastLink
208 if (.not. associated(this%lastLink)) then
209  ! index is unknow here
210  this%index=imiss
211 end if
212 
213 end subroutine forward
214 
216 subroutine next(this)
217 class(list) :: this
218 
219 if (this%element()) then
220  this%currLink => this%currLink%nextLink()
221  if (this%element())then
222  if(c_e(this%index))this%index=this%index+1
223  else
224  this%index=imiss
225  end if
226 end if
227 
228 end subroutine next
229 
231 subroutine prev(this)
232 class(list) :: this
233 
234 if (this%element()) then
235  this%currLink => this%currLink%prevLink()
236  if (this%element())then
237  if(c_e(this%index))this%index=this%index-1

Generated with Doxygen.