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_set_attr_ind() subroutine vol7d_set_attr_ind ( type(vol7d), intent(inout) this ) Metodo per creare gli indici che associano le variabili aventi attributo alle variabili nei relativi descrittori. Ha senso chiamare questo metodo solo dopo che i descrittori delle variabili e degli attributi desiderati sono stati allocati ed è stato assegnato un valore ai relativi membri btable (vedi vol7d_var_class::vol7d_var), se i descrittori non sono stati allocati o assegnati, il metodo non fa niente. Parametri [in,out] this oggetto in cui creare gli indici Definizione alla linea 1507 del file vol7d_class.F90. ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%c)) THEN DO i = 1, SIZE(this%dativar%c) this%dativar%c(i)%c = & firsttrue(this%dativar%c(i)%btable == this%dativarattr%c(:)%btable) ENDDO ENDIF ENDIF END SUBROUTINE vol7d_set_attr_ind !> Metodo per fondere 2 oggetti vol7d. !! Il secondo volume viene accodato al primo e poi distrutto, si veda !! quindi la descrizione di ::vol7d_append. Se uno degli oggetti \a !! this o \a that sono vuoti non perde tempo inutile, SUBROUTINE vol7d_merge(this, that, sort, bestdata, & ltimesimple, ltimerangesimple, llevelsimple, lanasimple) TYPE(vol7d),INTENT(INOUT) :: this !< primo oggetto in ingresso, alla fine conterrà il risultato della fusione TYPE(vol7d),INTENT(INOUT) :: that !< secondo oggetto in ingresso, alla fine sarà distrutto LOGICAL,INTENT(IN),OPTIONAL :: sort !< se fornito e uguale a \c .TRUE., i descrittori che supportano un ordinamento (operatori > e/o <) risulteranno ordinati in ordine crescente nell'oggetto finale LOGICAL,INTENT(in),OPTIONAL :: bestdata !< if provided and \a .TRUE. in case of overlapping volumes keep valid data where available, or data from the second volume if both valid LOGICAL,INTENT(IN),OPTIONAL :: ltimesimple, ltimerangesimple, llevelsimple, lanasimple ! experimental, please do not use outside the library now TYPE(vol7d) :: v7d_clean IF (.NOT.c_e(this)) THEN ! speedup this = that CALL init(v7d_clean) that = v7d_clean ! destroy that without deallocating ELSE ! Append that to this and destroy that CALL vol7d_append(this, that, sort, bestdata, & ltimesimple, ltimerangesimple, llevelsimple, lanasimple) CALL delete(that) ENDIF END SUBROUTINE vol7d_merge !> 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 \b 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 \a that è vuoto non perde tempo inutile, !! !! \todo 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à !! !! \todo "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 !! !! \todo il parametro \a that è dichiarato \a INOUT perché la vol7d_alloc_vol !! può modificarlo, bisognerebbe implementare una vol7d_check_vol che restituisca !! errore anziché usare la vol7d_alloc_vol. SUBROUTINE vol7d_append(this, that, sort, bestdata, & ltimesimple, ltimerangesimple, llevelsimple, lanasimple, lnetworksimple) TYPE(vol7d),INTENT(INOUT) :: this !< primo oggetto in ingresso, a cui sarà accodato il secondo TYPE(vol7d),INTENT(IN) :: that !< secondo oggetto in ingresso, non viene modificato dal metodo LOGICAL,INTENT(IN),OPTIONAL :: sort !< se fornito e uguale a \c .TRUE., i descrittori che supportano un ordinamento (operatori > e/o <) risulteranno ordinati in ordine crescente nell'oggetto finale ! experimental, please do not use outside the library now, they force the use ! of a simplified mapping algorithm which is valid only whene the dimension ! content is the same in both volumes , or when one of them is empty LOGICAL,INTENT(in),OPTIONAL :: bestdata !< if provided and \a .TRUE. in case of overlapping volumes keep valid data where available, or data from the second volume if both valid LOGICAL,INTENT(IN),OPTIONAL :: ltimesimple, ltimerangesimple, llevelsimple, lanasimple, lnetworksimple TYPE(vol7d) :: v7dtmp LOGICAL :: lsort, lbestdata INTEGER,POINTER :: remapt1(:), remapt2(:), remaptr1(:), remaptr2(:), & remapl1(:), remapl2(:), remapa1(:), remapa2(:), remapn1(:), remapn2(:) IF (.NOT.c_e(that)) RETURN ! speedup, nothing to do IF (.NOT.vol7d_check_vol(that)) RETURN ! be safe IF (.NOT.c_e(this)) THEN ! this case is like a vol7d_copy, more efficient to copy? CALL vol7d_copy(that, this, sort=sort) RETURN ENDIF IF (this%time_definition /= that%time_definition) THEN CALL l4f_log(l4f_fatal, & 'in vol7d_append, cannot append volumes with different & &time definition') CALL raise_fatal_error() ENDIF ! Completo l'allocazione per avere volumi a norma CALL vol7d_alloc_vol(this) CALL init(v7dtmp, time_definition=this%time_definition) CALL optio(sort, lsort) CALL optio(bestdata, lbestdata) ! Calcolo le mappature tra volumi vecchi e volume nuovo ! I puntatori remap* vengono tutti o allocati o nullificati IF (optio_log(ltimesimple)) THEN CALL vol7d_remap2simple_datetime(this%time, that%time, v7dtmp%time, & lsort, remapt1, remapt2) ELSE CALL vol7d_remap2_datetime(this%time, that%time, v7dtmp%time, & lsort, remapt1, remapt2) ENDIF IF (optio_log(ltimerangesimple)) THEN CALL vol7d_remap2simple_vol7d_timerange(this%timerange, that%timerange, & v7dtmp%timerange, lsort, remaptr1, remaptr2) ELSE CALL vol7d_remap2_vol7d_timerange(this%timerange, that%timerange, & v7dtmp%timerange, lsort, remaptr1, remaptr2) ENDIF IF (optio_log(llevelsimple)) THEN CALL vol7d_remap2simple_vol7d_level(this%level, that%level, v7dtmp%level, & lsort, remapl1, remapl2) ELSE CALL vol7d_remap2_vol7d_level(this%level, that%level, v7dtmp%level, & lsort, remapl1, remapl2) ENDIF IF (optio_log(lanasimple)) THEN CALL vol7d_remap2simple_vol7d_ana(this%ana, that%ana, v7dtmp%ana, & .false., remapa1, remapa2) ELSE CALL vol7d_remap2_vol7d_ana(this%ana, that%ana, v7dtmp%ana, & .false., remapa1, remapa2) ENDIF IF (optio_log(lnetworksimple)) THEN CALL vol7d_remap2simple_vol7d_network(this%network, that%network, v7dtmp%network, & .false., remapn1, remapn2) ELSE CALL vol7d_remap2_vol7d_network(this%network, that%network, v7dtmp%network, & .false., remapn1, remapn2) ENDIF ! Faccio la fusione fisica dei volumi CALL vol7d_merge_finalr(this, that, v7dtmp, & remapa1, remapa2, remapt1, remapt2, remapl1, remapl2, & remaptr1, remaptr2, remapn1, remapn2, lbestdata) CALL vol7d_merge_finald(this, that, v7dtmp, & remapa1, remapa2, remapt1, remapt2, remapl1, remapl2, & remaptr1, remaptr2, remapn1, remapn2, lbestdata) CALL vol7d_merge_finali(this, that, v7dtmp, & remapa1, remapa2, remapt1, remapt2, remapl1, remapl2, & remaptr1, remaptr2, remapn1, remapn2, lbestdata) CALL vol7d_merge_finalb(this, that, v7dtmp, & remapa1, remapa2, remapt1, remapt2, remapl1, remapl2, & remaptr1, remaptr2, remapn1, remapn2, lbestdata) CALL vol7d_merge_finalc(this, that, v7dtmp, & remapa1, remapa2, remapt1, remapt2, remapl1, remapl2, & remaptr1, remaptr2, remapn1, remapn2, lbestdata) ! Dealloco i vettori di rimappatura IF (ASSOCIATED(remapt1)) DEALLOCATE(remapt1) IF (ASSOCIATED(remapt2)) DEALLOCATE(remapt2) IF (ASSOCIATED(remaptr1)) DEALLOCATE(remaptr1) IF (ASSOCIATED(remaptr2)) DEALLOCATE(remaptr2) IF (ASSOCIATED(remapl1)) DEALLOCATE(remapl1) IF (ASSOCIATED(remapl2)) DEALLOCATE(remapl2) IF (ASSOCIATED(remapa1)) DEALLOCATE(remapa1) IF (ASSOCIATED(remapa2)) DEALLOCATE(remapa2) IF (ASSOCIATED(remapn1)) DEALLOCATE(remapn1) IF (ASSOCIATED(remapn2)) DEALLOCATE(remapn2) ! Distruggo il vecchio volume e assegno il nuovo a this CALL delete(this) this = v7dtmp ! Ricreo gli indici var-attr CALL vol7d_set_attr_ind(this) END SUBROUTINE vol7d_append !> Metodo per creare una copia completa e indipendente di un oggetto vol7d. !! Questo metodo crea un duplicato di tutti i membri di un oggetto vol7d, !! con la possibilità di rielaborarlo durante la copia. Se l'oggetto da copiare !! è vuoto non perde tempo inutile. !! Attenzione, il codice: !! \code