Return to sos_scin_parms.cmn CVS log

Up to [HallC] / Analyzer / INCLUDE

(JRA) Add misc scaler

* sos_scin_parms.cmn -  two common blocks:
*
*    sos_scin_parms - variables from the sos_positions.parm file
*    sos_tof_parms  - tof correction parameters and position parameters
*                     converted to arrays over plane,counter by s_init_scin.
*
*    NOTE:  Variables whose names start with sHODO are arrays over
*           plane and counter.  sSCIN is used for parameters from the
*           .parm files and for arrays over hits.
*
*       Modified 23 March 1994   DFG
*           Add definition of snum_scin_elements and set parameter value
*
* $Log: sos_scin_parms.cmn,v $
* Revision 1.8  1996/09/04 16:31:26  saw
* (JRA) Add misc scaler
*
* Revision 1.7  1996/01/24 16:20:17  saw
* (JRA) Make smisc_dec_data two dimensional
*
* Revision 1.6  1995/08/11 16:35:55  cdaq
* (JRA) Remove old dpos stuff
*       Add sscin_zero accumulators
*
* Revision 1.5  1995/05/22  19:11:54  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts.
* Make pedestal arrays real.  Add sos_scin_positions and sos_misc_parms commons
*
* Revision 1.4  1995/03/13  19:09:11  cdaq
* (JRA) Move snum_scin_elements to gen_data_structures, remove
*       sscin_num_counters.  Change sscin_??_top and _left to center and offset.
*       Add sscin_??_spacing parms.  Change shodo_center_coord to shodo_center.
*       Add shodo_???_minph tables.
*
* Revision 1.3  1994/11/21  18:01:35  cdaq
* * (SPB) Recopied from hms file and modified names for SOS
*
* Revision 1.2  1994/08/05  21:00:21  cdaq
* (SAW) Add makereg directive with required include files
*       Add "CTPTYPE=parm" directive for auto generation of CTP reg calls
*
* Revision 1.1  1994/04/12  21:15:29  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 'sos_data_structures.cmn'
*
*     CTPTYPE=parm
*  
* from parameter file
      integer*4 sscin_1x_nr
      integer*4 sscin_1y_nr
      integer*4 sscin_2x_nr
      integer*4 sscin_2y_nr
c      integer*4 sscin_num_counters(SNUM_SCIN_PLANES)
      integer*4 sdebugprintscinraw
      integer*4 sdebugprintscindec
      integer*4 sdebugprinttoftracks
      integer*4 sdebugprinttracktests
      real*4 sscin_1x_zpos
      real*4 sscin_1y_zpos
      real*4 sscin_2x_zpos
      real*4 sscin_2y_zpos
      real*4 sscin_1x_dzpos
      real*4 sscin_1y_dzpos
      real*4 sscin_2x_dzpos
      real*4 sscin_2y_dzpos
      real*4 sscin_1x_left
      real*4 sscin_1y_top
      real*4 sscin_2x_left
      real*4 sscin_2y_top
      real*4 sscin_1x_right
      real*4 sscin_1y_bot
      real*4 sscin_2x_right
      real*4 sscin_2y_bot
      real*4 sscin_1x_center(snum_scin_elements)
      real*4 sscin_1y_center(snum_scin_elements)
      real*4 sscin_2x_center(snum_scin_elements)
      real*4 sscin_2y_center(snum_scin_elements)
      real*4 sscin_1x_offset
      real*4 sscin_1y_offset
      real*4 sscin_2x_offset
      real*4 sscin_2y_offset
      real*4 sscin_1x_size
      real*4 sscin_1y_size
      real*4 sscin_2x_size
      real*4 sscin_2y_size
      real*4 sscin_1x_spacing
      real*4 sscin_1y_spacing
      real*4 sscin_2x_spacing
      real*4 sscin_2y_spacing
      real*4 sscin_all_ped_pos(snum_scin_planes,snum_scin_elements)
      real*4 sscin_all_ped_neg(snum_scin_planes,snum_scin_elements)
 
      common/sos_scin_parms/            !variables from s_positions.parm
     &     sscin_1x_nr, sscin_1y_nr,    !Elements per plane
     &     sscin_2x_nr, sscin_2y_nr,
     &     sscin_1x_zpos, sscin_1y_zpos, !z position of plane.
     &     sscin_2x_zpos, sscin_2y_zpos,
     &     sscin_1x_dzpos, sscin_1y_dzpos,
     &     sscin_2x_dzpos, sscin_2y_dzpos,
     &     sscin_1x_left, sscin_1y_top, !position of 'negative'(??) end.
     &     sscin_2x_left, sscin_2y_top,
     &     sscin_1x_right, sscin_1y_bot, !position of 'positive'(??) end.
     &     sscin_2x_right, sscin_2y_bot,
     &     sscin_1x_center, sscin_1y_center, !center (transverse) of element.
     &     sscin_2x_center, sscin_2y_center,
     &     sscin_1x_size, sscin_1y_size, !width of elements.
     &     sscin_2x_size, sscin_2y_size,
     &     sscin_1x_spacing, sscin_1y_spacing, !separation of centers.
     &     sscin_2x_spacing, sscin_2y_spacing,
     &     sdebugprintscinraw,
     &     sdebugprintscindec,
     &     sdebugprinttoftracks,
     &     sdebugprinttracktests,
     &     sscin_all_ped_pos,
     &     sscin_all_ped_neg,
     &     sscin_1x_offset, sscin_1y_offset, !offset from nominal trans pos.
     &     sscin_2x_offset, sscin_2y_offset

* Physical paramteres of counters.  Use shodo_* for arrays that include
*   the entire hodoscope,  sscin_* for arrays that loop over hits.
      real*4 snum_scin_counters(snum_scin_planes)
      real*4 shodo_center(snum_scin_planes,snum_scin_elements)
      real*4 shodo_width(snum_scin_planes,snum_scin_elements)
      real*4 shodo_pos_coord(snum_scin_planes,snum_scin_elements)
      real*4 shodo_neg_coord(snum_scin_planes,snum_scin_elements)

* callibration type variables.
      real*4 shodo_slop(snum_scin_planes)
      real*4 shodo_vel_light(snum_scin_planes,snum_scin_elements)
      real*4 shodo_pos_sigma(snum_scin_planes,snum_scin_elements)
      real*4 shodo_neg_sigma(snum_scin_planes,snum_scin_elements)
      real*4 shodo_pos_phc_coeff(snum_scin_planes,snum_scin_elements)
      real*4 shodo_neg_phc_coeff(snum_scin_planes,snum_scin_elements)
      real*4 shodo_pos_time_offset(snum_scin_planes,snum_scin_elements)
      real*4 shodo_neg_time_offset(snum_scin_planes,snum_scin_elements)
      real*4 shodo_pos_minph(snum_scin_planes,snum_scin_elements) ! ADC offset for PH correction
      real*4 shodo_neg_minph(snum_scin_planes,snum_scin_elements) ! ADC offset for PH correction

* correction parameters and position information converted to arryas
* over plane and counter

      common/sos_tof_parms/
     &     snum_scin_counters,
     &     shodo_center,
     &     shodo_width,
     &     shodo_pos_coord,
     &     shodo_neg_coord,
     &     shodo_slop,
     &     shodo_vel_light,
     &     shodo_pos_sigma,
     &     shodo_neg_sigma,
     &     shodo_pos_phc_coeff,
     &     shodo_neg_phc_coeff,
     &     shodo_pos_time_offset,
     &     shodo_neg_time_offset,
     $     shodo_pos_minph,
     $     shodo_neg_minph
*
*
* sos_misc_parms.cmn -  misc tdc's filled as array over signal number
*         (tdc is sparsified, so the raw signals are array over hits)
*
*     CTPTYPE=parm
*
      integer*4 snum_misc_planes
      parameter(snum_misc_planes=2)     !(1=TDC, 2=ADC)
*
*
*     CTPTYPE=event
*
      integer*4 smisc_dec_data(smax_misc_hits,snum_misc_planes)
      integer*4 smisc_scaler(smax_misc_hits,snum_misc_planes)

      common/sos_misc_parms/
     &   smisc_dec_data,
     &   smisc_scaler


      integer*4 sscin_zero_pos(snum_scin_planes,snum_scin_elements)
      integer*4 sscin_zero_neg(snum_scin_planes,snum_scin_elements)
      integer*4 sscin_zero_num(snum_scin_planes,snum_scin_elements)
      real*4 sscin_zero_pave(snum_scin_planes,snum_scin_elements)
      real*4 sscin_zero_nave(snum_scin_planes,snum_scin_elements)

      common /sos_scin_zero/
     &    sscin_zero_pos,sscin_zero_neg,
     &    sscin_zero_num,
     &    sscin_zero_pave,sscin_zero_nave