c Normalized ADC value REAL adc_c(4,12),adctof_c(4,12),tdc_c(4,12) INTEGER tofmask(4,12) REAL xtofpos(3),ytofpos(3) REAL beta_a(13), betatof_a(13) INTEGER tof_i_flag(6),tof_j_flag(6) INTEGER adcflagtof(4,12),tdcflagtof(4,12) INTEGER adcflag(4,12),tdcflag(4,12) common /tofoutput/beta_a,betatof_a, & xtofpos,ytofpos,adc_c,adctof_c,tdc_c, & tofmask, & tof_i_flag,tof_j_flag, & adcflagtof,tdcflagtof, & adcflag,tdcflag SAVE /tofoutput/