1 cdaq  1.1 **************************begin: h_ntuple.cmn ***********************
 2           *- 
 3           *-   Created    8-Apr-1994   Kevin B. Beard, Hampton Univ.
 4           *........................................................................
 5           *- Misc. info. required for HMS Ntuple

 6 cdaq  1.2 * $Log: h_ntuple.cmn,v $
 7           * Revision 1.1  1994/04/14  16:05:12  cdaq
 8           * Initial revision

 9 cdaq  1.1 *

10 cdaq  1.2 *

11 cdaq  1.1       integer HMAX_Ntuple_size
12                 parameter (HMAX_Ntuple_size= 100)
13                 integer default_h_Ntuple_ID

14 cdaq  1.2       parameter (default_h_Ntuple_ID= 9010)

15 cdaq  1.1 *
16                 logical h_Ntuple_exists
17                 integer h_Ntuple_ID

18 cdaq  1.2       integer h_Ntuple_size
19                 integer h_Ntuple_IOchannel

20 cdaq  1.1       character*80 h_Ntuple_name
21                 character*80 h_Ntuple_title

22 cdaq  1.2       character*132 h_Ntuple_directory
23                 character*256 h_Ntuple_file

24 cdaq  1.1       character*8 h_Ntuple_tag(HMAX_Ntuple_size)
25                 real h_Ntuple_contents(HMAX_Ntuple_size)
26           *
27                 COMMON /HMS_Ntuple/ h_Ntuple_exists,h_Ntuple_ID,

28 cdaq  1.2      &                     h_Ntuple_size,h_Ntuple_IOchannel,
29                &                      h_Ntuple_name,h_Ntuple_title,
30                &                       h_Ntuple_directory,h_Ntuple_file,
31                &                        h_Ntuple_tag,h_Ntuple_contents
32           *

33 cdaq  1.1 ****************************end: h_ntuple.cmn ***********************

34 cdaq  1.2