Analyzer/INCLUDE/h_ntuple.cmn - view

Return to h_ntuple.cmn CVS log

Up to [HallC] / Analyzer / INCLUDE

File: [HallC] / Analyzer / INCLUDE / h_ntuple.cmn (download)
Revision: 1.3, Mon May 22 18:05:38 1995 UTC (29 years, 4 months ago) by cdaq
Branch: MAIN
CVS Tags: sep0596, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, online03, oct1199, nov2696, may2495, mar-24-2003, jul2895, jan2496, jan1896, jan1796, fpi2, e01004, dec0198, aug-12-2003, apr3096, apr-02-2003, Initial-CVS-Release, Extra_Shower_Tubes_on_HMS_not_SOS
Changes since 1.2: +8 -0 lines

(SAW) Correct some CTP class types

**************************begin: h_ntuple.cmn ***********************
*- 
*-   Created    8-Apr-1994   Kevin B. Beard, Hampton Univ.
*........................................................................
*- Misc. info. required for HMS Ntuple
* $Log: h_ntuple.cmn,v $
* Revision 1.3  1995/05/22 19:05:38  cdaq
* (SAW) Correct some CTP class types
*
* Revision 1.2  1994/06/17  02:11:45  cdaq
* (KBB) Fix typos, change variable names, reorder common
*
* Revision 1.1  1994/04/14  16:05:12  cdaq
* Initial revision
*
*
      integer HMAX_Ntuple_size
      parameter (HMAX_Ntuple_size= 100)
      integer default_h_Ntuple_ID
      parameter (default_h_Ntuple_ID= 9010)
*
*     CTPTYPE=parm
*
      logical h_Ntuple_exists
      integer h_Ntuple_ID
      integer h_Ntuple_size
      integer h_Ntuple_IOchannel
      character*80 h_Ntuple_name
      character*80 h_Ntuple_title
      character*132 h_Ntuple_directory
      character*256 h_Ntuple_file
      character*8 h_Ntuple_tag(HMAX_Ntuple_size)
*
*     CTPTYPE=event
*
      real h_Ntuple_contents(HMAX_Ntuple_size)
*
      COMMON /HMS_Ntuple/ h_Ntuple_exists,h_Ntuple_ID,
     &                     h_Ntuple_size,h_Ntuple_IOchannel,
     &                      h_Ntuple_name,h_Ntuple_title,
     &                       h_Ntuple_directory,h_Ntuple_file,
     &                        h_Ntuple_tag,h_Ntuple_contents
*
****************************end: h_ntuple.cmn ***********************

Analyzer/Replay: Mark Jones, Documents: Stephen Wood