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 saw   1.7 * Revision 1.6  1996/01/17 15:57:28  cdaq
 6           * (JRA) Add some short equivalences for CTP convenience
 7           *

 8 cdaq  1.6 * Revision 1.5  1995/03/13 19:01:03  cdaq
 9           * (SAW) Change gen_run_enable from logical to integer
10           *

11 cdaq  1.5 * Revision 1.4  1995/01/31  15:52:04  cdaq
12           * (SAW) Add gen_run_hist_dump_interval for in run hist dumping
13           *

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

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

20 cdaq  1.2 * Revision 1.1  1994/05/27  15:12:47  cdaq
21           * Initial revision
22           *

23 cdaq  1.1 *........................................................................
24           *- Misc. info. about a run

25 cdaq  1.2 *
26           *     CTPTYPE=parm

27 cdaq  1.1 *
28                 INTEGER gen_run_number,gen_run_type
29                 INTEGER gen_run_total_events             !reported by CODA
30                 INTEGER gen_run_UTC_start,gen_run_UTC_stop,gen_run_UTC_last
31                 CHARACTER*80 gen_run_date_start,gen_run_date_stop
32                 CHARACTER*80 gen_run_date_last
33                 CHARACTER*800 gen_run_comment
34           *
35                 COMMON /gen_run_info/ gen_run_number,gen_run_type,

36 saw   1.7      &     gen_run_total_events,gen_run_UTC_start,gen_run_UTC_stop,
37                &     gen_run_UTC_last,gen_run_date_start,gen_run_date_stop,
38                &     gen_run_date_last,gen_run_comment
39           *
40           *
41           *     CTPTYPE=parm

42 cdaq  1.1 *
43                 INTEGER gen_MAX_trigger_types
44                 PARAMETER (gen_MAX_trigger_types= 15)

45 saw   1.7       INTEGER gen_run_enable(0:gen_MAX_trigger_types)    !1=process, 0=ignore
46                 INTEGER gen_run_triggered(0:gen_MAX_trigger_types) !triggers found
47                 INTEGER gen_run_analyzed(0:gen_MAX_trigger_types)  ! NOT USED ANYWHERE
48                 INTEGER gen_run_hist_dump_interval

49 cdaq  1.1       INTEGER gen_run_starting_event,gen_run_stopping_event

50 saw   1.7 *
51                 COMMON /gen_run_cntrl/ gen_run_starting_event,
52                &     gen_run_stopping_event,
53                &     gen_run_enable,
54                &     gen_run_triggered,
55                &     gen_run_analyzed,
56                &     gen_run_hist_dump_interval
57           *

58 cdaq  1.6 *-shorter names for command line input

59 saw   1.7       integer grun,gstart,gstop,gdump,gtrig1,gtrig2,gtrig3,gtrig4 ! aliases

60 cdaq  1.6       equivalence (grun,gen_run_number)
61                 equivalence (gstart,gen_run_starting_event)
62                 equivalence (gstop,gen_run_stopping_event)
63                 equivalence (gdump,gen_run_hist_dump_interval)
64                 equivalence (gtrig1,gen_run_enable(0))
65                 equivalence (gtrig2,gen_run_enable(1))
66                 equivalence (gtrig3,gen_run_enable(2))
67                 equivalence (gtrig4,gen_run_enable(3))
68           

69 cdaq  1.1 *

70 saw   1.7 *     CTPTYPE=parm
71           *
72                 real*4 gps1,gps2,gps3  !prescale factors (1-hms,2-sos,3-coin)
73           *
74                 common/gen_prescales/ gps1,gps2,gps3

75 cdaq  1.4 

76 saw   1.7 *
77           *     CTPTYPE=parm
78           *
79                 integer gdebugdumpepics
80           *
81                 common/gen_debuggingstuff/ gdebugdumpepics

82 cdaq  1.4 

83 saw   1.7 ****************************end: gen_run_info.cmn ***********************