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           * Revision 1.1  1994/04/14  16:05:24  cdaq
 8           * Initial revision

 9 cdaq  1.1 *

10 cdaq  1.2 *
11                 integer SMAX_Ntuple_size
12                 parameter (SMAX_Ntuple_size= 100)

13 cdaq  1.1       integer default_s_Ntuple_ID

14 cdaq  1.2       parameter (default_s_Ntuple_ID= 9020)

15 cdaq  1.1 *
16                 logical s_Ntuple_exists
17                 integer s_Ntuple_ID

18 cdaq  1.2       integer s_Ntuple_size
19                 integer s_Ntuple_IOchannel

20 cdaq  1.1       character*80 s_Ntuple_name
21                 character*80 s_Ntuple_title

22 cdaq  1.2       character*132 s_Ntuple_directory
23                 character*256 s_Ntuple_file
24                 character*8 s_Ntuple_tag(SMAX_Ntuple_size)
25                 real s_Ntuple_contents(SMAX_Ntuple_size)

26 cdaq  1.1 *
27                 COMMON /SOS_Ntuple/ s_Ntuple_exists,s_Ntuple_ID,

28 cdaq  1.2      &                     s_Ntuple_size,s_Ntuple_IOchannel,
29                &                      s_Ntuple_name,s_Ntuple_title,
30                &                       s_Ntuple_directory,s_Ntuple_file,
31                &                        s_Ntuple_tag,s_Ntuple_contents
32           *
33           ****************************end: s_ntuple.cmn ***********************