libsim  Versione 7.1.7

◆ 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
[in]thisvol7d_varvect object to display

Definizione alla linea 286 del file vol7d_varvect_class.f90.

287 
288 TYPE(vol7d_varvect),INTENT(in) :: this
289 
290 if (associated(this%d))then
291 print *,"----------------- varvect --------------------------"
292  print*,"double precision elements=",size(this%d)
293  call display(this%d(:)) ! vettore di variabili a doppia precisione
294 end if
295 
296 if (associated(this%r))then
297 print *,"----------------- varvect --------------------------"
298  print*,"real elements=",size(this%r)
299  call display(this%r(:)) ! vettore di variabili reali
300 end if
301 
302 if (associated(this%i))then
303 print *,"----------------- varvect --------------------------"
304  print*,"integer elements=",size(this%i)
305  call display(this%i(:)) ! vettore di variabili intere
306 end if
307 
308 if (associated(this%b))then
309 print *,"----------------- varvect --------------------------"
310  print*,"byte elements=",size(this%b)
311  call display(this%b(:)) ! vettore di variabili byte
312 end if
313 
314 if (associated(this%c))then
315 print *,"----------------- varvect --------------------------"
316  print*,"character elements=",size(this%c)
317  call display(this%c(:)) ! vettore di variabili carattere
318 end if
319 
320 

Generated with Doxygen.