subroutine hec_adc_ini c c reset raw adc array c implicit none c include'hec_par.inc' c c adc values common c must be preceded by the include file hec_par.inc c include'hec_adc.inc' c call vzero(i_adc_ic_t, i_adc_dim*i_tim_dim) c end