*======================================================================= subroutine h_prt_cal_raw *======================================================================= *- *- Dumps the raw calorimeter data *- *- Created: 19 Mar 1994 Tsolak A. Amatuni *- Modified 25 Mar 1994 DFG *- Change name *- Change lun *- 7 Apr 1884 DFG Change print order * $Log: h_prt_cal_raw.f,v $ * Revision 1.5 1998/12/17 22:02:39 saw * Support extra set of tubes on HMS shower counter * * Revision 1.4 1995/07/19 18:54:55 cdaq * *** empty log message *** * * Revision 1.3 1995/05/22 19:39:20 cdaq * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts" * * Revision 1.2 1995/01/27 20:26:00 cdaq * (JRA) Subtract pedestal from ADC value * * Revision 1.1 1994/04/13 15:41:33 cdaq * Initial revision * *----------------------------------------------------------------------- * implicit none save * integer*4 hit !Hit number integer*4 row,col,nb real*4 adc_pos,adc_neg * include 'hms_data_structures.cmn' include 'hms_calorimeter.cmn' include 'hms_tracking.cmn' * write(hlun_dbg_cal,10) hcal_tot_hits 10 format(///' HMS Calorimeter Raw Data ',/, & ' Total Number of Hits:',i3, //, & ' Hit # Column # Row # ADC Value') * * if(hcal_tot_hits.le.0) return * do hit=1,hcal_tot_hits row=hcal_row(hit) col=hcal_column(hit) nb =row+hmax_cal_rows*(col-1) adc_pos=float(hcal_adc_pos(hit))-hcal_pos_ped_mean(nb) adc_neg=float(hcal_adc_neg(hit))-hcal_neg_ped_mean(nb) if(col.le.hcal_num_neg_columns) then write(hlun_dbg_cal,20) & hit,hcal_column(hit),hcal_row(hit),adc_pos,adc_neg 20 format(i5,3x,i5,4x,i5,7x,2f8.1) else write(hlun_dbg_cal,20) & hit,hcal_column(hit),hcal_row(hit),adc_pos endif enddo * return end