◆ dat_vect_display()

subroutine dat_vect_display	(	type(vol7d_var), dimension(:), intent(in)	this,
		integer, dimension(:)	idat,
		real, dimension(:)	rdat,
		double precision, dimension(:)	ddat,
		integer(kind=int_b), dimension(:)	bdat,
		character(len=*), dimension(:)	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 900 del file vol7d_class.F90.

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