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_filter() subroutine vol7d_filter ( type(vol7d), intent(inout) this, character(len=*), dimension(:), intent(in), optional avl, character(len=*), dimension(:), intent(in), optional vl, type(vol7d_network), dimension(:), optional nl, type(datetime), intent(in), optional s_d, type(datetime), intent(in), optional e_d ) Filter the contents of a volume keeping only desired data. This subroutine filters a vol7d object by keeping only a subset of the data contained. It can keep only times within a specified interval, only station networks contained in a list and only specified station or data variables. If a filter parameter is not provided, no filtering will take place according to that criterion. The volume is reallocated keeping only the desired data. Parametri [in,out] this volume to be filtered [in] avl list of station variables to be kept, if not provided or of zero length, all variables are kept [in] vl list of data variables to be kept, if not provided or of zero length, all variables are kept nl list of station networks to be kept, if not provided or of zero length, all networks are kept [in] s_d initial time interval for time filtering, if not provided or equal to missing data no lower limit is imposed [in] e_d final time interval for time filtering, if not provided or equal to missing data no upper limit is imposed Definizione alla linea 2148 del file vol7d_class.F90. DEALLOCATE(v7d_tmp%voldatid) ! trasferisco le variabili v7d_tmp%dativar%r => v7d_tmp%dativar%d NULLIFY(v7d_tmp%dativar%d) ENDIF ! fondo con il volume definitivo CALL vol7d_merge(that, v7d_tmp) ELSE CALL delete(v7d_tmp) ENDIF ! Volume solo di dati interi CALL vol7d_copy(this, v7d_tmp, & lanavarr=fv, lanavard=fv, lanavari=acn, lanavarb=fv, lanavarc=fv, & lanaattrr=fv, lanaattrd=fv, lanaattri=fv, lanaattrb=fv, lanaattrc=fv, & lanavarattrr=fv, lanavarattrd=fv, lanavarattri=fv, lanavarattrb=fv, lanavarattrc=fv, & ldativarr=fv, ldativard=fv, ldativari=tv, ldativarb=fv, ldativarc=fv, & ldatiattrr=fv, ldatiattrd=fv, ldatiattri=fv, ldatiattrb=fv, ldatiattrc=fv, & ldativarattrr=fv, ldativarattrd=fv, ldativarattri=fv, ldativarattrb=fv, ldativarattrc=fv) ! converto a dati reali IF (ASSOCIATED(v7d_tmp%anavar%i) .OR. ASSOCIATED(v7d_tmp%dativar%i)) THEN IF (ASSOCIATED(v7d_tmp%anavar%i)) THEN ! alloco i dati reali e vi trasferisco gli interi ALLOCATE(v7d_tmp%volanar(SIZE(v7d_tmp%volanai, 1), SIZE(v7d_tmp%volanai, 2), & SIZE(v7d_tmp%volanai, 3))) DO i = 1, SIZE(v7d_tmp%anavar%i) v7d_tmp%volanar(:,i,:) = & realdat(v7d_tmp%volanai(:,i,:), v7d_tmp%anavar%i(i)) ENDDO DEALLOCATE(v7d_tmp%volanai) ! trasferisco le variabili v7d_tmp%anavar%r => v7d_tmp%anavar%i NULLIFY(v7d_tmp%anavar%i) ENDIF IF (ASSOCIATED(v7d_tmp%dativar%i)) THEN ! alloco i dati reali e vi trasferisco gli interi ALLOCATE(v7d_tmp%voldatir(SIZE(v7d_tmp%voldatii, 1), SIZE(v7d_tmp%voldatii, 2), & SIZE(v7d_tmp%voldatii, 3), SIZE(v7d_tmp%voldatii, 4), SIZE(v7d_tmp%voldatii, 5), & SIZE(v7d_tmp%voldatii, 6))) DO i = 1, SIZE(v7d_tmp%dativar%i) v7d_tmp%voldatir(:,:,:,:,i,:) = & realdat(v7d_tmp%voldatii(:,:,:,:,i,:), v7d_tmp%dativar%i(i)) ENDDO DEALLOCATE(v7d_tmp%voldatii) ! trasferisco le variabili v7d_tmp%dativar%r => v7d_tmp%dativar%i NULLIFY(v7d_tmp%dativar%i) ENDIF ! fondo con il volume definitivo CALL vol7d_merge(that, v7d_tmp) ELSE CALL delete(v7d_tmp) ENDIF ! Volume solo di dati byte CALL vol7d_copy(this, v7d_tmp, & lanavarr=fv, lanavard=fv, lanavari=fv, lanavarb=acn, lanavarc=fv, & lanaattrr=fv, lanaattrd=fv, lanaattri=fv, lanaattrb=fv, lanaattrc=fv, & lanavarattrr=fv, lanavarattrd=fv, lanavarattri=fv, lanavarattrb=fv, lanavarattrc=fv, & ldativarr=fv, ldativard=fv, ldativari=fv, ldativarb=tv, ldativarc=fv, & ldatiattrr=fv, ldatiattrd=fv, ldatiattri=fv, ldatiattrb=fv, ldatiattrc=fv, & ldativarattrr=fv, ldativarattrd=fv, ldativarattri=fv, ldativarattrb=fv, ldativarattrc=fv) ! converto a dati reali IF (ASSOCIATED(v7d_tmp%anavar%b) .OR. ASSOCIATED(v7d_tmp%dativar%b)) THEN IF (ASSOCIATED(v7d_tmp%anavar%b)) THEN ! alloco i dati reali e vi trasferisco i byte ALLOCATE(v7d_tmp%volanar(SIZE(v7d_tmp%volanab, 1), SIZE(v7d_tmp%volanab, 2), & SIZE(v7d_tmp%volanab, 3))) DO i = 1, SIZE(v7d_tmp%anavar%b) v7d_tmp%volanar(:,i,:) = & realdat(v7d_tmp%volanab(:,i,:), v7d_tmp%anavar%b(i)) ENDDO DEALLOCATE(v7d_tmp%volanab) ! trasferisco le variabili v7d_tmp%anavar%r => v7d_tmp%anavar%b NULLIFY(v7d_tmp%anavar%b) ENDIF IF (ASSOCIATED(v7d_tmp%dativar%b)) THEN ! alloco i dati reali e vi trasferisco i byte ALLOCATE(v7d_tmp%voldatir(SIZE(v7d_tmp%voldatib, 1), SIZE(v7d_tmp%voldatib, 2), & SIZE(v7d_tmp%voldatib, 3), SIZE(v7d_tmp%voldatib, 4), SIZE(v7d_tmp%voldatib, 5), & SIZE(v7d_tmp%voldatib, 6))) DO i = 1, SIZE(v7d_tmp%dativar%b) v7d_tmp%voldatir(:,:,:,:,i,:) = & realdat(v7d_tmp%voldatib(:,:,:,:,i,:), v7d_tmp%dativar%b(i)) ENDDO DEALLOCATE(v7d_tmp%voldatib) ! trasferisco le variabili v7d_tmp%dativar%r => v7d_tmp%dativar%b NULLIFY(v7d_tmp%dativar%b) ENDIF ! fondo con il volume definitivo CALL vol7d_merge(that, v7d_tmp) ELSE CALL delete(v7d_tmp) ENDIF ! Volume solo di dati character CALL vol7d_copy(this, v7d_tmp, & lanavarr=fv, lanavard=fv, lanavari=fv, lanavarb=fv, lanavarc=acn, & lanaattrr=fv, lanaattrd=fv, lanaattri=fv, lanaattrb=fv, lanaattrc=fv, &