Analyzer/INCLUDE/hms_calorimeter.cmn - annotate - 1.2

Return to hms_calorimeter.cmn CVS log

Up to [HallC] / Analyzer / INCLUDE

1 cdaq 1.1 * 2 * HMS calorimeter. Parameters from hms_positions.parm 3 *
4 cdaq 1.2 * $Log: hms_calorimeter.cmn,v $ 5 * Revision 1.1 1994/04/12 21:32:21 cdaq 6 * Initial revision 7 * 8 * The following include statments must precede the inclusion of this 9 * file in each routine that uses it. The %% syntax is also a 10 directive to makereg to tell it to include the code in the program 11 * that it generates.
12 cdaq 1.1 *
13 cdaq 1.2 %% include 'gen_data_structures.cmn' 14 15 * CTPTYPE=parm 16 *
17 cdaq 1.1 integer4 hmax_cal_rows !Number of calorimeter rows 18 parameter (hmax_cal_rows=12) 19 integer4 hmax_cal_columns !Number of calorimeter columns 20 parameter (hmax_cal_columns=4) 21 real4 hcal_1pr_zpos ! Z positions of front of shower counter layers 22 real4 hcal_2ta_zpos ! 23 real4 hcal_3ta_zpos ! 24 real4 hcal_4ta_zpos ! 25 real4 hcal_1pr_thick ! Thickness of shower counter blocks 26 real4 hcal_2ta_thick ! 27 real4 hcal_3ta_thick ! 28 real4 hcal_4ta_thick ! 29 integer4 hcal_1pr_nr !Number of shower blocks per column 30 integer4 hcal_2ta_nr ! 31 integer4 hcal_3ta_nr ! 32 integer4 hcal_4ta_nr ! 33 real4 hcal_1pr_left !Y position, column #1 34 real4 hcal_1pr_right ! 35 real4 hcal_1pr_top ! X positions, column #1 36 real4 hcal_2ta_left ! Y position, column #2 37 real4 hcal_2ta_right ! 38 cdaq 1.1 real4 hcal_2ta_top ! X positions, column#2 39 real4 hcal_3ta_left ! Y position, column #3 40 real4 hcal_3ta_right ! 41 real4 hcal_3ta_top ! X positions, column #3 42 real4 hcal_4ta_left ! Y position, column #4 43 real4 hcal_4ta_right ! 44 real4 hcal_4ta_top ! X positions, column #4 45 common/hms_cal_parms/ 46 & hcal_1pr_zpos, 47 & hcal_2ta_zpos, 48 & hcal_3ta_zpos, 49 & hcal_4ta_zpos, 50 & hcal_1pr_thick, 51 & hcal_2ta_thick, 52 & hcal_3ta_thick, 53 & hcal_4ta_thick, 54 & hcal_1pr_nr, 55 & hcal_2ta_nr, 56 & hcal_3ta_nr, 57 & hcal_4ta_nr, 58 & hcal_1pr_left, 59 cdaq 1.1 & hcal_1pr_right, 60 & hcal_1pr_top(hmax_cal_rows), 61 & hcal_2ta_left, 62 & hcal_2ta_right, 63 & hcal_2ta_top(hmax_cal_rows), 64 & hcal_3ta_left, 65 & hcal_3ta_right, 66 & hcal_3ta_top(hmax_cal_rows), 67 & hcal_4ta_left, 68 & hcal_4ta_right, 69 & hcal_4ta_top(hmax_cal_rows) 70 * 71 * HMS calorimeter. Geometrical constants filled by h_init_cal 72 * 73 real4 hcal_block_xsize ! 74 real4 hcal_block_ysize !Block dimensions - 107010 cm^3 75 real4 hcal_block_zsize ! 76 real4 hcal_block_xc ! 77 real4 hcal_block_yc !X,Y,Z coordinates of block centers 78 real4 hcal_block_zc ! 79 real4 hcal_xmin ! 80 cdaq 1.1 real4 hcal_xmax ! 81 real4 hcal_ymin !Boundaries of the HMS 82 real4 hcal_ymax !calorimeter stack 83 real4 hcal_zmin ! 84 real4 hcal_zmax ! 85 real4 hcal_fv_xmin ! 86 real4 hcal_fv_xmax ! 87 real4 hcal_fv_ymin !Boundaries of the 88 real4 hcal_fv_ymax !fiducial volume 89 real4 hcal_fv_zmin ! 90 real4 hcal_fv_zmax ! 91 common/hms_geometry_cal/ 92 & hcal_block_xsize, 93 & hcal_block_ysize, 94 & hcal_block_zsize, 95 & hcal_block_xc(hmax_cal_blocks), 96 & hcal_block_yc(hmax_cal_blocks), 97 & hcal_block_zc(hmax_cal_blocks), 98 & hcal_xmin,hcal_xmax, 99 & hcal_ymin,hcal_ymax, 100 & hcal_zmin,hcal_zmax, 101 cdaq 1.1 & hcal_fv_xmin,hcal_fv_xmax, 102 & hcal_fv_ymin,hcal_fv_ymax, 103 & hcal_fv_zmin,hcal_fv_zmax 104 * 105 * HMS calorimeter. Sparsified data filled by h_sparsify_cal 106 *
107 cdaq 1.2 * CTPTYPE=event 108 *
109 cdaq 1.1 integer4 hcal_rows !Row number. Copied from hms_raw_cal 110 integer4 hcal_cols !Column number. Copied from hms_raw_cal 111 real4 hcal_adcs !Pulse height in channels(ADC-PED). 112 integer4 hcal_num_hits !Total number of hits above threshold 113 common/hms_sparsified_cal/ 114 & hcal_rows(hmax_cal_blocks), 115 & hcal_cols(hmax_cal_blocks), 116 & hcal_adcs(hmax_cal_blocks), 117 & hcal_num_hits 118 * 119 * HMS calorimeter. Cluster data, filled by h_clusters_cal 120 * 121 integer4 hnclusters_max !Number of clusters allowed in the calorimeter 122 parameter (hnclusters_max=5) !Set the maximum to 5 123 integer4 hnclusters_cal !Number of clusters found 124 integer4 hcluster_hit !Link pointer to cluster number for each hit 125 integer4 hcluster_size !Number of hits in a cluster 126 real4 hcluster_xc !X-coordinate of a cluster 127 real4 hcluster_e1 !Energy deposition in column #1 128 real4 hcluster_e2 ! #2 129 real4 hcluster_e3 ! #3 130 cdaq 1.1 real4 hcluster_e4 ! #4 131 real4 hcluster_et !Total energy deposition 132 common/hms_clusters_cal/ 133 & hcluster_hit(hmax_cal_blocks), 134 & hcluster_size(hnclusters_max), 135 & hcluster_xc(hnclusters_max), 136 & hcluster_e1(hnclusters_max), 137 & hcluster_e2(hnclusters_max), 138 & hcluster_e3(hnclusters_max), 139 & hcluster_e4(hnclusters_max), 140 & hcluster_et(hnclusters_max), 141 & hnclusters_cal 142 * 143 * HMS calorimeter. Calorimeter track quantities,filled by h_tracks_cal 144 * 145 real4 htrack_xc !X,Y position of track on 146 real4 htrack_yc ! calorimeter front surface 147 integer4 hcluster_track !Link pointer to calorimeter cluster number 148 integer4 hntracks_cal !Number of tracks for which a cluster was found 149 common/hms_tracks_cal/ 150 & htrack_xc(hntracks_max), 151 cdaq 1.1 & htrack_yc(hntracks_max), 152 & hcluster_track(hntracks_max), 153 & hntracks_cal
154 cdaq 1.2 * 155 * CTPTYPE=parm 156 *
157 cdaq 1.1 * 158 * HMS calorimeter. ADC pedestals and thresholds 159 * 160 real4 hcal_ped_mean !Mean pedestal value 161 real4 hcal_ped_rms !Pedestal rms deviation 162 real4 hcal_threshold !Threshold=3.hcal_ped_rms 163 common/hms_cal_pedestals/ 164 & hcal_ped_mean(hmax_cal_blocks), 165 & hcal_ped_rms(hmax_cal_blocks), 166 & hcal_threshold(hmax_cal_blocks) 167 * 168 * HMS calorimeter. Calibration constants 169 * 170 real4 hcal_cal_const !Calibration constants 171 common/hms_cal_const/ 172 & hcal_cal_const(hmax_cal_blocks) 173 174 * HMS calorimeter. Relative gains & correction factors 175 * 176 real4 hcal_gain_ini !Relative gains during the last calibration 177 real4 hcal_gain_cur !Current relative gains 178 cdaq 1.1 real4 hcal_gain_cor !Correction factor: cor=ini/cur 179 common/hms_cal_monitor/ 180 & hcal_gain_ini(hmax_cal_blocks), 181 & hcal_gain_cur(hmax_cal_blocks), 182 & hcal_gain_cor(hmax_cal_blocks) 183 184 * HMS calorimeter. Debuging LUN and flags 185 * 186 integer4 hlun_dbg_cal 187 integer4 hdbg_raw_cal 188 integer4 hdbg_sparsified_cal 189 integer4 hdbg_decoded_cal 190 integer4 hdbg_clusters_cal 191 integer4 hdbg_tracks_cal 192 integer*4 hdbg_tests_cal 193 common/hms_cal_flags/ 194 & hlun_dbg_cal, 195 & hdbg_raw_cal, 196 & hdbg_sparsified_cal, 197 & hdbg_decoded_cal, 198 & hdbg_clusters_cal, 199 cdaq 1.1 & hdbg_tracks_cal, 200 & hdbg_tests_cal

Analyzer/Replay: Mark Jones, Documents: Stephen Wood

Powered by
ViewCVS 0.9.2-cvsgraph-1.4.0