|
◆ display_varvect()
subroutine display_varvect |
( |
type(vol7d_varvect), intent(in) |
this | ) |
|
display on the screen a brief content of vol7d_var object
- Parametri
-
Definizione alla linea 287 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) 296 if ( associated(this%r)) then 297 print *, "----------------- varvect --------------------------" 298 print*, "real elements=", size(this%r) 302 if ( associated(this%i)) then 303 print *, "----------------- varvect --------------------------" 304 print*, "integer elements=", size(this%i) 308 if ( associated(this%b)) then 309 print *, "----------------- varvect --------------------------" 310 print*, "byte elements=", size(this%b) 314 if ( associated(this%c)) then 315 print *, "----------------- varvect --------------------------" 316 print*, "character elements=", size(this%c)
|