subroutine hec_stats_ini c c system stats initialization c implicit none c include'hec_stats_epio.inc' !epio banks stats include'hec_stats_trig.inc' !daq and wac trigger stats c c initialize the epio banks stats counters c stat_evth = 0 stat_dwpc = 0 stat_adc = 0 stat_fadc = 0 stat_tdc = 0 stat_scaler = 0 stat_runh = 0 stat_slow_pc = 0 stat_slow_sps = 0 stat_slow_beam = 0 c c intialize the daq and wac trigger stats counters c stat_daq_e = 0 stat_daq_epi = 0 stat_daq_mu = 0 stat_random = 0 stat_random_hard = 0 stat_wac_c = 0 stat_wac_epi = 0 stat_wac_mu = 0 c end