Return to t20_test_histid.cmn CVS log

Up to [HallC] / Analyzer / T20

Initial revision

*
*     Look at sos_id_histid.cmn and hms_id_histid.cmn for examples
*
*_______________________________________________________________________
*      t20_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 23 Jan 1997    Stephen A. Wood
*
* $Log: t20_test_histid.cmn,v $
* Revision 1.1  1998/12/01 21:05:10  saw
* Initial revision
*
*%%   include 't20_data_structures.cmn'
*
*     CTPTYPE=parm

       integer*4 ttst_hid_straw_wletdc
       integer*4 ttst_hid_straw_letdc
       integer*4 ttst_hid_straw_width
       integer*4 ttst_hid_dmxchck
       integer*4 ttst_hid_wg
       integer*4 ttst_hid_strawmap
       integer*4 ttst_hid_numhitsonplanes
       integer*4 ttst_hid_driftdist
       integer*4 ttst_hid_driftdistv0
       integer*4 ttst_hid_drifttime
       integer*4 ttst_hid_drifttimet0
       integer*4 ttst_hid_xoryhits
       integer*4 ttst_hid_evtstrcked
       integer*4 ttst_hid_strawres
       integer*4 ttst_hid_strawhitgd
       integer*4 ttst_hid_strawhitbd
       integer*4 ttst_hid_strawhitms
       integer*4 ttst_hid_planeoffs(8)
       integer*4 ttst_hid_linoff(8)
       integer*4 ttst_hid_trackcode
       integer*4 ttst_hid_trackcodet
       integer*4 ttst_hid_oot_thvx
       integer*4 ttst_hid_oot_phvy
       integer*4 ttst_hid_oot_yvx

       common/ttst_straw_histids/
     +   ttst_hid_straw_wletdc,
     +   ttst_hid_straw_letdc,
     +   ttst_hid_straw_width,
     +   ttst_hid_dmxchck,
     +   ttst_hid_wg,
     +   ttst_hid_strawmap,
     +   ttst_hid_numhitsonplanes,
     +   ttst_hid_driftdist,
     +   ttst_hid_driftdistv0,
     +   ttst_hid_drifttime,
     +   ttst_hid_drifttimet0,
     +   ttst_hid_xoryhits,
     +   ttst_hid_evtstrcked,
     +   ttst_hid_strawres,
     +   ttst_hid_strawhitgd,
     +   ttst_hid_strawhitbd,
     +   ttst_hid_strawhitms,
     +   ttst_hid_planeoffs,
     +   ttst_hid_linoff,
     +   ttst_hid_trackcode,
     +   ttst_hid_trackcodet,
     +   ttst_hid_oot_thvx,
     +   ttst_hid_oot_phvy,
     +   ttst_hid_oot_yvx