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_alloc() subroutine vol7d_class::vol7d_alloc ( 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, integer, intent(in), optional  nanavard, integer, intent(in), optional  nanavari, integer, intent(in), optional  nanavarb, integer, intent(in), optional  nanavarc, integer, intent(in), optional  nanaattrr, integer, intent(in), optional  nanaattrd, integer, intent(in), optional  nanaattri, integer, intent(in), optional  nanaattrb, integer, intent(in), optional  nanaattrc, integer, intent(in), optional  nanavarattrr, integer, intent(in), optional  nanavarattrd, integer, intent(in), optional  nanavarattri, integer, intent(in), optional  nanavarattrb, integer, intent(in), optional  nanavarattrc, integer, intent(in), optional  ndativarr, integer, intent(in), optional  ndativard, integer, intent(in), optional  ndativari, integer, intent(in), optional  ndativarb, integer, intent(in), optional  ndativarc, integer, intent(in), optional  ndatiattrr, integer, intent(in), optional  ndatiattrd, integer, intent(in), optional  ndatiattri, integer, intent(in), optional  ndatiattrb, integer, intent(in), optional  ndatiattrc, integer, intent(in), optional  ndativarattrr, integer, intent(in), optional  ndativarattrd, integer, intent(in), optional  ndativarattri, integer, intent(in), optional  ndativarattrb, integer, intent(in), optional  ndativarattrc, logical, intent(in), optional  ini  ) 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 n<x><y><z> dove <x> può valere: ana per variabili relative a voumi di anagrafica dati per variabili relative a voumi di dati <y> può valere: var per variabili attr per attributi varattr variabili aventi attributi nei volumi di attributi <z> può valere: r per variabili o attributi a valori reali d per variabili o attributi a valori a doppia precisione i per variabili o attributi a valori interi b per variabili o attributi a valori byte c per variabili o attributi a valori carattere Parametri [in,out] this oggetto di cui allocare i descrittori [in] nana estensione della dimensione anagrafica [in] ntime estensione della dimensione tempo [in] nlevel estensione della dimensione livello varticale [in] ntimerange estensione della dimensione intervallo temporale (timerange) [in] nnetwork estensione della dimensione rete [in] nanavarr estensione delle possibili dimensioni variabile [in] nanavard estensione delle possibili dimensioni variabile [in] nanavari estensione delle possibili dimensioni variabile [in] nanavarb estensione delle possibili dimensioni variabile [in] nanavarc estensione delle possibili dimensioni variabile [in] nanaattrr estensione delle possibili dimensioni variabile [in] nanaattrd estensione delle possibili dimensioni variabile [in] nanaattri estensione delle possibili dimensioni variabile [in] nanaattrb estensione delle possibili dimensioni variabile [in] nanaattrc estensione delle possibili dimensioni variabile [in] nanavarattrr estensione delle possibili dimensioni variabile [in] nanavarattrd estensione delle possibili dimensioni variabile [in] nanavarattri estensione delle possibili dimensioni variabile [in] nanavarattrb estensione delle possibili dimensioni variabile [in] nanavarattrc estensione delle possibili dimensioni variabile [in] ndativarr estensione delle possibili dimensioni variabile [in] ndativard estensione delle possibili dimensioni variabile [in] ndativari estensione delle possibili dimensioni variabile [in] ndativarb estensione delle possibili dimensioni variabile [in] ndativarc estensione delle possibili dimensioni variabile [in] ndatiattrr estensione delle possibili dimensioni variabile [in] ndatiattrd estensione delle possibili dimensioni variabile [in] ndatiattri estensione delle possibili dimensioni variabile [in] ndatiattrb estensione delle possibili dimensioni variabile [in] ndatiattrc estensione delle possibili dimensioni variabile [in] ndativarattrr estensione delle possibili dimensioni variabile [in] ndativarattrd estensione delle possibili dimensioni variabile [in] ndativarattri estensione delle possibili dimensioni variabile [in] ndativarattrb estensione delle possibili dimensioni variabile [in] ndativarattrc estensione delle possibili dimensioni variabile [in] ini se fornito e vale .TRUE., viene chiamato il costruttore, senza parametri opzionali, per ogni elemento di tutti i descrittori allocati, inizializzandolo quindi a valore mancante Definizione alla linea 1048 del file vol7d_class.F90. ENDIF IF (ASSOCIATED(this%anaattr%d) .AND. ASSOCIATED(this%anavarattr%d) .AND. & .NOT.ASSOCIATED(this%volanaattrd)) THEN vol7d_check_vol = .false. ENDIF IF (ASSOCIATED(this%anaattr%i) .AND. ASSOCIATED(this%anavarattr%i) .AND. & .NOT.ASSOCIATED(this%volanaattri)) THEN vol7d_check_vol = .false. ENDIF IF (ASSOCIATED(this%anaattr%b) .AND. ASSOCIATED(this%anavarattr%b) .AND. & .NOT.ASSOCIATED(this%volanaattrb)) THEN vol7d_check_vol = .false. ENDIF IF (ASSOCIATED(this%anaattr%c) .AND. ASSOCIATED(this%anavarattr%c) .AND. & .NOT.ASSOCIATED(this%volanaattrc)) THEN vol7d_check_vol = .false. ENDIF ! Dati IF (ASSOCIATED(this%dativar%r) .AND. .NOT.ASSOCIATED(this%voldatir)) THEN vol7d_check_vol = .false. ENDIF IF (ASSOCIATED(this%dativar%d) .AND. .NOT.ASSOCIATED(this%voldatid)) THEN vol7d_check_vol = .false. ENDIF IF (ASSOCIATED(this%dativar%i) .AND. .NOT.ASSOCIATED(this%voldatii)) THEN vol7d_check_vol = .false. ENDIF IF (ASSOCIATED(this%dativar%b) .AND. .NOT.ASSOCIATED(this%voldatib)) THEN vol7d_check_vol = .false. ENDIF IF (ASSOCIATED(this%dativar%c) .AND. .NOT.ASSOCIATED(this%voldatic)) THEN vol7d_check_vol = .false. ENDIF ! Attributi dei dati IF (ASSOCIATED(this%datiattr%r) .AND. ASSOCIATED(this%dativarattr%r) .AND. & .NOT.ASSOCIATED(this%voldatiattrr)) THEN vol7d_check_vol = .false. ENDIF IF (ASSOCIATED(this%datiattr%d) .AND. ASSOCIATED(this%dativarattr%d) .AND. & .NOT.ASSOCIATED(this%voldatiattrd)) THEN vol7d_check_vol = .false. ENDIF IF (ASSOCIATED(this%datiattr%i) .AND. ASSOCIATED(this%dativarattr%i) .AND. & .NOT.ASSOCIATED(this%voldatiattri)) THEN vol7d_check_vol = .false. ENDIF IF (ASSOCIATED(this%datiattr%b) .AND. ASSOCIATED(this%dativarattr%b) .AND. & .NOT.ASSOCIATED(this%voldatiattrb)) THEN vol7d_check_vol = .false. ENDIF IF (ASSOCIATED(this%datiattr%c) .AND. ASSOCIATED(this%dativarattr%c) .AND. & .NOT.ASSOCIATED(this%voldatiattrc)) THEN vol7d_check_vol = .false. ENDIF IF (ASSOCIATED(this%dativar%r) .OR. ASSOCIATED(this%dativar%d) .OR. & ASSOCIATED(this%dativar%i) .OR. ASSOCIATED(this%dativar%b) .OR. & ASSOCIATED(this%dativar%c)) THEN vol7d_check_vol = vol7d_check_vol .AND. vol7d_check_alloc_dati(this) ENDIF END FUNCTION vol7d_check_vol SUBROUTINE vol7d_alloc_vol(this, ini, inivol) TYPE(vol7d),INTENT(inout) :: this LOGICAL,INTENT(in),OPTIONAL :: ini LOGICAL,INTENT(in),OPTIONAL :: inivol