libsim Versione 7.2.0
|
◆ currentmix()
get class(*) pointed by iterator Definizione alla linea 115 del file list_mix.F03. 116
135private
140#ifdef DOXYGEN
141 integer::none ! doxigen workaround: if missed do not show procedure
142#endif
143 contains
144 procedure :: current => currentmix
145 procedure :: display => displaymix
147
148contains
149
151subroutine displaymix(this)
152class(mixList),intent(inout) :: this
153class(*), pointer :: curr
154logical :: found
155
156call this%rewind()
157do while(this%element())
158 curr => this%Currentpoli()
159 found=.false.
160 select type(curr)
161 type is (integer)
162 print *,curr
163 found=.true.
164 type is (real)
165 print *,curr
166 found=.true.
167 type is (doubleprecision)
168 print *,curr
169 found=.true.
170 type is (integer(kind=int_b))
171 print *,curr
172 found=.true.
173 type is (character(*))
174 print *,curr
175 found=.true.
176 end select
177
178 if (.not. found) then
179 print *, "not supported type for display"
180 end if
181
182 call this%next()
183end do
184call this%rewind()
185end subroutine displaymix
186
187
189function currentmix(this)
190class(mixlist),intent(inout) :: this
191class(*), pointer :: Currentmix
192currentmix => this%currentpoli()
193end function currentmix
194
195
197
Definition of constants to be used for declaring variables of a desired type. Definition: kinds.F90:245 |