dat_display dat_vect_display integeranavol move_datac move_datar realanavol to_char_dat v7d_rounding vol7d_alloc vol7d_alloc_vol vol7d_ana_a vol7d_ana_d vol7d_append vol7d_attr_a vol7d_attr_d vol7d_c_e vol7d_check vol7d_check_vol vol7d_convr vol7d_copy vol7d_delete vol7d_diff_only vol7d_display vol7d_filter vol7d_get_volanaattrb vol7d_get_volanaattrc vol7d_get_volanaattrd vol7d_get_volanaattri vol7d_get_volanaattrr vol7d_get_volanab vol7d_get_volanac vol7d_get_volanad vol7d_get_volanai vol7d_get_volanar vol7d_get_voldatiattrb vol7d_get_voldatiattrc vol7d_get_voldatiattrd vol7d_get_voldatiattri vol7d_get_voldatiattrr vol7d_get_voldatib vol7d_get_voldatic vol7d_get_voldatid vol7d_get_voldatii vol7d_get_voldatir vol7d_init vol7d_level_d vol7d_merge vol7d_network_a vol7d_network_d vol7d_read_from_file vol7d_reform vol7d_set_attr_ind vol7d_smart_sort vol7d_time_d vol7d_timerange_d vol7d_var_a vol7d_var_d vol7d_write_on_file

vol7d_display() subroutine, private vol7d_class::vol7d_display ( type(vol7d), intent(in)  this ) private stampa a video una sintesi del contenuto Parametri [in] this oggetto da visualizzare Definizione alla linea 695 del file vol7d_class.F90. TYPE(vol7d_var),intent(in) :: this REAL :: rdat DOUBLE PRECISION :: ddat INTEGER :: idat INTEGER(kind=int_b) :: bdat CHARACTER(len=*) :: cdat print *, to_char_dat(this,idat,rdat,ddat,bdat,cdat) end SUBROUTINE dat_display SUBROUTINE dat_vect_display(this,idat,rdat,ddat,bdat,cdat) TYPE(vol7d_var),intent(in) :: this(:) REAL :: rdat(:) DOUBLE PRECISION :: ddat(:) INTEGER :: idat(:) INTEGER(kind=int_b) :: bdat(:) 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 :: rdat DOUBLE PRECISION :: ddat INTEGER :: idat INTEGER(kind=int_b) :: bdat 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 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 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 INTEGER,INTENT(in),OPTIONAL :: nana INTEGER,INTENT(in),OPTIONAL :: ntime INTEGER,INTENT(in),OPTIONAL :: nlevel INTEGER,INTENT(in),OPTIONAL :: ntimerange INTEGER,INTENT(in),OPTIONAL :: nnetwork 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 INTEGER :: i LOGICAL :: linit IF (PRESENT(ini)) THEN linit = ini ELSE linit = .false. ENDIF ! Dimensioni principali IF (PRESENT(nana)) THEN IF (nana >= 0) THEN IF (ASSOCIATED(this%ana)) DEALLOCATE(this%ana)