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_convr() subroutine vol7d_class::vol7d_convr ( type(vol7d), intent(in)  this, type(vol7d), intent(inout)  that, logical, intent(in), optional  anaconv  ) Metodo per convertire i volumi di dati di un oggetto vol7d in dati reali dove possibile. L'oggetto convertito è una copia completa dell'originale che può essere quindi distrutto dopo la chiamata. Per i dati di anagrafica, al momento sono convertiti solo i dati CHARACTER se è passato anaconv=.TRUE. Gli attributi non sono toccati. Parametri [in] this oggetto origine [in,out] that oggetto convertito [in] anaconv converti anche anagrafica Definizione alla linea 2282 del file vol7d_class.F90. ENDIF IF (ASSOCIATED(v7d_tmp%dativar%c)) THEN ! alloco i dati reali e vi trasferisco i character ALLOCATE(v7d_tmp%voldatir(SIZE(v7d_tmp%voldatic, 1), SIZE(v7d_tmp%voldatic, 2), & SIZE(v7d_tmp%voldatic, 3), SIZE(v7d_tmp%voldatic, 4), SIZE(v7d_tmp%voldatic, 5), & SIZE(v7d_tmp%voldatic, 6))) DO i = 1, SIZE(v7d_tmp%dativar%c) v7d_tmp%voldatir(:,:,:,:,i,:) = & realdat(v7d_tmp%voldatic(:,:,:,:,i,:), v7d_tmp%dativar%c(i)) ENDDO DEALLOCATE(v7d_tmp%voldatic) ! trasferisco le variabili v7d_tmp%dativar%r => v7d_tmp%dativar%c NULLIFY(v7d_tmp%dativar%c) ENDIF ! fondo con il volume definitivo CALL vol7d_merge(that, v7d_tmp) ELSE CALL delete(v7d_tmp) ENDIF END SUBROUTINE vol7d_convr SUBROUTINE vol7d_diff_only (this, that, data_only,ana) TYPE(vol7d),INTENT(IN) :: this TYPE(vol7d),INTENT(OUT) :: that logical , optional, intent(in) :: data_only logical , optional, intent(in) :: ana logical :: ldata_only,lana IF (PRESENT(data_only)) THEN ldata_only = data_only ELSE ldata_only = .false. ENDIF IF (PRESENT(ana)) THEN lana = ana ELSE lana = .false. ENDIF #undef VOL7D_POLY_ARRAY #define VOL7D_POLY_ARRAY voldati #include "vol7d_class_diff.F90" #undef VOL7D_POLY_ARRAY #define VOL7D_POLY_ARRAY voldatiattr #include "vol7d_class_diff.F90" #undef VOL7D_POLY_ARRAY if ( .not. ldata_only) then #define VOL7D_POLY_ARRAY volana #include "vol7d_class_diff.F90" #undef VOL7D_POLY_ARRAY #define VOL7D_POLY_ARRAY volanaattr #include "vol7d_class_diff.F90" #undef VOL7D_POLY_ARRAY if(lana)then where ( this%ana == that%ana ) that%ana = vol7d_ana_miss end where end if end if END SUBROUTINE vol7d_diff_only ! Creo le routine da ripetere per i vari tipi di dati di v7d ! tramite un template e il preprocessore #undef VOL7D_POLY_TYPE #undef VOL7D_POLY_TYPES #define VOL7D_POLY_TYPE REAL #define VOL7D_POLY_TYPES r #include "vol7d_class_type_templ.F90" #undef VOL7D_POLY_TYPE #undef VOL7D_POLY_TYPES #define VOL7D_POLY_TYPE DOUBLE PRECISION #define VOL7D_POLY_TYPES d #include "vol7d_class_type_templ.F90" #undef VOL7D_POLY_TYPE #undef VOL7D_POLY_TYPES #define VOL7D_POLY_TYPE INTEGER #define VOL7D_POLY_TYPES i #include "vol7d_class_type_templ.F90" #undef VOL7D_POLY_TYPE #undef VOL7D_POLY_TYPES #define VOL7D_POLY_TYPE INTEGER(kind=int_b) #define VOL7D_POLY_TYPES b #include "vol7d_class_type_templ.F90" #undef VOL7D_POLY_TYPE #undef VOL7D_POLY_TYPES #define VOL7D_POLY_TYPE CHARACTER(len=vol7d_cdatalen) #define VOL7D_POLY_TYPES c #include "vol7d_class_type_templ.F90" ! Creo le routine da ripetere per i vari descrittori di dimensioni di v7d ! tramite un template e il preprocessore #define VOL7D_SORT #undef VOL7D_NO_ZERO_ALLOC #undef VOL7D_POLY_TYPE #define VOL7D_POLY_TYPE datetime #include "vol7d_class_desc_templ.F90" #undef VOL7D_POLY_TYPE #define VOL7D_POLY_TYPE vol7d_timerange #include "vol7d_class_desc_templ.F90" #undef VOL7D_POLY_TYPE #define VOL7D_POLY_TYPE vol7d_level #include "vol7d_class_desc_templ.F90" #undef VOL7D_SORT #undef VOL7D_POLY_TYPE #define VOL7D_POLY_TYPE vol7d_network #include "vol7d_class_desc_templ.F90" #undef VOL7D_POLY_TYPE #define VOL7D_POLY_TYPE vol7d_ana #include "vol7d_class_desc_templ.F90" #define VOL7D_NO_ZERO_ALLOC #undef VOL7D_POLY_TYPE #define VOL7D_POLY_TYPE vol7d_var #include "vol7d_class_desc_templ.F90" subroutine vol7d_write_on_file (this,unit,description,filename,filename_auto) TYPE(vol7d),INTENT(IN) :: this integer,optional,intent(inout) :: unit character(len=*),intent(in),optional :: filename character(len=*),intent(out),optional :: filename_auto character(len=*),INTENT(IN),optional :: description integer :: lunit character(len=254) :: ldescription,arg,lfilename integer :: nana, ntime, ntimerange, nlevel, nnetwork, & ndativarr, ndativari, ndativarb, ndativard, ndativarc,& ndatiattrr, ndatiattri, ndatiattrb, ndatiattrd, ndatiattrc,& ndativarattrr, ndativarattri, ndativarattrb, ndativarattrd, ndativarattrc,& nanavarr, nanavari, nanavarb, nanavard, nanavarc,& nanaattrr, nanaattri, nanaattrb, nanaattrd, nanaattrc,& nanavarattrr, nanavarattri, nanavarattrb, nanavarattrd, nanavarattrc !integer :: im,id,iy integer :: tarray(8) logical :: opened,exist nana=0 ntime=0 ntimerange=0 nlevel=0 nnetwork=0 ndativarr=0 ndativari=0 ndativarb=0 ndativard=0 ndativarc=0 ndatiattrr=0 ndatiattri=0 ndatiattrb=0 ndatiattrd=0 ndatiattrc=0 ndativarattrr=0 ndativarattri=0 ndativarattrb=0 ndativarattrd=0 ndativarattrc=0 nanavarr=0 nanavari=0 nanavarb=0 nanavard=0 nanavarc=0 nanaattrr=0 nanaattri=0 nanaattrb=0 nanaattrd=0 nanaattrc=0 nanavarattrr=0 nanavarattri=0 nanavarattrb=0 nanavarattrd=0 nanavarattrc=0 !call idate(im,id,iy) call date_and_time(values=tarray) call getarg(0,arg) if (present(description))then ldescription=description else ldescription="Vol7d generated by: "//trim(arg) end if if (.not. present(unit))then lunit=getunit()