libsim  Versione 7.1.8

◆ 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 187 del file list_abstractforchar.F03.

188 integer function currentindex(this)
189 class(list) :: this
190 currentindex=this%index
191 end function currentindex
192 
194 subroutine rewind(this)
195 class(list) :: this
196 this%currLink => this%firstLink
197 if (.not. associated(this%firstLink)) then
198  this%index=imiss
199 else
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

Generated with Doxygen.