libsim Versione 7.2.1

◆ currentinteger()

integer function currentinteger ( class(integerlist) this)
private

get integer pointed by iterator

Definizione alla linea 102 del file list_integer.F03.

103
119module list_integer
120 use list_abstract
121 private
122 public :: integerlist, toarray_integerl
123
127 type, extends(list) :: integerlist
128#ifdef DOXYGEN
129 integer::none ! doxigen workaround: if missed do not show procedure
130#endif
131 contains
132! procedure :: addInteger !< add integer in list
133 procedure :: current => currentinteger
134 procedure :: display => displayinteger
135 procedure :: toarray => toarray_integerl
136! generic :: add => addInteger
137 end type integerlist
138
139contains
140
142subroutine displayinteger(this)
143class(integerList),intent(inout) :: this
144
145call this%rewind()
146do while(this%element())
147 print *,"index:",this%currentindex()," value:", this%current()
148 call this%next()
149end do
150end subroutine displayinteger
151
152!!$ subroutine addInteger(this, value)
153!!$ class(integerList) :: thisb
154!!$ integer value
155!!$ class(*), allocatable :: v
156!!$
157!!$ allocate(v,source=value)
158!!$ call this%addvalue(v)
159!!$
160!!$ end subroutine addInteger
161
163integer function currentinteger(this)
164class(integerList) :: this
165class(*), pointer :: v
166
167v => this%currentpoli()
168select type(v)
169type is (integer)
170 currentinteger = v
171end select
172end function currentinteger
173
175function toarray_integerl(this)
176integer,allocatable :: toarray_integerl(:)
177class(integerlist) :: this
178
179integer :: i
180
181allocate (toarray_integerl(this%countelements()))
182
183call this%rewind()
184i=0
185do while(this%element())
186 i=i+1
187 toarray_integerl(i) =this%current()
188 call this%next()
189end do
190end function toarray_integerl
191
192
193end module list_integer
abstract class to use lists in fortran 2003.
class to use lists in fortran 2003.
Abstract implementation of doubly-linked list.
Integer specific implementation of doubly-linked list.

Generated with Doxygen.