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

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