libsim Versione 7.2.1
|
◆ toarray_integerl()
/brief Return an array of integer from list
Definizione alla linea 114 del file list_integer.F03. 115
133 private
135
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
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
Integer specific implementation of doubly-linked list. Definition list_integer.F03:66 |