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_append() subroutine vol7d_append ( type(vol7d), intent(inout) this, type(vol7d), intent(in) that, logical, intent(in), optional sort, logical, intent(in), optional bestdata, logical, intent(in), optional ltimesimple, logical, intent(in), optional ltimerangesimple, logical, intent(in), optional llevelsimple, logical, intent(in), optional lanasimple, logical, intent(in), optional lnetworksimple ) Metodo per accodare un oggetto vol7d ad un altro. Si tratta di un metodo molto potente e versatile; i descrittori delle dimensioni del volume finale conterranno i valori dei corrispondenti descrittori del primo e del secondo volume e i volumi di anagrafica e dati conterranno i valori dei due volumi ai posti giusti, e valori mancanti per le nuove combinazioni che eventualmente si verranno a creare. Se i volumi multidimensionali di anagrafica e/o dati dei 2 oggetti hanno un'intersezione non nulla, negli elementi comuni il volume finale conterrà il corrispondente elemento del secondo volume. Attenzione che, durante l'esecuzione del metodo, la memoria richiesta è pari alla memoria complessiva occupata dai 2 volumi iniziali più la memoria complessiva del volume finale, per cui, nel caso di volumi grandi, ci potrebbero essere problemi di esaurimento della memoria centrale. Se l'oggetto that è vuoto non perde tempo inutile, Da fare nel caso di elementi comuni inserire la possibiità (opzionale per non penalizzare le prestazioni quando ciò non serve) di effettuare una scelta più ragionata dell'elemento da tenere, almeno controllando i dati mancanti se non le flag di qualità Da fare "rateizzare" l'allocazione dei volumi per ridurre l'occupazione di memoria nel caso siano allocati contemporaneamente volumi di variabili e di attributi o più volumi di tipi diversi Da fare il parametro that è dichiarato INOUT perché la vol7d_alloc_vol può modificarlo, bisognerebbe implementare una vol7d_check_vol che restituisca errore anziché usare la vol7d_alloc_vol. Parametri [in,out] this primo oggetto in ingresso, a cui sarà accodato il secondo [in] that secondo oggetto in ingresso, non viene modificato dal metodo [in] sort se fornito e uguale a .TRUE., i descrittori che supportano un ordinamento (operatori > e/o <) risulteranno ordinati in ordine crescente nell'oggetto finale [in] bestdata if provided and .TRUE. in case of overlapping volumes keep valid data where available, or data from the second volume if both valid Definizione alla linea 1757 del file vol7d_class.F90. lanavarr(:), lanavard(:), lanavari(:), lanavarb(:), lanavarc(:), & lanaattrr(:), lanaattrd(:), lanaattri(:), lanaattrb(:), lanaattrc(:), & lanavarattrr(:), lanavarattrd(:), lanavarattri(:), lanavarattrb(:), lanavarattrc(:), & ldativarr(:), ldativard(:), ldativari(:), ldativarb(:), ldativarc(:), & ldatiattrr(:), ldatiattrd(:), ldatiattri(:), ldatiattrb(:), ldatiattrc(:), & ldativarattrr(:), ldativarattrd(:), ldativarattri(:), ldativarattrb(:), ldativarattrc(:) LOGICAL :: lsort, lunique, lmiss INTEGER,POINTER :: remapt(:), remaptr(:), remapl(:), remapa(:), remapn(:) CALL init(that) IF (.NOT.c_e(this)) RETURN ! speedup, nothing to do IF (.NOT.vol7d_check_vol(this)) RETURN ! be safe CALL optio(sort, lsort) CALL optio(unique, lunique) CALL optio(miss, lmiss) ! Calcolo le mappature tra volume vecchio e volume nuovo ! I puntatori remap* vengono tutti o allocati o nullificati CALL vol7d_remap1_datetime(this%time, that%time, & lsort.OR.optio_log(lsort_time), lunique, lmiss, remapt, ltime) CALL vol7d_remap1_vol7d_timerange(this%timerange, that%timerange, & lsort.OR.optio_log(lsort_timerange), lunique, lmiss, remaptr, ltimerange) CALL vol7d_remap1_vol7d_level(this%level, that%level, & lsort.OR.optio_log(lsort_level), lunique, lmiss, remapl, llevel) CALL vol7d_remap1_vol7d_ana(this%ana, that%ana, & lsort, lunique, lmiss, remapa, lana) CALL vol7d_remap1_vol7d_network(this%network, that%network, & lsort, lunique, lmiss, remapn, lnetwork) ! lanavari, lanavarb, lanavarc, & ! lanaattri, lanaattrb, lanaattrc, & ! lanavarattri, lanavarattrb, lanavarattrc, & ! ldativari, ldativarb, ldativarc, & ! ldatiattri, ldatiattrb, ldatiattrc, & ! ldativarattri, ldativarattrb, ldativarattrc ! Faccio la riforma fisica dei volumi CALL vol7d_reform_finalr(this, that, & remapa, remapt, remapl, remaptr, remapn, lsort, lunique, lmiss, & lanavarr, lanaattrr, lanavarattrr, ldativarr, ldatiattrr, ldativarattrr) CALL vol7d_reform_finald(this, that, & remapa, remapt, remapl, remaptr, remapn, lsort, lunique, lmiss, & lanavard, lanaattrd, lanavarattrd, ldativard, ldatiattrd, ldativarattrd) CALL vol7d_reform_finali(this, that, & remapa, remapt, remapl, remaptr, remapn, lsort, lunique, lmiss, & lanavari, lanaattri, lanavarattri, ldativari, ldatiattri, ldativarattri) CALL vol7d_reform_finalb(this, that, & remapa, remapt, remapl, remaptr, remapn, lsort, lunique, lmiss, & lanavarb, lanaattrb, lanavarattrb, ldativarb, ldatiattrb, ldativarattrb) CALL vol7d_reform_finalc(this, that, & remapa, remapt, remapl, remaptr, remapn, lsort, lunique, lmiss, & lanavarc, lanaattrc, lanavarattrc, ldativarc, ldatiattrc, ldativarattrc) ! Dealloco i vettori di rimappatura IF (ASSOCIATED(remapt)) DEALLOCATE(remapt) IF (ASSOCIATED(remaptr)) DEALLOCATE(remaptr) IF (ASSOCIATED(remapl)) DEALLOCATE(remapl) IF (ASSOCIATED(remapa)) DEALLOCATE(remapa) IF (ASSOCIATED(remapn)) DEALLOCATE(remapn) ! Ricreo gli indici var-attr CALL vol7d_set_attr_ind(that) that%time_definition = this%time_definition END SUBROUTINE vol7d_copy !> Metodo per riformare in varie maniere un oggetto vol7d. !! Equivale ad una copia (vedi ::vol7d_copy) !! seguita dalla distruzione del volume iniziale e alla !! sua riassegnazione al volume copiato. Ha senso se almeno uno dei parametri !! \a sort, \a uniq o \a miss è fornito uguale a \c .TRUE., altrimenti !! è solo una perdita di tempo. !! Può essere utile, ad esempio, per eliminare stazioni !! o istanti temporali indesiderati, basta assegnare il loro corrispondente !! elemento del descrittore a valore mancante e chiamare vol7d_reform !! con miss=.TRUE. . SUBROUTINE vol7d_reform(this, sort, unique, miss, & lsort_time, lsort_timerange, lsort_level, & ltime, ltimerange, llevel, lana, lnetwork, & lanavarr, lanavard, lanavari, lanavarb, lanavarc, & lanaattrr, lanaattrd, lanaattri, lanaattrb, lanaattrc, & lanavarattrr, lanavarattrd, lanavarattri, lanavarattrb, lanavarattrc, & ldativarr, ldativard, ldativari, ldativarb, ldativarc, & ldatiattrr, ldatiattrd, ldatiattri, ldatiattrb, ldatiattrc, & ldativarattrr, ldativarattrd, ldativarattri, ldativarattrb, ldativarattrc& ,purgeana) TYPE(vol7d),INTENT(INOUT) :: this !< oggetto da riformare LOGICAL,INTENT(IN),OPTIONAL :: sort !< if present and \a .TRUE., sort all the sortable dimensions LOGICAL,INTENT(IN),OPTIONAL :: unique !< se fornito e uguale a \c .TRUE., gli eventuali elementi duplicati nei descrittori dell'oggetto iniziale verranno collassati in un unico elemento (con eventuale perdita dei dati relativi agli elementi duplicati) LOGICAL,INTENT(IN),OPTIONAL :: miss !< se fornito e uguale a \c .TRUE., gli eventuali elementi dei descrittori uguali al corrispondente valore mancante verranno eliminati dall'oggetto riformato LOGICAL,INTENT(IN),OPTIONAL :: lsort_time !< if present and \a .TRUE., sort only time dimension (alternative to \a sort ) LOGICAL,INTENT(IN),OPTIONAL :: lsort_timerange !< if present and \a .TRUE., sort only timerange dimension (alternative to \a sort ) LOGICAL,INTENT(IN),OPTIONAL :: lsort_level !< if present and \a .TRUE., sort only level dimension (alternative to \a sort ) !> se fornito, deve essere un vettore logico della stessa lunghezza di !! this%time indicante quali elementi della dimensione \a time !! mantenere (valori \c .TRUE.) e quali scartare (valori \c .FALSE.) !! nel volume copiato; in alternativa può essere un vettore di !! lunghezza 1, in tal caso, se \c .FALSE. , equivale a scartare tutti !! gli elementi (utile principalmente per le variabili); è compatibile !! col parametro \a miss LOGICAL,INTENT(IN),OPTIONAL :: ltime(:) LOGICAL,INTENT(IN),OPTIONAL :: ltimerange(:) !< come il precedente per la dimensione \a timerange LOGICAL,INTENT(IN),OPTIONAL :: llevel(:) !< come il precedente per la dimensione \a level LOGICAL,INTENT(IN),OPTIONAL :: lana(:) !< come il precedente per la dimensione \a ana LOGICAL,INTENT(IN),OPTIONAL :: lnetwork(:) !< come il precedente per la dimensione \a network !> come il precedente per tutte le possibili dimensioni variabile LOGICAL,INTENT(in),OPTIONAL :: &