◆ 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 893 del file vol7d_class.F90.

     ENDIF
   ENDIF
 ENDIF
 IF (PRESENT(ntime)) THEN
   IF (ntime >= 0) THEN
     IF (ASSOCIATED(this%time)) DEALLOCATE(this%time)
     ALLOCATE(this%time(ntime))
     IF (linit) THEN
       DO i = 1, ntime
         CALL init(this%time(i))
       ENDDO
     ENDIF
   ENDIF
 ENDIF