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