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

 6 cdaq  1.2 * $Log: s_ntuple.cmn,v $

 7 cdaq  1.3 * Revision 1.2  1994/06/17  03:14:40  cdaq
 8           * (KBB) Fix typos, change variable names, reorder common
 9           *

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

12 cdaq  1.1 *

13 cdaq  1.2 *
14                 integer SMAX_Ntuple_size
15                 parameter (SMAX_Ntuple_size= 100)

16 cdaq  1.1       integer default_s_Ntuple_ID

17 cdaq  1.2       parameter (default_s_Ntuple_ID= 9020)

18 cdaq  1.1 *

19 cdaq  1.3 *     CTPTYPE=parm
20           *

21 cdaq  1.1       logical s_Ntuple_exists
22                 integer s_Ntuple_ID

23 cdaq  1.2       integer s_Ntuple_size
24                 integer s_Ntuple_IOchannel

25 cdaq  1.1       character*80 s_Ntuple_name
26                 character*80 s_Ntuple_title

27 cdaq  1.2       character*132 s_Ntuple_directory
28                 character*256 s_Ntuple_file
29                 character*8 s_Ntuple_tag(SMAX_Ntuple_size)

30 cdaq  1.3 *
31           *     CTPTYPE=event
32           *

33 cdaq  1.2       real s_Ntuple_contents(SMAX_Ntuple_size)

34 cdaq  1.1 *
35                 COMMON /SOS_Ntuple/ s_Ntuple_exists,s_Ntuple_ID,

36 cdaq  1.2      &                     s_Ntuple_size,s_Ntuple_IOchannel,
37                &                      s_Ntuple_name,s_Ntuple_title,
38                &                       s_Ntuple_directory,s_Ntuple_file,
39                &                        s_Ntuple_tag,s_Ntuple_contents
40           *
41           ****************************end: s_ntuple.cmn ***********************