c c adc values c *** WARNING *** c must be preceded by the include file hec_par.inc c c adc values for time slice i_t c i_fadc_ic_t(ic, i_t) fadc values "adc channel system" c c c packed 32 bit adc values for Oct. 1997 and beyond c i_fadc_pk(1:i_fadc_dim) 16-bit packed adc values and channel# c c integer i_fadc_ic_t(1:i_fa_cdim, 1:i_fa_tdim) ccc integer i_fadc_ic_t(1:8, 1:100) c integer i_fadc_pk(1:i_fa_tdim*i_fa_cdim/2) ccc integer i_fadc_pk(1:400) c integer i_fadc_tim integer n_fadc_mod c logical firstfadc c c max adc and time using preferred max finding package c common /sssfadc/ i_fadc_ic_t, + i_fadc_pk, + i_fadc_tim, + n_fadc_mod, + firstfadc c