◆ dat_display()

subroutine dat_display	(	type(vol7d_var), intent(in)	this,
		integer	idat,
		real	rdat,
		double precision	ddat,
		integer(kind=int_b)	bdat,
		character(len=*)	cdat )

stampa a video una sintesi del contenuto

Parametri

[in]	this	oggetto da visualizzare
	rdat	real
	ddat	double precision
	idat	integer
	bdat	byte
	cdat	character

Definizione alla linea 882 del file vol7d_class.F90.

 
! Dimensioni principali
IF (PRESENT(nana)) THEN
  IF (nana >= 0) THEN
    IF (ASSOCIATED(this%ana)) DEALLOCATE(this%ana)
    ALLOCATE(this%ana(nana))
    IF (linit) THEN
      DO i = 1, nana
        CALL init(this%ana(i))
      ENDDO
    ENDIF
  ENDIF
ENDIF
IF (PRESENT(ntime)) THEN