Analyzer/INCLUDE/sos_calorimeter.cmn - annotate

Return to sos_calorimeter.cmn CVS log

Up to [HallC] / Analyzer / INCLUDE

1 cdaq 1.1 * 2 * SOS calorimeter. Parameters from sos_positions.parm
3 cdaq 1.2 * $Log: sos_calorimeter.cmn,v $
4 saw 1.8 * Revision 1.7 1996/01/17 15:13:07 cdaq 5 * (JRA) Add normalized event quantities 6 *
7 cdaq 1.7 * Revision 1.6 1995/08/11 16:27:59 cdaq 8 * (JRA) Add accumulators for calorimeter 9 *
10 cdaq 1.6 * Revision 1.5 1995/05/22 19:06:46 cdaq 11 * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts 12 *
13 cdaq 1.5 * Revision 1.4 1995/03/13 19:02:05 cdaq 14 * (JRA) Move smax_cal_rows and smax_cal_columns to gen_data_structures 15 *
16 cdaq 1.4 * Revision 1.3 1994/11/21 17:59:01 cdaq 17 * (SPB) Recopied from hms file and modified names for SOS 18 *
19 cdaq 1.3 * Revision 1.2 1994/08/05 21:03:44 cdaq 20 * (SAW) Add makereg directive with required include files 21 * Add "CTPTYPE=event,parm" directive for auto generation of CTP reg calls 22 *
23 cdaq 1.2 * Revision 1.1 1994/04/13 19:00:49 cdaq 24 * Initial revision 25 * 26 * The following include statments must precede the inclusion of this 27 * file in each routine that uses it. The %% syntax is also a 28 directive to makereg to tell it to include the code in the program 29 * that it generates.
30 cdaq 1.1 *
31 cdaq 1.5 *%% include 'sos_data_structures.cmn'
32 cdaq 1.2 * 33 * CTPTYPE=parm 34 *
35 cdaq 1.1 real4 scal_1pr_zpos ! Z positions of front of shower counter layers 36 real4 scal_2ta_zpos ! 37 real4 scal_3ta_zpos ! 38 real4 scal_4ta_zpos ! 39 real4 scal_1pr_thick ! Thickness of shower counter blocks 40 real4 scal_2ta_thick ! 41 real4 scal_3ta_thick ! 42 real4 scal_4ta_thick ! 43 integer4 scal_1pr_nr !Number of shower blocks per column 44 integer4 scal_2ta_nr ! 45 integer4 scal_3ta_nr ! 46 integer4 scal_4ta_nr ! 47 real4 scal_1pr_left !Y position, column #1 48 real4 scal_1pr_right ! 49 real4 scal_1pr_top ! X positions, column #1 50 real4 scal_2ta_left ! Y position, column #2 51 real4 scal_2ta_right ! 52 real4 scal_2ta_top ! X positions, column#2 53 real4 scal_3ta_left ! Y position, column #3 54 real4 scal_3ta_right ! 55 real4 scal_3ta_top ! X positions, column #3 56 cdaq 1.1 real4 scal_4ta_left ! Y position, column #4 57 real4 scal_4ta_right ! 58 real4 scal_4ta_top ! X positions, column #4
59 cdaq 1.3 REAL*4 SCAL_SLOP !SLOP IN DISTANCE BETWEEN TRACK AND BLOCK
60 cdaq 1.1 common/sos_cal_parms/ 61 & scal_1pr_zpos, 62 & scal_2ta_zpos, 63 & scal_3ta_zpos, 64 & scal_4ta_zpos, 65 & scal_1pr_thick, 66 & scal_2ta_thick, 67 & scal_3ta_thick, 68 & scal_4ta_thick, 69 & scal_1pr_nr, 70 & scal_2ta_nr, 71 & scal_3ta_nr, 72 & scal_4ta_nr, 73 & scal_1pr_left, 74 & scal_1pr_right, 75 & scal_1pr_top(smax_cal_rows), 76 & scal_2ta_left, 77 & scal_2ta_right, 78 & scal_2ta_top(smax_cal_rows), 79 & scal_3ta_left, 80 & scal_3ta_right, 81 cdaq 1.1 & scal_3ta_top(smax_cal_rows), 82 & scal_4ta_left, 83 & scal_4ta_right,
84 cdaq 1.3 & scal_4ta_top(smax_cal_rows), 85 & scal_slop
86 cdaq 1.1 * 87 * SOS calorimeter. Geometrical constants filled by s_init_cal 88 * 89 real4 scal_block_xsize ! 90 real4 scal_block_ysize !Block dimensions - 107010 cm^3 91 real4 scal_block_zsize ! 92 real4 scal_block_xc ! 93 real4 scal_block_yc !X,Y,Z coordinates of block centers 94 real4 scal_block_zc ! 95 real4 scal_xmin ! 96 real4 scal_xmax ! 97 real4 scal_ymin !Boundaries of the SOS 98 real4 scal_ymax !calorimeter stack 99 real4 scal_zmin ! 100 real4 scal_zmax ! 101 real4 scal_fv_xmin ! 102 real4 scal_fv_xmax ! 103 real4 scal_fv_ymin !Boundaries of the 104 real4 scal_fv_ymax !fiducial volume 105 real4 scal_fv_zmin ! 106 real4 scal_fv_zmax ! 107 cdaq 1.1 common/sos_geometry_cal/ 108 & scal_block_xsize, 109 & scal_block_ysize, 110 & scal_block_zsize, 111 & scal_block_xc(smax_cal_blocks), 112 & scal_block_yc(smax_cal_blocks), 113 & scal_block_zc(smax_cal_blocks), 114 & scal_xmin,scal_xmax, 115 & scal_ymin,scal_ymax, 116 & scal_zmin,scal_zmax, 117 & scal_fv_xmin,scal_fv_xmax, 118 & scal_fv_ymin,scal_fv_ymax, 119 & scal_fv_zmin,scal_fv_zmax 120 * 121 * SOS calorimeter. Sparsified data filled by s_sparsify_cal 122 *
123 cdaq 1.3 * CTPTYPE=event 124 *
125 cdaq 1.1 integer4 scal_rows !Row number. Copied from sos_raw_cal 126 integer4 scal_cols !Column number. Copied from sos_raw_cal 127 real4 scal_adcs !Pulse height in channels(ADC-PED). 128 integer4 scal_num_hits !Total number of hits above threshold 129 common/sos_sparsified_cal/ 130 & scal_rows(smax_cal_blocks), 131 & scal_cols(smax_cal_blocks), 132 & scal_adcs(smax_cal_blocks), 133 & scal_num_hits 134 * 135 * SOS calorimeter. Cluster data, filled by s_clusters_cal 136 * 137 integer4 snclusters_max !Number of clusters allowed in the calorimeter 138 parameter (snclusters_max=5) !Set the maximum to 5 139 integer4 snclusters_cal !Number of clusters found 140 integer4 scluster_hit !Link pointer to cluster number for each hit 141 integer4 scluster_size !Number of hits in a cluster 142 real4 scluster_xc !X-coordinate of a cluster 143 real4 scluster_e1 !Energy deposition in column #1 144 real4 scluster_e2 ! #2 145 real4 scluster_e3 ! #3 146 cdaq 1.1 real4 scluster_e4 ! #4 147 real4 scluster_et !Total energy deposition 148 common/sos_clusters_cal/ 149 & scluster_hit(smax_cal_blocks), 150 & scluster_size(snclusters_max), 151 & scluster_xc(snclusters_max), 152 & scluster_e1(snclusters_max), 153 & scluster_e2(snclusters_max), 154 & scluster_e3(snclusters_max), 155 & scluster_e4(snclusters_max), 156 & scluster_et(snclusters_max), 157 & snclusters_cal 158 * 159 * SOS calorimeter. Calorimeter track quantities,filled by s_tracks_cal 160 * 161 real4 strack_xc !X,Y position of track on 162 real4 strack_yc ! calorimeter front surface 163 integer4 scluster_track !Link pointer to calorimeter cluster number 164 integer4 sntracks_cal !Number of tracks for which a cluster was found 165 common/sos_tracks_cal/ 166 & strack_xc(sntracks_max), 167 cdaq 1.1 & strack_yc(sntracks_max), 168 & scluster_track(sntracks_max), 169 & sntracks_cal
170 cdaq 1.2 * 171 * CTPTYPE=parm
172 cdaq 1.1 * 173 * SOS calorimeter. ADC pedestals and thresholds 174 * 175 real4 scal_ped_mean !Mean pedestal value 176 real4 scal_ped_rms !Pedestal rms deviation 177 real4 scal_threshold !Threshold=3.scal_ped_rms 178 common/sos_cal_pedestals/ 179 & scal_ped_mean(smax_cal_blocks), 180 & scal_ped_rms(smax_cal_blocks), 181 & scal_threshold(smax_cal_blocks) 182 * 183 * SOS calorimeter. Calibration constants 184 * 185 real4 scal_cal_const !Calibration constants 186 common/sos_cal_const/ 187 & scal_cal_const(smax_cal_blocks) 188 189 * SOS calorimeter. Relative gains & correction factors 190 * 191 real4 scal_gain_ini !Relative gains during the last calibration 192 real4 scal_gain_cur !Current relative gains 193 cdaq 1.1 real4 scal_gain_cor !Correction factor: cor=ini/cur 194 common/sos_cal_monitor/ 195 & scal_gain_ini(smax_cal_blocks), 196 & scal_gain_cur(smax_cal_blocks), 197 & scal_gain_cor(smax_cal_blocks) 198 199 * SOS calorimeter. Debuging LUN and flags 200 * 201 integer4 slun_dbg_cal 202 integer4 sdbg_raw_cal 203 integer4 sdbg_sparsified_cal 204 integer4 sdbg_decoded_cal 205 integer4 sdbg_clusters_cal 206 integer4 sdbg_tracks_cal 207 integer*4 sdbg_tests_cal 208 common/sos_cal_flags/ 209 & slun_dbg_cal, 210 & sdbg_raw_cal, 211 & sdbg_sparsified_cal, 212 & sdbg_decoded_cal, 213 & sdbg_clusters_cal, 214 cdaq 1.1 & sdbg_tracks_cal, 215 & sdbg_tests_cal
216 cdaq 1.6 217 218 * 219 * CTPTYPE=event 220 * 221 integer4 scal_zero_sum(smax_cal_blocks) 222 integer4 scal_zero_sum2(smax_cal_blocks) 223 integer4 scal_zero_num(smax_cal_blocks) 224 real4 scal_zero_ave(smax_cal_blocks) 225 real4 scal_zero_sig(smax_cal_blocks) 226 real4 scal_zero_thresh(smax_cal_blocks) 227 228 common /sos_cal_zero/ 229 & scal_zero_ave, 230 & scal_zero_sig, 231 & scal_zero_thresh, 232 & scal_zero_num, 233 & scal_zero_sum, 234 & scal_zero_sum2
235 cdaq 1.7 236 * 237 * CTPTYPE=event 238 * 239 real4 sscal_suma !normalized sum of layer A. 240 real4 sscal_sumb !normalized sum of layer B. 241 real4 sscal_sumc !normalized sum of layer C. 242 real4 sscal_sumd !normalized sum of layer D. 243 real4 ssprsum !normalized PR sum. 244 real4 ssshsum !normalized total sum. 245 real4 ssprtrk !normalized PR sum on track. 246 real4 ssshtrk !normalized total sum on track.
247 saw 1.8 real*4 ssshtrk3 !normalized sum of first 3 layers on track.
248 cdaq 1.7 249 common /sos_cal_normalized/ 250 & sscal_suma, 251 & sscal_sumb, 252 & sscal_sumc, 253 & sscal_sumd, 254 & ssprsum, 255 & ssshsum, 256 & ssprtrk,
257 saw 1.8 & ssshtrk, 258 & ssshtrk3

Analyzer/Replay: Mark Jones, Documents: Stephen Wood