c c max adc and time common for digital filtering method c *** WARNING *** c must be preceded by the include file hec_par.inc c c max adc and time for digital filtering method c adc_dig_ic(ic, 1) max adc values in channel ic (pedestal subtracted) c adc_dig_ic(ic, 2) max adc t values in channel ic in ns c ic_has_amp_weights(ic) .true. if channel ic has good amplitude weight coefficients c ic_has_tim_weights(ic) .true. if channel ic has good time weight coefficients c real adc_dig_ic(1:i_adc_dim, 2) logical ic_has_amp_weights(1:i_adc_dim) logical ic_has_tim_weights(1:i_adc_dim) c common /sssdig/ adc_dig_ic, + ic_has_amp_weights, + ic_has_tim_weights c