1 cdaq  1.1 **************************begin: s_sieve_ntuple.cmn ***********************
 2           *- 
 3           *........................................................................
 4           *- Misc. info. required for SOS sieve slit Ntuple
 5           * $Log:$
 6           *
 7                 integer SMAX_sv_Ntuple_size
 8                 parameter (SMAX_sv_Ntuple_size= 100)
 9                 integer default_s_sieve_Ntuple_ID
10                 parameter (default_s_sieve_Ntuple_ID= 1412)
11           *
12           *     CTPTYPE=parm
13           *
14                 logical s_sieve_Ntuple_exists
15                 integer s_sieve_Ntuple_ID
16                 integer s_sieve_Ntuple_size
17                 integer s_sieve_Ntuple_IOchannel
18                 character*80 s_sieve_Ntuple_name
19                 character*80 s_sieve_Ntuple_title
20                 character*132 s_sieve_Ntuple_directory   
21                 character*256 s_sieve_Ntuple_file
22 cdaq  1.1       character*8 s_sieve_Ntuple_tag(SMAX_sv_Ntuple_size)
23           *
24           *     CTPTYPE=event
25           *
26                 real s_sieve_Ntuple_contents(SMAX_sv_Ntuple_size)
27           *
28                 COMMON /SOS_sieve_Ntuple/ s_sieve_Ntuple_exists,s_sieve_Ntuple_ID,
29                &     s_sieve_Ntuple_size,s_sieve_Ntuple_IOchannel,
30                &     s_sieve_Ntuple_name,s_sieve_Ntuple_title,
31                &     s_sieve_Ntuple_directory,s_sieve_Ntuple_file,
32                &     s_sieve_Ntuple_tag,s_sieve_Ntuple_contents
33           
34           *****************************end: s_sieve_ntuple.cmn ***********************