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           * Revision 1.1  1994/02/22  14:46:27  cdaq
 21           * Initial revision
 22           *                    

 23 cdaq  1.1 *
 24           *
 25           *
 26                 real*4 hzchi,hzpsi       ! geometrical coefficients defining z-z0
 27                 real*4 hxchi,hxpsi       ! x and y for each wire plane. 
 28                 real*4 hychi,hypsi
 29           *
 30                 real*4 hz0               ! z coordinate of intersection of chamber with
 31                                          ! z axis
 32                 real*4 hpsi0,hchi0,hphi0 ! psi, chi and phi  coordinates  where a 
 33                                          ! chamber normal passing through the origin
 34                                          ! intersects the chamber. Used in stub fits
 35                 
 36                 real*4 hstubcoef         ! coefficents used in stub fits
 37                                          ! note these contain one power of sigma
 38           
 39                 real*4 htanbeta,hsinbeta,hcosbeta
 40           *
 41                 real*4 hxsp              ! coefficents used in space point fits.
 42                 real*4 hysp
 43           *
 44 cdaq  1.1       real*8 hplane_coeff      ! coefficients used in final track fit
 45           *
 46                 integer*4 HNUM_PLANE_COEFF   ! number of plane track fit coefficients
 47                 parameter (HNUM_PLANE_COEFF=9)
 48                 integer*4 HNUM_RAY_PARAM     ! number of ray parameters
 49                 parameter (HNUM_RAY_PARAM=4)
 50           *
 51                 common/HMS_GEOMETRY/

 52 cdaq  1.2      &     hplane_coeff(HNUM_PLANE_COEFF,HMAX_NUM_DC_PLANES),
 53                &     hzpsi(HMAX_NUM_DC_PLANES),hzchi(HMAX_NUM_DC_PLANES),
 54                &     hxpsi(HMAX_NUM_DC_PLANES),hxchi(HMAX_NUM_DC_PLANES),
 55                &     hypsi(HMAX_NUM_DC_PLANES),hychi(HMAX_NUM_DC_PLANES),
 56                &     hz0(HMAX_NUM_DC_PLANES),hpsi0(HMAX_NUM_DC_PLANES),
 57                &     hchi0(HMAX_NUM_DC_PLANES),hphi0(HMAX_NUM_DC_PLANES),
 58                &     hstubcoef(HMAX_NUM_DC_PLANES,HNUM_RAY_PARAM),
 59                &     hxsp(HMAX_NUM_DC_PLANES),hysp(HMAX_NUM_DC_PLANES),
 60                &     htanbeta(HMAX_NUM_DC_PLANES),hsinbeta(HMAX_NUM_DC_PLANES),
 61                &     hcosbeta(HMAX_NUM_DC_PLANES)

 62 cdaq  1.1 *
 63                 real*4    hdc_zpos
 64                 real*4    hdc_alpha_angle
 65                 real*4    hdc_beta_angle
 66                 real*4    hdc_gamma_angle
 67                 real*4    hdc_pitch
 68                 real*4    hdc_nrwire
 69                 real*4    hdc_central_wire
 70                 real*4    hdc_sigma
 71                 real*4    hdc_xcenter
 72                 real*4    hdc_ycenter
 73                 integer*4 hdc_chamber_planes
 74                 character*16 hdc_plane_name
 75                 common/HMS_PLANE_PARAMETERS/

 76 cdaq  1.2      &     hdc_zpos(HMAX_NUM_DC_PLANES),
 77                &     hdc_alpha_angle(HMAX_NUM_DC_PLANES),
 78                &     hdc_beta_angle(HMAX_NUM_DC_PLANES),
 79                &     hdc_gamma_angle(HMAX_NUM_DC_PLANES),
 80                &     hdc_pitch(HMAX_NUM_DC_PLANES),
 81                &     hdc_central_wire(HMAX_NUM_DC_PLANES),
 82                &     hdc_nrwire(HMAX_NUM_DC_PLANES),
 83                &     hdc_sigma(HMAX_NUM_DC_PLANES),
 84                &     hdc_xcenter(HMAX_NUM_DC_PLANES),
 85                &     hdc_ycenter(HMAX_NUM_DC_PLANES),
 86                &     hdc_chamber_planes(HMAX_NUM_DC_PLANES),
 87                &     hdc_plane_name(HMAX_NUM_DC_PLANES) 

 88 cdaq  1.1 *
 89           *
 90                 real*4 hlocrayzt
 91                 parameter (hlocrayzt=0.)
 92           *
 93           *

 94 cdaq  1.2 *     parameter file variables. Separate by type to make it easy to add
 95           *     at the end
 96           *     REAL*4
 97           *

 98 cdaq  1.1       real*4 hdrift_velocity        ! hms drift velocity in cm/ns

 99 cdaq  1.2       real*4 hdc_tdc_time_per_channel ! hms drift chamber tdc calibration
100                 real*4 hdc_1_zpos
101                 real*4 hdc_2_zpos
102                 common/HMS_CHAMBER_READOUT_REAL/
103                &     hdrift_velocity,
104                &     hdc_tdc_time_per_channel,
105                &     hdc_1_zpos,
106                &     hdc_2_zpos
107           *
108           *     INTEGER*4
109                 integer*4 hdc_wire_counting               ! readout numbering order
110           *
111                 common/HMS_CHAMBER_READOUT_INT/
112                &     hdc_wire_counting(HMAX_NUM_DC_PLANES)