c c *** WARNING *** c must be preceded by the include file hec_par.inc c c online mode common c c c online mode flag c logical onflag c c flag for end of run c logical eorflag c c flag for existence of online runfile c logical runfile c c run number of requested data file c integer irun c c input file name for online data c character*18 infname c c user requests trigger type to look at for this run c integer trigreq c c sums to find average energy in each depth c real depth_mom0(i_z_max),depth_mom1(i_z_max),depth_frac(i_z_max) integer pion_count,elec_count,phys_trig_count c c count number of triggers processed c integer i_proc c common /sssonline/onflag,eorflag,runfile,irun,trigreq, + depth_mom0,depth_mom1,depth_frac,i_proc, + pion_count, elec_count, phys_trig_count, + infname c