◆ vol7d_display()

subroutine, private vol7d_display ( type(vol7d), intent(in) this )
private
stampa a video una sintesi del contenuto
Parametri
[in] this oggetto da visualizzare
Definizione alla linea 684 del file vol7d_class.F90.
cdat=cmiss
ENDIF
 
print*,"<<<<<<<<<<<<<<<<<<< END vol7d object >>>>>>>>>>>>>>>>>>>>"
 
END SUBROUTINE vol7d_display
 
 
!> stampa a video una sintesi del contenuto
SUBROUTINE dat_display(this,idat,rdat,ddat,bdat,cdat)
TYPE(vol7d_var),intent(in) :: this !< oggetto da visualizzare
!> real
REAL :: rdat
!> double precision
DOUBLE PRECISION :: ddat
!> integer
INTEGER :: idat
!> byte
INTEGER(kind=int_b) :: bdat
!> character
CHARACTER(len=*) :: cdat
 
print *, to_char_dat(this,idat,rdat,ddat,bdat,cdat)
 
end SUBROUTINE dat_display
 
!> stampa a video una sintesi del contenuto
SUBROUTINE dat_vect_display(this,idat,rdat,ddat,bdat,cdat)
 
TYPE(vol7d_var),intent(in) :: this(:) !< oggetto da visualizzare
!> real
REAL :: rdat(:)
!> double precision
DOUBLE PRECISION :: ddat(:)
!> integer
INTEGER :: idat(:)
!> byte
INTEGER(kind=int_b) :: bdat(:)
!> character
CHARACTER(len=*):: cdat(:)
 
integer :: i
 
do i =1,size(this)
  call display(this(i),idat(i),rdat(i),ddat(i),bdat(i),cdat(i))
end do
 
end SUBROUTINE dat_vect_display
 
 
FUNCTION to_char_dat(this,idat,rdat,ddat,bdat,cdat)
#ifdef HAVE_DBALLE
USE dballef
#endif
TYPE(vol7d_var),INTENT(in) :: this
!> real
REAL :: rdat
!> double precision
DOUBLE PRECISION :: ddat
!> integer
INTEGER :: idat
!> byte
INTEGER(kind=int_b) :: bdat
!> character
CHARACTER(len=*) :: cdat
CHARACTER(len=80) :: to_char_dat
 
CHARACTER(len=LEN(to_char_dat)) :: to_char_tmp
 
 
#ifdef HAVE_DBALLE
INTEGER :: handle, ier
 
handle = 0
to_char_dat="VALUE: "
 
if (c_e(idat)) to_char_dat=trim(to_char_dat)//" ;int> "//trim(to_char(idat))
if (c_e(rdat)) to_char_dat=trim(to_char_dat)//" ;real> "//trim(to_char(rdat))
if (c_e(ddat)) to_char_dat=trim(to_char_dat)//" ;double> "//trim(to_char(ddat))
if (c_e(bdat)) to_char_dat=trim(to_char_dat)//" ;byte> "//trim(to_char(bdat))
 
if ( c_e (cdat))then
  ier = idba_messaggi(handle,"/dev/null", "w", "BUFR")
  ier = idba_spiegab(handle,this%btable,cdat,to_char_tmp)
  ier = idba_fatto(handle)
  to_char_dat=trim(to_char_dat)//" ;char> "//trim(to_char_tmp)
endif
 
#else
 
to_char_dat="VALUE: "
if (c_e(idat)) to_char_dat=trim(to_char_dat)//" ;int> "//trim(to_char(idat))
if (c_e(rdat)) to_char_dat=trim(to_char_dat)//" ;real> "//trim(to_char(rdat))
if (c_e(ddat)) to_char_dat=trim(to_char_dat)//" ;double> "//trim(to_char(ddat))
if (c_e(bdat)) to_char_dat=trim(to_char_dat)//" ;byte> "//trim(to_char(bdat))
if (c_e(cdat)) to_char_dat=trim(to_char_dat)//" ;char> "//trim(cdat)
 
#endif
 
END FUNCTION to_char_dat
 
 
!> Tests whether anything has ever been assigned to a vol7d object
!! (.TRUE.) or it is as clean as after an init (.FALSE.).
FUNCTION vol7d_c_e(this) RESULT(c_e)
TYPE(vol7d), INTENT(in) :: this
 
LOGICAL :: c_e
 
c_e = ASSOCIATED(this%ana) .OR. ASSOCIATED(this%time) .OR. &
 ASSOCIATED(this%level) .OR. ASSOCIATED(this%timerange) .OR. &
 ASSOCIATED(this%network) .OR. &
 ASSOCIATED(this%anavar%r) .OR. ASSOCIATED(this%anavar%d) .OR. &
 ASSOCIATED(this%anavar%i) .OR. ASSOCIATED(this%anavar%b) .OR. &
 ASSOCIATED(this%anavar%c) .OR. &
 ASSOCIATED(this%anaattr%r) .OR. ASSOCIATED(this%anaattr%d) .OR. &
 ASSOCIATED(this%anaattr%i) .OR. ASSOCIATED(this%anaattr%b) .OR. &
 ASSOCIATED(this%anaattr%c) .OR. &
 ASSOCIATED(this%dativar%r) .OR. ASSOCIATED(this%dativar%d) .OR. &
 ASSOCIATED(this%dativar%i) .OR. ASSOCIATED(this%dativar%b) .OR. &
 ASSOCIATED(this%dativar%c) .OR. &
 ASSOCIATED(this%datiattr%r) .OR. ASSOCIATED(this%datiattr%d) .OR. &
 ASSOCIATED(this%datiattr%i) .OR. ASSOCIATED(this%datiattr%b) .OR. &
 ASSOCIATED(this%datiattr%c)
 
END FUNCTION vol7d_c_e
 
 
!> Metodo per allocare i descrittori delle 7 dimensioni.
!! Riceve un grande numero di parametri opzionali che
!! indicano quali descrittori allocare e con quale estensione;
!! i descrittori non specificati non vengono toccati.
!! Può essere quindi chiamato più volte allocando via via
!! descrittori relativi a dimensioni diverse.
!! Se un descrittore richiesto è già allocato, viene deallocato
!! (perdendone l'eventuale contenuto) e riallocato con l'estensione
!! richiesta.
!! Per i descrittori relativi a dimensioni che non siano variabili o attributi,
!! è possibile specificare l'estensione di una dimensione a 0,
!! in tal caso il descrittore viene comunque allocato con lunghezza nulla,
!! che è diverso da non allocarlo. Per i descrittori di variabili e attributi
!! passare un'estensione 0 equivale a non fornire il parametro.
!! Avere uno o più descrittori dimensionati con estensione nulla fa sì
!! che anche il volume dati successivamente allocato abbia estensione nulla;
!! sebbene ciò appaia inutile, un volume del genere può in realtà servire,
!! in associazione ai metodi ::vol7d_merge o ::vol7d_append per estendere
!! un volume esistente aggiungendo elementi in alcune dimensioni (quelle
!! a estensione non nulla, ovviamente) e mantenendo invariato tutto il resto.
!! Per quanto riguarda i descrittori delle dimensioni relative alle
!! variabili, la relativa estensione è specificata con la nomenclatura
!! \a n&lt;x&gt;&lt;y&gt;&lt;z&gt; dove &lt;x&gt; può valere:
!!  - \a ana per variabili relative a voumi di anagrafica
!!  - \a dati per variabili relative a voumi di dati
!!
!! &lt;y&gt; può valere:
!!  - \a var per variabili
!!  - \a attr per attributi
!!  - \a varattr variabili aventi attributi nei volumi di attributi
!!
!! &lt;z&gt; può valere:
!!  - \a r per variabili o attributi a valori reali
!!  - \a d per variabili o attributi a valori a doppia precisione
!!  - \a i per variabili o attributi a valori interi
!!  - \a b per variabili o attributi a valori byte
!!  - \a c per variabili o attributi a valori carattere
!!
SUBROUTINE vol7d_alloc(this, nana, ntime, nlevel, ntimerange, nnetwork, &
 nanavarr, nanavard, nanavari, nanavarb, nanavarc, &
 nanaattrr, nanaattrd, nanaattri, nanaattrb, nanaattrc, &
 nanavarattrr, nanavarattrd, nanavarattri, nanavarattrb, nanavarattrc, &
 ndativarr, ndativard, ndativari, ndativarb, ndativarc, &
 ndatiattrr, ndatiattrd, ndatiattri, ndatiattrb, ndatiattrc, &
 ndativarattrr, ndativarattrd, ndativarattri, ndativarattrb, ndativarattrc, &
 ini)
TYPE(vol7d),INTENT(inout) :: this !< oggetto di cui allocare i descrittori
INTEGER,INTENT(in),OPTIONAL :: nana !< estensione della dimensione anagrafica
INTEGER,INTENT(in),OPTIONAL :: ntime !< estensione della dimensione tempo
INTEGER,INTENT(in),OPTIONAL :: nlevel !< estensione della dimensione livello varticale
INTEGER,INTENT(in),OPTIONAL :: ntimerange !< estensione della dimensione intervallo temporale (timerange)
INTEGER,INTENT(in),OPTIONAL :: nnetwork !< estensione della dimensione rete
!> estensione delle possibili dimensioni variabile
INTEGER,INTENT(in),OPTIONAL :: &
 nanavarr, nanavard, nanavari, nanavarb, nanavarc, &
 nanaattrr, nanaattrd, nanaattri, nanaattrb, nanaattrc, &
 nanavarattrr, nanavarattrd, nanavarattri, nanavarattrb, nanavarattrc, &
 ndativarr, ndativard, ndativari, ndativarb, ndativarc, &
 ndatiattrr, ndatiattrd, ndatiattri, ndatiattrb, ndatiattrc, &
 ndativarattrr, ndativarattrd, ndativarattri, ndativarattrb, ndativarattrc
LOGICAL,INTENT(in),OPTIONAL :: ini !< se fornito e vale \c .TRUE., viene chiamato il costruttore, senza parametri opzionali, per ogni elemento di tutti i descrittori allocati, inizializzandolo quindi a valore mancante
 
INTEGER :: i
LOGICAL :: linit
 