Analyzer/INCLUDE/hms_geometry.cmn - annotate

Return to hms_geometry.cmn CVS log

Up to [HallC] / Analyzer / INCLUDE

1 cdaq 1.1 * hms_geometry.cmn 2 * 3 * This include file has all the geometrical coefficients for the 4 * HMS wire chambers. 5 * 6 * d.f. geesaman 1 September 1993 7 * modifed dfg 14 Feb 1994 8 * change HPLANE_PARAM(2,) to hdc_zpos 9 * change HPLANE_PARAM(3,) to hdc_alpha_angle 10 * change HPLANE_PARAM(4,) to hdc_beta_angle 11 * change HPLANE_PARAM(5,) to hdc_gamma_angle 12 * change HPLANE_PARAM(6,) to hdc_pitch 13 * change HPLANE_PARAM(7,) to hdc_nrwire 14 * change HPLANE_PARAM(8,) to hdc_central_wire 15 * change HPLANE_PARAM(9,) to hdc_sigma 16 * change HPLANE_LABEL to hdc_plane_name 17 * add hdc_xcenter 18 * hdc_ycenter
19 cdaq 1.2 * $Log: hms_geometry.cmn,v $
20 saw 1.11 * Revision 1.10 1995/05/22 19:07:02 cdaq 21 * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts 22 *
23 cdaq 1.10 * Revision 1.9 1995/01/27 20:21:00 cdaq 24 * (JRA) Remove no longer used drift time->distance parameters 25 *
26 cdaq 1.9 * Revision 1.8 1994/11/22 18:43:10 cdaq 27 * (SAW) Cleaned up ?DC_NUM_CHAMBERS and ?MAX_NUM_CHAMBERS stuff 28 *
29 cdaq 1.8 * Revision 1.7 1994/09/13 19:19:37 cdaq 30 * (JRA) Add global Wire chamber offsets 31 *
32 cdaq 1.7 * Revision 1.6 1994/08/05 17:54:15 cdaq 33 * (SAW) Add makereg directive with required include files 34 * Add "CTPTYPE=parm" directive for auto generation of CTP reg calls 35 *
36 cdaq 1.6 * Revision 1.5 1994/07/27 19:15:18 cdaq 37 * (DFG) Add hdrift_x0_break and hdrift_t0_break (probably obsoleted by DJM's 38 * Change to h_drift_dist_calc 39 *
40 cdaq 1.5 * Revision 1.4 1994/06/14 03:21:25 cdaq 41 * (DFG) Added hdc_tdc_time_zero 42 *
43 cdaq 1.4 * Revision 1.3 1994/04/13 17:33:06 cdaq 44 * (DFG) Added dummy and dmytst 45 *
46 cdaq 1.3 * Revision 1.2 1994/03/24 18:36:06 cdaq 47 * (DFG) Additional parameters 48 *
49 cdaq 1.2 * Revision 1.1 1994/02/22 14:46:27 cdaq 50 * Initial revision 51 *
52 cdaq 1.6 * The following include statments must precede the inclusion of this 53 * file in each routine that uses it. The %% syntax is also a 54 directive to makereg to tell it to include the code in the program 55 * that it generates.
56 cdaq 1.1 *
57 cdaq 1.10 *%% include 'hms_data_structures.cmn'
58 cdaq 1.1 *
59 cdaq 1.6 * CTPTYPE=parm ! Probably don't really want the following registered
60 cdaq 1.1 * 61 real4 hzchi,hzpsi ! geometrical coefficients defining z-z0 62 real4 hxchi,hxpsi ! x and y for each wire plane. 63 real4 hychi,hypsi 64 65 real4 hz0 ! z coordinate of intersection of chamber with 66 ! z axis 67 real4 hpsi0,hchi0,hphi0 ! psi, chi and phi coordinates where a 68 ! chamber normal passing through the origin 69 ! intersects the chamber. Used in stub fits 70 71 real4 hstubcoef ! coefficents used in stub fits 72 ! note these contain one power of sigma 73 74 real4 htanbeta,hsinbeta,hcosbeta 75 * 76 real4 hxsp ! coefficents used in space point fits. 77 real4 hysp 78 * 79 real8 hplane_coeff ! coefficients used in final track fit 80 81 cdaq 1.1 integer4 HNUM_PLANE_COEFF ! number of plane track fit coefficients 82 parameter (HNUM_PLANE_COEFF=9) 83 integer4 HNUM_RAY_PARAM ! number of ray parameters 84 parameter (HNUM_RAY_PARAM=4) 85 * 86 common/HMS_GEOMETRY/
87 cdaq 1.2 & hplane_coeff(HNUM_PLANE_COEFF,HMAX_NUM_DC_PLANES), 88 & hzpsi(HMAX_NUM_DC_PLANES),hzchi(HMAX_NUM_DC_PLANES), 89 & hxpsi(HMAX_NUM_DC_PLANES),hxchi(HMAX_NUM_DC_PLANES), 90 & hypsi(HMAX_NUM_DC_PLANES),hychi(HMAX_NUM_DC_PLANES), 91 & hz0(HMAX_NUM_DC_PLANES),hpsi0(HMAX_NUM_DC_PLANES), 92 & hchi0(HMAX_NUM_DC_PLANES),hphi0(HMAX_NUM_DC_PLANES), 93 & hstubcoef(HMAX_NUM_DC_PLANES,HNUM_RAY_PARAM), 94 & hxsp(HMAX_NUM_DC_PLANES),hysp(HMAX_NUM_DC_PLANES), 95 & htanbeta(HMAX_NUM_DC_PLANES),hsinbeta(HMAX_NUM_DC_PLANES), 96 & hcosbeta(HMAX_NUM_DC_PLANES)
97 cdaq 1.1 * 98 real4 hdc_zpos 99 real4 hdc_alpha_angle 100 real4 hdc_beta_angle 101 real4 hdc_gamma_angle 102 real*4 hdc_pitch
103 saw 1.11 integer*4 hdc_nrwire
104 cdaq 1.1 real4 hdc_central_wire 105 real4 hdc_sigma 106 real4 hdc_xcenter 107 real4 hdc_ycenter
108 cdaq 1.7 real*4 hdc_center
109 cdaq 1.1 integer4 hdc_chamber_planes 110 character16 hdc_plane_name 111 common/HMS_PLANE_PARAMETERS/
112 cdaq 1.2 & hdc_zpos(HMAX_NUM_DC_PLANES), 113 & hdc_alpha_angle(HMAX_NUM_DC_PLANES), 114 & hdc_beta_angle(HMAX_NUM_DC_PLANES), 115 & hdc_gamma_angle(HMAX_NUM_DC_PLANES), 116 & hdc_pitch(HMAX_NUM_DC_PLANES), 117 & hdc_central_wire(HMAX_NUM_DC_PLANES), 118 & hdc_nrwire(HMAX_NUM_DC_PLANES), 119 & hdc_sigma(HMAX_NUM_DC_PLANES),
120 cdaq 1.8 & hdc_xcenter(HMAX_NUM_CHAMBERS), 121 & hdc_ycenter(HMAX_NUM_CHAMBERS),
122 cdaq 1.2 & hdc_chamber_planes(HMAX_NUM_DC_PLANES),
123 cdaq 1.7 & hdc_plane_name(HMAX_NUM_DC_PLANES), 124 & hdc_center(HMAX_NUM_DC_PLANES)
125 cdaq 1.1 * 126 * 127 real4 hlocrayzt 128 parameter (hlocrayzt=0.) 129
130 cdaq 1.6 * CTPTYPE=parm
131 cdaq 1.1 *
132 cdaq 1.2 * parameter file variables. Separate by type to make it easy to add 133 * at the end 134 * REAL4 135
136 cdaq 1.9 * real*4 hdrift_velocity ! hms drift velocity in cm/ns
137 cdaq 1.2 real4 hdc_tdc_time_per_channel ! hms drift chamber tdc calibration 138 real4 hdc_1_zpos 139 real*4 hdc_2_zpos
140 cdaq 1.3 real*4 dummy
141 cdaq 1.4 real*4 hdc_plane_time_zero ! zero time for drift chamber planes
142 cdaq 1.9 * real4 hdrift_t0_break ! start of linear drift region in t 143 real*4 hdrift_x0_break ! start of linear drift region in x
144 cdaq 1.2 common/HMS_CHAMBER_READOUT_REAL/
145 cdaq 1.9 * & hdrift_velocity,
146 cdaq 1.2 & hdc_tdc_time_per_channel, 147 & hdc_1_zpos,
148 cdaq 1.3 & hdc_2_zpos,
149 cdaq 1.4 & dummy,
150 cdaq 1.9 & hdc_plane_time_zero(HMAX_NUM_DC_PLANES) 151 * & hdrift_t0_break(HMAX_NUM_DC_PLANES), 152 * & hdrift_x0_break(HMAX_NUM_DC_PLANES)
153 cdaq 1.2 *
154 cdaq 1.3 * INTEGER4 155 integer4 hdc_wire_counting ! readout numbering order 156 integer*4 dmytst
157 cdaq 1.2 * 158 common/HMS_CHAMBER_READOUT_INT/
159 cdaq 1.3 & hdc_wire_counting(HMAX_NUM_DC_PLANES), 160 & dmytst 161 162

Analyzer/Replay: Mark Jones, Documents: Stephen Wood