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 cdaq  1.3 * Revision 1.2  1994/06/17  02:11:45  cdaq
 8           * (KBB) Fix typos, change variable names, reorder common
 9           *

10 cdaq  1.2 * Revision 1.1  1994/04/14  16:05:12  cdaq
11           * Initial revision

12 cdaq  1.1 *

13 cdaq  1.2 *

14 cdaq  1.1       integer HMAX_Ntuple_size
15                 parameter (HMAX_Ntuple_size= 100)
16                 integer default_h_Ntuple_ID

17 cdaq  1.2       parameter (default_h_Ntuple_ID= 9010)

18 cdaq  1.1 *

19 cdaq  1.3 *     CTPTYPE=parm
20           *

21 cdaq  1.1       logical h_Ntuple_exists
22                 integer h_Ntuple_ID

23 cdaq  1.2       integer h_Ntuple_size
24                 integer h_Ntuple_IOchannel

25 cdaq  1.1       character*80 h_Ntuple_name
26                 character*80 h_Ntuple_title

27 cdaq  1.2       character*132 h_Ntuple_directory
28                 character*256 h_Ntuple_file

29 cdaq  1.1       character*8 h_Ntuple_tag(HMAX_Ntuple_size)

30 cdaq  1.3 *
31           *     CTPTYPE=event
32           *

33 cdaq  1.1       real h_Ntuple_contents(HMAX_Ntuple_size)
34           *
35                 COMMON /HMS_Ntuple/ h_Ntuple_exists,h_Ntuple_ID,

36 cdaq  1.2      &                     h_Ntuple_size,h_Ntuple_IOchannel,
37                &                      h_Ntuple_name,h_Ntuple_title,
38                &                       h_Ntuple_directory,h_Ntuple_file,
39                &                        h_Ntuple_tag,h_Ntuple_contents
40           *

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

42 cdaq  1.2