Analyzer/INCLUDE/hms_scin_parms.cmn - annotate

Return to hms_scin_parms.cmn CVS log

Up to [HallC] / Analyzer / INCLUDE

1 cdaq 1.1 * hms_scin_parms.cmn - two common blocks: 2 * 3 * hms_scin_parms - variables from the hms_positions.parm file 4 * hms_tof_parms - tof correction parameters and position parameters 5 * converted to arrays over plane,counter by h_init_scin. 6 * 7 * NOTE: Variables whose names start with hHODO are arrays over 8 * plane and counter. hSCIN is used for parameters from the 9 * .parm files and for arrays over hits. 10 * 11 * Modified 23 March 1994 DFG 12 * Add definition of hnum_scin_elements and set parameter value
13 cdaq 1.2 * $Log: hms_scin_parms.cmn,v $
14 cdaq 1.8 * Revision 1.7 1995/05/22 19:11:18 cdaq 15 * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts. 16 * Make pedestal arrays real. Add hms_scin_positions and hms_misc_parms commons 17 *
18 cdaq 1.7 * Revision 1.6 1995/03/13 19:08:45 cdaq 19 * (JRA) Move hnum_scin_elements to gen_data_structures, remove 20 * hscin_num_counters. Change hscin_??_top and _left to center and offset. 21 * Add hscin_??_spacing parms. Change hhodo_center_coord to hhodo_center. 22 * Add hhodo_???_minph tables. 23 *
24 cdaq 1.6 * Revision 1.5 1994/09/13 21:01:55 cdaq 25 * (JRA) Include arrays for scintillator pedestals 26 *
27 cdaq 1.5 * Revision 1.4 1994/09/13 19:24:18 cdaq 28 * (JRA) Remove hhodo_zpos, add staggering of scintillators 29 *
30 cdaq 1.4 * Revision 1.3 1994/08/05 15:27:18 cdaq 31 * (SAW) Add makereg directive with required include files 32 *
33 cdaq 1.3 * Revision 1.2 1994/08/04 17:55:08 cdaq 34 * (SAW) Add "CTPTYPE=parm" directive for auto generation of CTP reg calls 35 *
36 cdaq 1.2 * Revision 1.1 1994/04/12 21:10:43 cdaq 37 * Initial revision
38 cdaq 1.3 * 39 * The following include statments must precede the inclusion of this 40 * file in each routine that uses it. The %% syntax is also a 41 directive to makereg to tell it to include the code in the program 42 * that it generates. 43 *
44 cdaq 1.7 *%% include 'hms_data_structures.cmn'
45 cdaq 1.2 * 46 * CTPTYPE=parm 47 *
48 cdaq 1.1 * from parameter file 49 integer4 hscin_1x_nr 50 integer4 hscin_1y_nr 51 integer4 hscin_2x_nr 52 integer4 hscin_2y_nr 53 integer4 hdebugprintscinraw 54 integer4 hdebugprintscindec 55 integer4 hdebugprinttoftracks 56 integer4 hdebugprinttracktests 57 real4 hscin_1x_zpos 58 real4 hscin_1y_zpos 59 real4 hscin_2x_zpos 60 real4 hscin_2y_zpos
61 cdaq 1.4 real4 hscin_1x_dzpos 62 real4 hscin_1y_dzpos 63 real4 hscin_2x_dzpos 64 real4 hscin_2y_dzpos
65 cdaq 1.1 real4 hscin_1x_left 66 real4 hscin_1y_top 67 real4 hscin_2x_left 68 real4 hscin_2y_top 69 real4 hscin_1x_right 70 real4 hscin_1y_bot 71 real4 hscin_2x_right 72 real4 hscin_2y_bot
73 cdaq 1.6 real4 hscin_1x_center(hnum_scin_elements) 74 real4 hscin_1y_center(hnum_scin_elements) 75 real4 hscin_2x_center(hnum_scin_elements) 76 real4 hscin_2y_center(hnum_scin_elements) 77 real4 hscin_1x_offset 78 real4 hscin_1y_offset 79 real4 hscin_2x_offset 80 real4 hscin_2y_offset
81 cdaq 1.1 real4 hscin_1x_size 82 real4 hscin_1y_size 83 real4 hscin_2x_size 84 real4 hscin_2y_size
85 cdaq 1.6 real4 hscin_1x_spacing 86 real4 hscin_1y_spacing 87 real4 hscin_2x_spacing 88 real4 hscin_2y_spacing
89 cdaq 1.7 real4 hscin_all_ped_pos(hnum_scin_planes,hnum_scin_elements) 90 real4 hscin_all_ped_neg(hnum_scin_planes,hnum_scin_elements)
91 cdaq 1.1 92 common/hms_scin_parms/ !variables from h_positions.parm 93 & hscin_1x_nr, hscin_1y_nr, !Elements per plane 94 & hscin_2x_nr, hscin_2y_nr, 95 & hscin_1x_zpos, hscin_1y_zpos, !z position of plane. 96 & hscin_2x_zpos, hscin_2y_zpos,
97 cdaq 1.4 & hscin_1x_dzpos, hscin_1y_dzpos, 98 & hscin_2x_dzpos, hscin_2y_dzpos,
99 cdaq 1.1 & hscin_1x_left, hscin_1y_top, !position of 'negative'(??) end. 100 & hscin_2x_left, hscin_2y_top, 101 & hscin_1x_right, hscin_1y_bot, !position of 'positive'(??) end. 102 & hscin_2x_right, hscin_2y_bot,
103 cdaq 1.6 & hscin_1x_center, hscin_1y_center, !center (transverse) of element. 104 & hscin_2x_center, hscin_2y_center,
105 cdaq 1.1 & hscin_1x_size, hscin_1y_size, !width of elements. 106 & hscin_2x_size, hscin_2y_size,
107 cdaq 1.6 & hscin_1x_spacing, hscin_1y_spacing, !separation of centers. 108 & hscin_2x_spacing, hscin_2y_spacing,
109 cdaq 1.1 & hdebugprintscinraw, 110 & hdebugprintscindec, 111 & hdebugprinttoftracks,
112 cdaq 1.5 & hdebugprinttracktests, 113 & hscin_all_ped_pos,
114 cdaq 1.6 & hscin_all_ped_neg, 115 & hscin_1x_offset, hscin_1y_offset, !offset from nominal trans pos. 116 & hscin_2x_offset, hscin_2y_offset 117
118 cdaq 1.1 * Physical paramteres of counters. Use hhodo_* for arrays that include 119 * the entire hodoscope, hscin_* for arrays that loop over hits. 120 real*4 hnum_scin_counters(hnum_scin_planes)
121 cdaq 1.6 real*4 hhodo_center(hnum_scin_planes,hnum_scin_elements)
122 cdaq 1.1 real4 hhodo_width(hnum_scin_planes,hnum_scin_elements) 123 real4 hhodo_pos_coord(hnum_scin_planes,hnum_scin_elements) 124 real4 hhodo_neg_coord(hnum_scin_planes,hnum_scin_elements) 125 126 callibration type variables. 127 real4 hhodo_slop(hnum_scin_planes) 128 real4 hhodo_vel_light(hnum_scin_planes,hnum_scin_elements) 129 real4 hhodo_pos_sigma(hnum_scin_planes,hnum_scin_elements) 130 real4 hhodo_neg_sigma(hnum_scin_planes,hnum_scin_elements) 131 real4 hhodo_pos_phc_coeff(hnum_scin_planes,hnum_scin_elements) 132 real4 hhodo_neg_phc_coeff(hnum_scin_planes,hnum_scin_elements) 133 real4 hhodo_pos_time_offset(hnum_scin_planes,hnum_scin_elements) 134 real4 hhodo_neg_time_offset(hnum_scin_planes,hnum_scin_elements)
135 cdaq 1.6 real4 hhodo_pos_minph(hnum_scin_planes,hnum_scin_elements) ! ADC offset for PH correction 136 real4 hhodo_neg_minph(hnum_scin_planes,hnum_scin_elements) ! ADC offset for PH correction
137 cdaq 1.1 138 * correction parameters and position information converted to arryas 139 * over plane and counter 140 141 common/hms_tof_parms/ 142 & hnum_scin_counters,
143 cdaq 1.6 & hhodo_center,
144 cdaq 1.1 & hhodo_width, 145 & hhodo_pos_coord, 146 & hhodo_neg_coord, 147 & hhodo_slop, 148 & hhodo_vel_light, 149 & hhodo_pos_sigma, 150 & hhodo_neg_sigma, 151 & hhodo_pos_phc_coeff, 152 & hhodo_neg_phc_coeff, 153 & hhodo_pos_time_offset,
154 cdaq 1.6 & hhodo_neg_time_offset, 155 $ hhodo_pos_minph, 156 $ hhodo_neg_minph
157 cdaq 1.7 * 158 * 159 * hms_scin_positions.cmn - common block with the variables used 160 * to calculate/verify detector positions. 161 * 162 * 163 * CTPTYPE=parm 164 * 165 real4 hscin_dpos_slop 166 real4 hscin_dpos_maxchisq 167 * 168 * CTPTYPE=event 169 * 170 171 real4 hscin_dpos(hnum_scin_planes,hnum_scin_elements) 172 real4 hscin_dpos_sum(hnum_scin_planes,hnum_scin_elements) 173 real4 hscin_dpos_sum2(hnum_scin_planes,hnum_scin_elements) 174 real4 hscin_dpos_ave(hnum_scin_planes,hnum_scin_elements) 175 real4 hscin_dpos_sig(hnum_scin_planes,hnum_scin_elements) 176 integer4 hscin_num_dpos(hnum_scin_planes,hnum_scin_elements) 177 real4 hscin_tot_dpos_sum(hnum_scin_planes) 178 cdaq 1.7 real4 hscin_tot_dpos_ave(hnum_scin_planes) 179 integer4 hscin_tot_num_dpos(hnum_scin_planes) 180 181 common/hms_scin_positions/ 182 & hscin_dpos, ! x(y) of track - x(y) of center of scin. 183 & hscin_dpos_sum, ! sum of position differences 184 & hscin_dpos_sum2, ! sum of pos. differences squared 185 & hscin_num_dpos, ! number of position measurements 186 & hscin_dpos_ave, ! average of position differences 187 & hscin_dpos_sig, ! sigma of position differences 188 & hscin_dpos_slop, ! cut used to determine if scin. is on track 189 & hscin_dpos_maxchisq,! chisq cut for good pos. measurement. 190 & hscin_tot_dpos_sum, ! sum of pos. differences per plane. 191 & hscin_tot_dpos_ave, ! ave pos. diff per plane. 192 & hscin_tot_num_dpos ! num. position measurements per plane. 193 194 * 195 * hms_misc_parms.cmn - misc tdc's filled as array over signal number 196 * (tdc is sparsified, so the raw signals are array over hits) 197 *
198 cdaq 1.8 * CTPTYPE=parm 199 * 200 integer*4 hnum_misc_planes 201 parameter(hnum_misc_planes=2)
202 cdaq 1.7 * 203 * CTPTYPE=event 204 *
205 cdaq 1.8 integer*4 hmisc_dec_data(hmax_misc_hits,hnum_misc_planes)
206 cdaq 1.7 207 common/hms_misc_parms/ 208 & hmisc_dec_data

Analyzer/Replay: Mark Jones, Documents: Stephen Wood