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

Analyzer/Replay: Mark Jones, Documents: Stephen Wood