|
◆ display_varvect()
subroutine vol7d_varvect_class::display_varvect |
( |
type(vol7d_varvect), intent(in) |
this | ) |
|
display on the screen a brief content of vol7d_var object
- Parametri
-
Definizione alla linea 286 del file vol7d_varvect_class.f90.
288 TYPE(vol7d_varvect), INTENT(in) :: this
290 if ( associated(this%d)) then
291 print *, "----------------- varvect --------------------------"
292 print*, "double precision elements=", size(this%d)
293 call display(this%d(:))
296 if ( associated(this%r)) then
297 print *, "----------------- varvect --------------------------"
298 print*, "real elements=", size(this%r)
299 call display(this%r(:))
302 if ( associated(this%i)) then
303 print *, "----------------- varvect --------------------------"
304 print*, "integer elements=", size(this%i)
305 call display(this%i(:))
308 if ( associated(this%b)) then
309 print *, "----------------- varvect --------------------------"
310 print*, "byte elements=", size(this%b)
311 call display(this%b(:))
314 if ( associated(this%c)) then
315 print *, "----------------- varvect --------------------------"
316 print*, "character elements=", size(this%c)
317 call display(this%c(:))
|