libsim Versione 7.2.1

◆ display_varvect()

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

Generated with Doxygen.