* hms_scin_tof.cmn:   common block used by the subroutines that
*       calculate the hms time of flight.
* $Log: hms_scin_tof.cmn,v $
* Revision 1.12  2005/03/15 21:14:28  jones
* Add variables htof_tolerance and stof_tolerance to be used to filter the scintillator tdc hits and group them by time. ( P. Bosted)
*
*
* Revision 1.11  1996/04/30 13:40:30  saw
* (JRA) Add hbeta_p, hbeta_pcent
*
* Revision 1.10  1995/05/22 19:04:27  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts
* Add some varaibles.
*
* Revision 1.9  1995/03/13  19:13:03  cdaq
* (JRA) Change hscin_minph to hscin_???_minph arrays.  Add tracks index to
*       hgood_tdc_pos, hgood_tdc_neg, hgood_scin_time, hgood_plane_time,
*       and hgood_beta.
*
* Revision 1.8  1995/01/27  21:03:16  cdaq
* (SAW) Add htof_debugging common
*
* Revision 1.7  1994/09/13  19:29:50  cdaq
* (JRA) Add focal plane time
*
* Revision 1.6  1994/08/16  03:56:33  cdaq
* (SAW) Change some variables to parm CTPTYPE
*
* Revision 1.5  1994/08/05  15:29:44  cdaq
* (SAW) Add makereg directive with required include files
*
* Revision 1.4  1994/08/04  18:02:13  cdaq
* (SAW) Add "CTPTYPE=event" directive for auto generation of CTP reg calls
*
* Revision 1.3  1994/07/08  19:27:12  cdaq
* (JRA) Add hscin_on_track table
*
* Revision 1.2  1994/05/13  02:51:53  cdaq
* (DFG) Remove parameter statements.  More are CTP variables
*
* Revision 1.1  1994/04/13  18:06:20  cdaq
* Initial revision
*
*     The following include statments must precede the inclusion of this
*     file in each routine that uses it.  The *%% syntax is also a
*     directive to makereg to tell it to include the code in the program
*     that it generates.
*
*%%   include 'hms_data_structures.cmn'
*%%   include 'hms_scin_parms.cmn'
*
*     CTPTYPE=event
*
      integer*4 hntof

      real*4 hscin_long_coord(hmax_scin_hits)
      real*4 hscin_trans_coord(hmax_scin_hits)
      real*4 hscin_pos_coord(hmax_scin_hits)
      real*4 hscin_neg_coord(hmax_scin_hits)
      real*4 hscin_pos_sigma(hmax_scin_hits)
      real*4 hscin_neg_sigma(hmax_scin_hits)
      real*4 hscin_pos_time(hmax_scin_hits)
      real*4 hscin_neg_time(hmax_scin_hits)
      real*4 hscin_sigma(hmax_scin_hits)
      real*4 hscin_time(hmax_scin_hits)
      real*4 hscin_vel_light(hmax_scin_hits)
      real*4 hscin_pos_phc_coeff(hmax_scin_hits)
      real*4 hscin_neg_phc_coeff(hmax_scin_hits)
      real*4 hscin_pos_time_offset(hmax_scin_hits)
      real*4 hscin_neg_time_offset(hmax_scin_hits)
      real*4 hscin_time_fp(hmax_scin_hits)

*
*     CTPTYPE=parm
*
      real*4 hscin_pos_minph(hmax_scin_hits) ! ADC Offset for PH correction
      real*4 hscin_neg_minph(hmax_scin_hits) ! ADC Offset for PH correction
      real*4 hscin_tdc_min
      real*4 hscin_tdc_max
      real*4 hscin_tdc_to_time
      real*4 hstart_time_center    ! center of time window on scin. hits
      real*4 hstart_time_slop      ! 1/2 width of time window on scin. hits
      real*4 htof_tolerance        ! tolerance for tof window in nsec
*
*     CTPTYPE=event
*
      logical*4 hgood_tdc_pos(hntracks_max,hmax_scin_hits)
      logical*4 hgood_tdc_neg(hntracks_max,hmax_scin_hits)
      logical*4 hgood_scin_time(hntracks_max,hmax_scin_hits)
      logical*4 hgood_plane_time(hntracks_max,hnum_scin_planes)
      logical*4 hgood_beta(hntracks_max)
      logical*4 hscin_on_track(hntracks_max,hmax_scin_hits)

      common/hms_scin_tof/
     &     hntof,
     &     hscin_long_coord,
     &     hscin_trans_coord,
     &     hscin_pos_coord,hscin_neg_coord, !position of tubes
     &     hscin_pos_sigma,hscin_neg_sigma, !time resolution for tubes
     &     hscin_pos_time, hscin_neg_time, !time for 'pos' and 'neg' tubes.
     &     hscin_sigma,                 !time resolution for scin.
     &     hscin_time,                  !time for scin. (ave of tubes)
     &     hscin_vel_light,
     &     hscin_pos_phc_coeff,hscin_neg_phc_coeff,
     &     hscin_pos_time_offset,hscin_neg_time_offset,
     &     hscin_pos_minph, hscin_neg_minph,
     &     hscin_tdc_min,
     &     hscin_tdc_max,
     &     hscin_tdc_to_time,
     &     hgood_tdc_pos, hgood_tdc_neg, !did pos/neg tube had good tdc?
     &     hgood_scin_time,             !was a time found for the hit?
     &     hgood_plane_time,            !was a time found for the plane?
     &     hgood_beta,                  !was a value of beta found?
     &     hscin_on_track,              !list of scins on each track.
     &     hscin_time_fp,               !scin time (ave) projected to fp
     &     hstart_time_center,
     &     hstart_time_slop,
     &     htof_tolerance

*
*     CTPTYPE=event
*
      real*4 h_fptime(hnum_scin_planes)    !time at fp from all hits in 1 plane
      real*4 h_fptimedif(6)                !fp time differences
      real*4 hbeta_notrk
      real*4 hbeta_chisq_notrk
      real*4 hbeta_p                       !beta from mass and momentum
      real*4 hbeta_pcent                   !beta for central momentum

      common/htof_notrk/
     &  h_fptime,
     &  h_fptimedif,
     &  hbeta_notrk,
     &  hbeta_chisq_notrk,
     &  hbeta_p,
     &  hbeta_pcent

c      integer*4 hscin_pos_did(hnum_scin_planes,hnum_scin_elements)
c      integer*4 hscin_neg_did(hnum_scin_planes,hnum_scin_elements)
c      integer*4 hscin_pos_should(hnum_scin_planes,hnum_scin_elements)
c      integer*4 hscin_neg_should(hnum_scin_planes,hnum_scin_elements)
c      real*4 hscin_pos_eff(hnum_scin_planes,hnum_scin_elements)
c      real*4 hscin_neg_eff(hnum_scin_planes,hnum_scin_elements)
c      real*4 hscin_pos_solo(hnum_scin_planes,hnum_scin_elements)
c      real*4 hscin_neg_solo(hnum_scin_planes,hnum_scin_elements)
c
c      common/hmore_debugging/
c     &  hscin_pos_eff,
c     &  hscin_neg_eff,
c     &  hscin_pos_solo,
c     &  hscin_neg_solo,
c     &  hscin_pos_did,
c     &  hscin_neg_did,
c     &  hscin_pos_should,
c     &  hscin_neg_should