libsim Versione 7.2.1
|
◆ currentinteger()
get integer pointed by iterator Definizione alla linea 102 del file list_integer.F03. 103
121 private
123
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
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
Integer specific implementation of doubly-linked list. Definition: list_integer.F03:66 |