1 cdaq  1.1 **************************begin: gen_run_info.cmn ***********************
 2           *- 
 3           *-   Created   22-Apr-1994   Kevin B. Beard, Hampton Univ.

 4 cdaq  1.2 * $Log: gen_run_info.cmn,v $
 5           * Revision 1.1  1994/05/27  15:12:47  cdaq
 6           * Initial revision
 7           *

 8 cdaq  1.1 *........................................................................
 9           *- Misc. info. about a run

10 cdaq  1.2 *
11           *     CTPTYPE=parm

12 cdaq  1.1 *
13                 INTEGER gen_run_number,gen_run_type
14                 INTEGER gen_run_total_events             !reported by CODA
15                 INTEGER gen_run_UTC_start,gen_run_UTC_stop,gen_run_UTC_last
16                 CHARACTER*80 gen_run_date_start,gen_run_date_stop
17                 CHARACTER*80 gen_run_date_last
18                 CHARACTER*800 gen_run_comment
19           *
20                 COMMON /gen_run_info/ gen_run_number,gen_run_type,
21                &         gen_run_total_events,gen_run_UTC_start,gen_run_UTC_stop,
22                &          gen_run_UTC_last,gen_run_date_start,gen_run_date_stop,
23                &           gen_run_date_last,gen_run_comment
24           *
25                 INTEGER gen_MAX_trigger_types
26                 PARAMETER (gen_MAX_trigger_types= 15)
27           *-triggers to process
28                 LOGICAL gen_run_enable(0:gen_MAX_trigger_types)
29           *-triggers found
30                 INTEGER gen_run_triggered(0:gen_MAX_trigger_types)
31           *
32                 INTEGER gen_run_starting_event,gen_run_stopping_event
33 cdaq  1.1       COMMON /gen_run_cntrl/ gen_run_starting_event,
34                &                        gen_run_stopping_event,
35                &                         gen_run_enable,gen_run_triggered
36           *
37           ****************************end: gen_run_info.cmn ***********************