1 cdaq 1.1 * This include file contains all the variables required for h_physics
|
2 cdaq 1.2 * $Log: hms_physics_sing.cmn,v $
|
3 jones 1.10 * Revision 1.9 2003/09/08 21:03:03 jones
4 * Change h_phicentral_offset to h_oopcentral_offset (mkj)
5 *
|
6 jones 1.9 * Revision 1.8 2002/09/24 20:29:04 jones
7 * add parameters hphicentral_offset, hpcentral_offset,
8 * hthetacentral_offset
9 *
|
10 jones 1.8 * Revision 1.7 1999/02/23 19:16:52 csa
11 * Add some physics vars
12 *
|
13 csa 1.7 * Revision 1.6 1996/09/04 16:11:28 saw
14 * (JRA,DD) Add some egamma variables and some angle/momentum offset
15 * variables
16 *
|
17 saw 1.6 * Revision 1.5 1996/04/30 13:39:20 saw
18 * (JRA) Add pathlength, rf, and photodisintigration variables
19 *
|
20 saw 1.5 * Revision 1.4 1995/09/01 13:03:31 cdaq
21 * (JRA) Add cerenkov position variables
22 *
|
23 cdaq 1.4 * Revision 1.3 1995/01/27 20:18:34 cdaq
24 * (JRA) Add hms_tmp_stuff array of useful physics quantities
25 *
|
26 cdaq 1.3 * Revision 1.2 1994/08/05 19:37:37 cdaq
27 * (SAW) Add "CTPTYPE=event,parm" directives for auto generation of CTP reg calls
28 *
|
29 cdaq 1.2 * Revision 1.1 1994/06/14 03:25:33 cdaq
30 * Initial revision
31 *
32 * CTPTYPE=event
33 *
|
34 cdaq 1.1 * Event varaibles to calculate
35 REAL*4 HSELAS_COR ! Difference between momentum measured
36 ! by tracking and elastic kinematics
37 COMMON/HMS_PHYSIC_SING/
|
38 cdaq 1.2 & HSELAS_COR
|
39 cdaq 1.1 *
|
40 cdaq 1.2 * CTPTYPE=parm
41 *
|
42 cdaq 1.1 * initializiation paramters
|
43 cdaq 1.2 REAL*4 HPHYSICSA ! Coefficients of p3 in elastic cal
44 REAL*4 HPHYSICSB !
45 REAL*4 HPHYSICAB2 !
46 REAL*4 HPHYSICSM3B !
47 REAL*4 COSHTHETAS ! COS(HTHETA_LAB)
48 REAL*4 SINHTHETAS ! SIN(HTHETA_LAB)
|
49 cdaq 1.1 COMMON/HMS_PHYSICS_PARAM_R4/
|
50 cdaq 1.2 & HPHYSICSA,
51 & HPHYSICSB,
52 & HPHYSICAB2,
53 & HPHYSICSM3B,
54 & COSHTHETAS,
55 & SINHTHETAS
56 *
57 * Parameters that select the best track. Note these should be
58 * loose cuts to make sure we select one track. The final
59 * tighter cuts should be made with tests.
60 *
61 REAL*4 hsel_chi2_fpperdegmax ! Maximun chi2 per degree of freedom
62 ! at the focal plane
63 REAL*4 hsel_dedx1min ! Minimum dedx in chamber 1
64 REAL*4 hsel_dedx1max ! Maximum dedx in chamber 1
65 REAL*4 hsel_betamin ! Minimum beta
66 REAL*4 hsel_betamax ! Maximum beta
67 REAL*4 hsel_etmin ! Minimum track et
68 REAL*4 hsel_etmax ! Maximum track et
|
69 cdaq 1.1
|
70 cdaq 1.2 INTEGER*4 hsel_ndegreesmin ! Minimum number of degrees of freedom
|
71 jones 1.10 INTEGER*4 hsel_using_scin ! =1 select best track using scin info
72 ! = 0 select best track suing just chi2
|
73 cdaq 1.2 *
74 COMMON/hms_chose_one_track_r4/
75 & hsel_chi2_fpperdegmax,
76 & hsel_dedx1min,
77 & hsel_dedx1max,
78 & hsel_betamin,
79 & hsel_betamax,
80 & hsel_etmin,
81 & hsel_etmax
|
82 cdaq 1.1 *
|
83 cdaq 1.2 COMMON/hms_chose_one_track_i4/
|
84 jones 1.10 & hsel_ndegreesmin,hsel_using_scin
|
85 cdaq 1.3
86 *
87 * CTPTYPE=event
88 *
89 real*4 hsx_dc1, hsy_dc1
90 real*4 hsx_dc2, hsy_dc2
91 real*4 hsx_s1, hsy_s1
|
92 cdaq 1.4 real*4 hsx_cer, hsy_cer
|
93 cdaq 1.3 real*4 hsx_s2, hsy_s2
94 real*4 hsx_cal, hsy_cal
95 integer*4 hsscin_elem_hit(4)
96
97 COMMON/hms_tmp_stuff/
98 & hsx_dc1, hsy_dc1,
99 & hsx_dc2, hsy_dc2,
100 & hsx_s1, hsy_s1,
|
101 cdaq 1.4 & hsx_cer, hsy_cer,
|
102 cdaq 1.3 & hsx_s2, hsy_s2,
103 & hsx_cal, hsy_cal,
104 & hsscin_elem_hit
|
105 saw 1.5
106 *
107 * CTPTYPE=parm
108 *
109 real*4 hpathlength_central
110 *
111 * CTPTYPE=event
112 *
113 real*4 hsbeta_p
114 real*4 hspathlength
115 real*4 hspath_cor
116 real*4 hsrftime
117
118 COMMON/hms_timing_stuff/
119 & hpathlength_central,
120 & hsbeta_p,
121 & hspathlength,
122 & hspath_cor,
123 & hsrftime
124
125 *
126 saw 1.5 * CTPTYPE=event
127 *
128 real*4 hqx,hqy,hqz,hqabs
129 real*4 hinvmass
130
131 common/hms_physics_quantaties/
132 & hqx,hqy,hqz,hqabs,
133 & hinvmass
134
135
136 c------------------------------------------------------------------
137 c For photodisintegration calculations.
138 c M.Miller, NPL UIUC, 10-Sept-1995, miller5@uiuc.edu
139 *
140 * CTPTYPE=parm
141 *
142 real*4 hphoto_mtarget ! Mass of target [Gev/c^2]
143 real*4 hphoto_mrecoil ! Mass of recoil system [Gev/c^2]
144 *
145 * CTPTYPE=event
146 *
147 saw 1.5 real*4 hsegamma
|
148 saw 1.6 real*4 hsegamma_p !Egamma, assuming proton
149 real*4 hsegamma_d !Egamma, assuming deuteron
|
150 saw 1.5
151 common /hms_photo_param/
152 & hphoto_mtarget,
153 & hphoto_mrecoil,
|
154 saw 1.6 & hsegamma,
155 & hsegamma_p,
156 & hsegamma_d
157
158 *
159 * CTPTYPE=parm
160 *
161 c D.Dutta, 24th-Apr-1996
162 real*4 hdelta_offset ! hms delta offset
163 real*4 htheta_offset ! hms scatteringangel offset
164 real*4 hphi_offset
165 real*4 hmomentum_factor ! multiplier for the hms momentum
|
166 jones 1.8 c J.Volmer, 9th-Jul-1999
167 real*4 hpcentral_offset ! hms central momentum offset
168 real*4 hthetacentral_offset ! hms central angle offset
|
169 jones 1.9 real*4 h_oopcentral_offset ! hms central oop angle offset
|
170 saw 1.6 *
171 * CTPTYPE=event
172 *
173 common /hms_offsets/
174 & hdelta_offset,
175 & htheta_offset,
176 & hphi_offset,
|
177 jones 1.8 & hmomentum_factor,
178 & hpcentral_offset,
179 & hthetacentral_offset,
|
180 jones 1.9 & h_oopcentral_offset
|
181 csa 1.7 *
182 * CTPTYPE=event
183 *
184 real*4 hs_qvec(4)
185 real*4 hs_kpvec(4)
186 real*4 hs_kvec(4)
187 real*4 hs_tvec(4)
188
189 COMMON/hs_vectors/
190 & hs_qvec,
191 & hs_kpvec,
192 & hs_kvec,
193 & hs_tvec
|