subroutine s_trans_cer(abort,errmsg) *------------------------------------------------------------------- * author: Chris Cothran * created: 5/25/95 * * s_trans_cer fills the sos_decoded_cer common block * with track independent corrections and parameters * $Log: s_trans_cer.f,v $ * Revision 1.2 1996/01/17 18:45:10 cdaq * (JRA) Make scer_adc pedestal subtracted value * * Revision 1.1 1995/08/31 15:04:22 cdaq * Initial revision * *------------------------------------------------------------------- implicit none include 'sos_data_structures.cmn' include 'sos_cer_parms.cmn' logical abort character*1024 errmsg character*20 here parameter (here = 's_trans_cer') integer*4 nhit,tube save abort = .false. scer_num_hits = 0 do tube=1,scer_num_mirrors scer_npe(tube) = 0. scer_adc(tube) = 0. enddo scer_npe_sum = 0. do nhit = 1, scer_tot_hits tube = scer_tube_num(nhit) scer_adc(tube) = scer_raw_adc(nhit) - scer_ped(tube) if (scer_adc(tube) .gt. scer_width(tube)) then scer_num_hits = scer_num_hits + 1 scer_tube_num(scer_num_hits) = tube scer_npe(tube) = scer_adc(tube) * scer_adc_to_npe(tube) scer_npe_sum = scer_npe_sum + scer_npe(tube) endif enddo return end