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 cdaq  1.6 * Revision 1.5  1995/03/13 19:01:03  cdaq
 6           * (SAW) Change gen_run_enable from logical to integer
 7           *

 8 cdaq  1.5 * Revision 1.4  1995/01/31  15:52:04  cdaq
 9           * (SAW) Add gen_run_hist_dump_interval for in run hist dumping
10           *

11 cdaq  1.4 * Revision 1.3  1994/10/20  14:19:12  cdaq
12           * (SAW) Add accumulators for analyzed event counts ("May process")
13           *

14 cdaq  1.3 * Revision 1.2  1994/08/03  20:11:50  cdaq
15           * (SAW) Add "CTPTYPE=parm" directive for auto generation of CTP reg calls
16           *

17 cdaq  1.2 * Revision 1.1  1994/05/27  15:12:47  cdaq
18           * Initial revision
19           *

20 cdaq  1.1 *........................................................................
21           *- Misc. info. about a run

22 cdaq  1.2 *
23           *     CTPTYPE=parm

24 cdaq  1.1 *
25                 INTEGER gen_run_number,gen_run_type
26                 INTEGER gen_run_total_events             !reported by CODA
27                 INTEGER gen_run_UTC_start,gen_run_UTC_stop,gen_run_UTC_last
28                 CHARACTER*80 gen_run_date_start,gen_run_date_stop
29                 CHARACTER*80 gen_run_date_last
30                 CHARACTER*800 gen_run_comment
31           *
32                 COMMON /gen_run_info/ gen_run_number,gen_run_type,
33                &         gen_run_total_events,gen_run_UTC_start,gen_run_UTC_stop,
34                &          gen_run_UTC_last,gen_run_date_start,gen_run_date_stop,
35                &           gen_run_date_last,gen_run_comment
36           *
37                 INTEGER gen_MAX_trigger_types
38                 PARAMETER (gen_MAX_trigger_types= 15)
39           *-triggers to process

40 cdaq  1.5       INTEGER gen_run_enable(0:gen_MAX_trigger_types)

41 cdaq  1.1 *-triggers found
42                 INTEGER gen_run_triggered(0:gen_MAX_trigger_types)

43 cdaq  1.3       INTEGER gen_run_analyzed(0:gen_MAX_trigger_types)

44 cdaq  1.4       integer gen_run_hist_dump_interval
45           *      

46 cdaq  1.1       INTEGER gen_run_starting_event,gen_run_stopping_event

47 cdaq  1.6       INTEGER grun,gstart,gstop,gdump,gtrig1,gtrig2,gtrig3,gtrig4
48           
49           *-shorter names for command line input
50                 equivalence (grun,gen_run_number)
51                 equivalence (gstart,gen_run_starting_event)
52                 equivalence (gstop,gen_run_stopping_event)
53                 equivalence (gdump,gen_run_hist_dump_interval)
54                 equivalence (gtrig1,gen_run_enable(0))
55                 equivalence (gtrig2,gen_run_enable(1))
56                 equivalence (gtrig3,gen_run_enable(2))
57                 equivalence (gtrig4,gen_run_enable(3))
58           

59 cdaq  1.1       COMMON /gen_run_cntrl/ gen_run_starting_event,
60                &                        gen_run_stopping_event,
61                &                         gen_run_enable,gen_run_triggered

62 cdaq  1.4      $     ,gen_run_analyzed,gen_run_hist_dump_interval

63 cdaq  1.1 *
64           ****************************end: gen_run_info.cmn ***********************

65 cdaq  1.4 
66           
67           
68