1 cdaq  1.2 **************************begin: c_ntuple.cmn ***********************

 2 cdaq  1.1 *- 
 3           *-   Created    8-Apr-1994   Kevin B. Beard, Hampton Univ.
 4           *........................................................................
 5           *- Misc. info. required for COIN Ntuple

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

 7 jones 1.4 * Revision 1.3  1995/05/22 19:05:06  cdaq
 8           * (SAW) Correct some CTP class types
 9           *

10 cdaq  1.3 * Revision 1.2  1994/06/17  02:02:14  cdaq
11           * (KBB) Fix typos, change variable names, reorder common
12           *

13 cdaq  1.2 * Revision 1.1  1994/04/14  16:05:45  cdaq
14           * Initial revision

15 cdaq  1.1 *

16 cdaq  1.2 *
17                 integer CMAX_Ntuple_size
18                 parameter (CMAX_Ntuple_size= 100)

19 cdaq  1.1       integer default_c_Ntuple_ID

20 cdaq  1.2       parameter (default_c_Ntuple_ID= 9500)

21 cdaq  1.1 *

22 cdaq  1.3 *     CTPTYPE=parm
23           *

24 cdaq  1.1       logical c_Ntuple_exists
25                 integer c_Ntuple_ID

26 cdaq  1.2       integer c_Ntuple_size
27                 integer c_Ntuple_IOchannel

28 cdaq  1.1       character*80 c_Ntuple_name
29                 character*80 c_Ntuple_title

30 cdaq  1.2       character*132 c_Ntuple_directory
31                 character*256 c_Ntuple_file
32                 character*8 c_Ntuple_tag(CMAX_Ntuple_size)

33 jones 1.4       integer c_Ntuple_max_segmentevents

34 cdaq  1.3 *
35           *     CTPTYPE=event
36           *

37 jones 1.4       integer c_Ntuple_segmentevents
38                 integer c_Ntuple_filesegments

39 cdaq  1.2       real c_Ntuple_contents(CMAX_Ntuple_size)

40 cdaq  1.1 *
41                 COMMON /COIN_Ntuple/ c_Ntuple_exists,c_Ntuple_ID,

42 cdaq  1.2      &                     c_Ntuple_size,c_Ntuple_IOchannel,
43                &                      c_Ntuple_name,c_Ntuple_title,
44                &                       c_Ntuple_directory,c_Ntuple_file,

45 jones 1.4      &                        c_Ntuple_tag,c_Ntuple_contents,
46                >                    c_Ntuple_max_segmentevents,c_Ntuple_segmentevents,
47                >                    c_Ntuple_filesegments

48 cdaq  1.2 *****************************end: c_ntuple.cmn ***********************