subroutine h_trans_cer(abort,errmsg) *------------------------------------------------------------------- * author: Chris Cothran * created: 5/25/95 * * h_trans_cer fills the hms_decoded_cer common block * with track independent corrections and parameters * $Log: h_trans_cer.f,v $ * Revision 1.2 1996/01/16 21:38:47 cdaq * (JRA) Make hcer_adc pedestal subtracted value * * Revision 1.1 1995/08/30 15:30:15 cdaq * Initial revision * *------------------------------------------------------------------- implicit none include 'hms_data_structures.cmn' include 'hms_cer_parms.cmn' logical abort character*1024 errmsg character*20 here parameter (here = 'h_trans_cer') integer*4 nhit,tube save abort = .false. hcer_num_hits = 0 do tube=1,hcer_num_mirrors hcer_npe(tube) = 0. hcer_adc(tube) = 0. enddo hcer_npe_sum = 0. do nhit = 1, hcer_tot_hits tube = hcer_tube_num(nhit) hcer_adc(tube) = hcer_raw_adc(nhit) - hcer_ped(tube) if (hcer_adc(tube) .gt. hcer_width(tube)) then hcer_num_hits = hcer_num_hits + 1 hcer_tube_num(hcer_num_hits) = tube hcer_npe(tube) = hcer_adc(tube) * hcer_adc_to_npe(tube) hcer_npe_sum = hcer_npe_sum + hcer_npe(tube) endif enddo return end