Return to sos_id_histid.cmn CVS log

Up to [HallC] / Analyzer / INCLUDE

(JRA) Add sidscindpos_pid, cleanup

*_______________________________________________________________________
*      sos_id_histid.cmn
*
*      This common block contains the HBOOK histogram id numbers
*      for all sos particle id histograms in which direct hfill 
*      calls are made.
*
*      It also contains the paramter flags to turn on and off histograming
*      of each of the hard coded blocks.
*
*      Created 9 April 1994	D. F. Geesaman
*
* $Log: sos_id_histid.cmn,v $
* Revision 1.11  1999/02/23 19:20:42  csa
* (JRA) Add sidscindpos_pid, cleanup
*
* Revision 1.10  1999/02/03 21:13:34  saw
* Code for new Shower counter tubes
*
* Revision 1.9  1996/09/04 16:28:58  saw
* (JRA) Add sidmisctdcs
*
* Revision 1.8  1996/01/17 15:09:34  cdaq
* (JRA) Add sidscintimes histogram
*
* Revision 1.7  1995/09/01 13:02:48  cdaq
* (JRA) Add dpos histid's
*
* Revision 1.6  1995/08/11  16:31:11  cdaq
* (JRA) Add dpos (track pos - hit pos) histograms
*
* Revision 1.5  1995/07/28  14:27:26  cdaq
* (JRA) Add sidsum histogram id holders
*
* Revision 1.4  1995/05/22  19:07:42  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts
*
* Revision 1.3  1995/05/12  12:23:46  cdaq
* (JRA) Modify/add user histograms
*
* Revision 1.2  1994/08/05  21:05:04  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:16:27  cdaq
* Initial revision
*
*%%   include 'sos_data_structures.cmn'
*%%   include 'sos_scin_parms.cmn'
*
*     The following don't need to be registered??
*     CTPTYPE=parm
      integer*4 sidscinrawtothits
      integer*4 sidscinplane
      integer*4 sidscinallpostdc(SNUM_SCIN_PLANES)
      integer*4 sidscinallnegtdc(SNUM_SCIN_PLANES)
      integer*4 sidscinallposadc(SNUM_SCIN_PLANES)
      integer*4 sidscinallnegadc(SNUM_SCIN_PLANES)
      integer*4 sidscincounters(SNUM_SCIN_PLANES)
      integer*4 sidscinposadc(SNUM_SCIN_PLANES,snum_scin_elements)
      integer*4 sidscinnegadc(SNUM_SCIN_PLANES,snum_scin_elements)
      integer*4 sidscinpostdc(SNUM_SCIN_PLANES,snum_scin_elements)
      integer*4 sidscinnegtdc(SNUM_SCIN_PLANES,snum_scin_elements)
      integer*4 sidscinalltimes
      integer*4 sidscindpos(SNUM_SCIN_PLANES)
      integer*4 sidscindpos_pid(SNUM_SCIN_PLANES)
      integer*4 sidsumposadc(SNUM_SCIN_PLANES)
      integer*4 sidsumnegadc(SNUM_SCIN_PLANES)
      integer*4 sidsumpostdc(SNUM_SCIN_PLANES)
      integer*4 sidsumnegtdc(SNUM_SCIN_PLANES)
      integer*4 sidscintimes

      integer*4 sidcalplane
      integer*4 sidcalhits(SMAX_CAL_COLUMNS)
      integer*4 sidcalposhits(SMAX_CAL_COLUMNS)
      integer*4 sidcalneghits(SMAX_CAL_COLUMNS)
      integer*4 sidcalsumadc
      integer*4 sidcaldpos

      integer*4 siddcdposx,siddcdposy,siddcdposxp,siddcdposyp
      integer*4 sidmisctdcs
*
      common/sos_id_histid/
     &     sidscinrawtothits,
     &     sidscinplane,
     &     sidscinallpostdc,
     &     sidscinallnegtdc,
     &     sidscinallposadc,
     &     sidscinallnegadc,
     &     sidscincounters,
     &     sidscinposadc,
     &     sidscinnegadc,
     &     sidscinpostdc,
     &     sidscinnegtdc,
     &     sidscinalltimes,
     &     sidscintimes,
     &     sidsumposadc,
     &     sidsumnegadc,
     &     sidsumpostdc,
     &     sidsumnegtdc,
     &     sidscindpos,
     &     sidcalplane,
     &     sidcalhits,
     &     sidcalsumadc,
     &     sidcalposhits,
     &     sidcalneghits,
     &     sidcaldpos,
     &     siddcdposx,siddcdposy,siddcdposxp,siddcdposyp,
     &     sidmisctdcs,
     &     sidscindpos_pid

*
*     CTPTYPE=parm
*
*      flags to turn on (.eq.1) or off (.eq. 0) hard coded histograms
       integer*4 sturnon_scin_raw_hist
*
       common/sos_id_hist_flags/
     &      sturnon_scin_raw_hist