libsim Versione 7.2.4

◆ toarray_integerl()

integer function, dimension(:), allocatable, public toarray_integerl ( class(integerlist) this)

/brief Return an array of integer from list

Restituisce
array
Parametri
thislist of integer

Definizione alla linea 114 del file list_integer.F03.

115
131module list_integer
132 use list_abstract
133 private
134 public :: integerlist, toarray_integerl
135
139 type, extends(list) :: integerlist
140#ifdef DOXYGEN
141 integer::none ! doxigen workaround: if missed do not show procedure
142#endif
143 contains
144! procedure :: addInteger !< add integer in list
145 procedure :: current => currentinteger
146 procedure :: display => displayinteger
147 procedure :: toarray => toarray_integerl
148! generic :: add => addInteger
149 end type integerlist
150
151contains
152
154subroutine displayinteger(this)
155class(integerList),intent(inout) :: this
156
157call this%rewind()
158do while(this%element())
159 print *,"index:",this%currentindex()," value:", this%current()
160 call this%next()
161end do
162end subroutine displayinteger
163
164!!$ subroutine addInteger(this, value)
165!!$ class(integerList) :: thisb
166!!$ integer value
167!!$ class(*), allocatable :: v
168!!$
169!!$ allocate(v,source=value)
170!!$ call this%addvalue(v)
171!!$
172!!$ end subroutine addInteger
173
175integer function currentinteger(this)
176class(integerList) :: this
177class(*), pointer :: v
178
179v => this%currentpoli()
180select type(v)
181type is (integer)
182 currentinteger = v
183end select
184end function currentinteger
185
187function toarray_integerl(this)
188integer,allocatable :: toarray_integerl(:)
189class(integerlist) :: this
190
191integer :: i
192
193allocate (toarray_integerl(this%countelements()))
194
195call this%rewind()
196i=0
197do while(this%element())
198 i=i+1
199 toarray_integerl(i) =this%current()
200 call this%next()
201end do
202end function toarray_integerl
203
204
205end 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.