1 cdaq  1.1 *    This include file contains all the variables required for s_physics

  2 cdaq  1.2 * $Log: sos_physics_sing.cmn,v $

  3 saw   1.6 * Revision 1.5  1996/04/30 14:03:28  saw
  4           * (JRA) Add path length, rf, and photodisintigration variables
  5           *

  6 saw   1.5 * Revision 1.4  1995/09/01 13:03:47  cdaq
  7           * (JRA) Add cerenkov position variables
  8           *

  9 cdaq  1.4 * Revision 1.3  1995/03/13  19:17:02  cdaq
 10           * (SAW) Bring up to date with hms_physics_sing.cmn
 11           *

 12 cdaq  1.3 * Revision 1.2  1994/08/05  20:44:48  cdaq
 13           * (SAW) Add "CTPTYPE=event,parm" directive for auto generation of CTP reg calls
 14           *

 15 cdaq  1.2 * Revision 1.1  1994/06/14  03:25:37  cdaq
 16           * Initial revision
 17           *
 18           *     CTPTYPE=event
 19           *

 20 cdaq  1.1 *     Event varaibles to calculate

 21 cdaq  1.2       REAL*4 SSELAS_COR                 ! Difference between momentum measured
 22                                                   ! by tracking and elastic kinematics

 23 cdaq  1.1       COMMON/SOS_PHYSICS_SING/

 24 cdaq  1.2      &     SSELAS_COR
 25           *
 26           *     CTPTYPE=parm

 27 cdaq  1.1 *
 28           *     initializiation paramters

 29 cdaq  1.2       REAL*4  SPHYSICSA                 !   Coefficients of p3 in elastic cal
 30                 REAL*4  SPHYSICSB                 !
 31                 REAL*4  SPHYSICAB2                !
 32                 REAL*4  SPHYSICSM3B               !
 33                 REAL*4  COSSTHETAS                !   COS(STHETA_LAB)
 34                 REAL*4  SINSTHETAS                !   SIN(STHETA_LAB)

 35 cdaq  1.1       COMMON/SOS_PHYSICS_PARAM_R4/

 36 cdaq  1.2      &     SPHYSICSA,
 37                &     SPHYSICSB,
 38                &     SPHYSICAB2,
 39                &     SPHYSICSM3B,
 40                &     COSSTHETAS,
 41                &     SINSTHETAS
 42           *     
 43           *     Parameters that select the best track. Note these should be
 44           *     loose cuts to make sure we select one track. The final 
 45           *     tighter cuts should be made with tests.
 46                 REAL*4 ssel_chi2_fpperdegmax      ! Maximun chi2 per degree of freedom

 47 cdaq  1.1                                         ! at the focal plane

 48 cdaq  1.2       REAL*4 ssel_dedx1min              ! Minimum dedx in chamber 1
 49                 REAL*4 ssel_dedx1max              ! Maximum dedx in chamber 1
 50                 REAL*4 ssel_betamin               ! Minimum beta 
 51                 REAL*4 ssel_betamax               ! Maximum beta
 52                 REAL*4 ssel_etmin                 ! Minimum track et
 53                 REAL*4 ssel_etmax                 ! Maximum track et
 54                 INTEGER*4 ssel_ndegreesmin        ! Minimum number of degrees of freedom
 55           *     
 56                 COMMON/sos_chose_one_track_r4/
 57                &     ssel_chi2_fpperdegmax,
 58                &     ssel_dedx1min,
 59                &     ssel_dedx1max,
 60                &     ssel_betamin,
 61                &     ssel_betamax,
 62                &     ssel_etmin,
 63                &     ssel_etmax

 64 cdaq  1.1 *

 65 cdaq  1.2       COMMON/sos_chose_one_track_i4/
 66                &     ssel_ndegreesmin      

 67 cdaq  1.3 
 68           *
 69           *     CTPTYPE=event
 70           *
 71                 real*4 ssx_dc1, ssy_dc1
 72                 real*4 ssx_dc2, ssy_dc2
 73                 real*4 ssx_s1, ssy_s1

 74 cdaq  1.4       real*4 ssx_cer, ssy_cer

 75 cdaq  1.3       real*4 ssx_s2, ssy_s2
 76                 real*4 ssx_cal, ssy_cal
 77                 integer*4 ssscin_elem_hit(4)
 78           
 79                 COMMON/sos_tmp_stuff/
 80                &     ssx_dc1, ssy_dc1,
 81                &     ssx_dc2, ssy_dc2,
 82                &     ssx_s1, ssy_s1,

 83 cdaq  1.4      &     ssx_cer, ssy_cer,

 84 cdaq  1.3      &     ssx_s2, ssy_s2,
 85                &     ssx_cal, ssy_cal,
 86                &     ssscin_elem_hit

 87 cdaq  1.4 

 88 saw   1.5 *
 89           *     CTPTYPE=parm
 90           *
 91                 real*4 spathlength_central
 92           *
 93           *     CTPTYPE=event
 94           *
 95                 real*4 ssbeta_p
 96                 real*4 sspathlength
 97                 real*4 sspath_cor
 98                 real*4 ssrftime
 99           
100                 COMMON/sos_timing_stuff/
101                &     spathlength_central,
102                &     ssbeta_p,
103                &     sspathlength,
104                &     sspath_cor,
105                &     ssrftime
106           *
107           *     CTPTYPE=event
108           *
109 saw   1.5       real*4 sqx,sqy,sqz,sqabs
110                 real*4 sinvmass
111           
112                 common/sos_physics_quantaties/
113                &    sqx,sqy,sqz,sqabs,
114                &    sinvmass
115           
116           
117           c------------------------------------------------------------------
118           c     For photodisintegration calculations.
119           c     M.Miller, NPL UIUC, 10-Sept-1995, miller5@uiuc.edu
120           *
121           *     CTPTYPE=parm
122           *
123                 real*4 sphoto_mtarget    ! Mass of target [Gev/c^2]
124                 real*4 sphoto_mrecoil    ! Mass of recoil system [Gev/c^2]
125           *
126           *     CTPTYPE=event
127           *
128                 real*4 ssegamma

129 saw   1.6       real*4 ssegamma_p

130 cdaq  1.4 

131 saw   1.5       common /sos_photo_param/
132                &     sphoto_mtarget,
133                &     sphoto_mrecoil,

134 saw   1.6      &     ssegamma,
135                &     ssegamma_p
136           
137           *
138           *     CTPTYPE=parm
139           *
140           c D.Dutta, 24th-Apr-1996
141           
142                 real*4 sdelta_offset     ! hms delta offset
143                 real*4 stheta_offset     ! hms scatteringangel offset
144                 real*4 sphi_offset
145                 real*4 smomentum_factor    ! multiplier for the hms momentum
146           
147                 COMMON /sos_offsets/
148                &     sdelta_offset,
149                &     stheta_offset,
150                &     sphi_offset,
151                &     smomentum_factor