1 cdaq  1.1 **************************begin: gen_one_ev_info.cmn ***********************
 2           *- 
 3           *-   Created   4-Sep-1994   Kevin B. Beard, Hampton Univ.
 4           *........................................................................
 5           *- Misc. info. needed for remote display
 6           *
 7           * $Log:$
 8           *
 9                 INTEGER gen_display_server_RPCprgmID
10                 INTEGER gen_display_server_RPCversionID
11                 CHARACTER*80 gen_display_server_machine
12                 INTEGER gen_display_RPCclientID
13                 INTEGER gen_display_everything
14                 INTEGER gen_display_event_info
15                 INTEGER gen_display_device
16                 INTEGER gen_display_wait_events
17                 INTEGER gen_display_wait_seconds
18                 CHARACTER*132 gen_display_interesting
19           *
20                 COMMON /gen_display_info/ gen_display_server_RPCprgmID,
21                &                 gen_display_server_RPCversionID,
22 cdaq  1.1      &                 gen_display_server_machine,
23                &                 gen_display_RPCclientID,
24                &                 gen_display_everything,gen_display_event_info,
25                &                 gen_display_device,gen_display_wait_events,
26                &                 gen_display_wait_seconds,gen_display_interesting
27           *
28           
29           *     CTPTYPE=parm
30           *
31                 integer*4 ONE_EV,GRAPH_IO_DEV
32           *
33           *      parameter (ONE_EV = -1)
34           *      parameter (GRAPH_IO_DEV = 1)
35           *
36                 common/one_ev_io/ ONE_EV,GRAPH_IO_DEV
37           *
38           *     CERN lib stuff
39           *
40                 integer NGBANK			! size of GCBANK common block
41                 parameter (NGBANK = 1000000)
42           
43 cdaq  1.1       integer NHBOOK			! size of PAWC common block
44                 parameter (NHBOOK = 1000000)
45           
46                 REAL GCworking(NGBANK)                 ! GCBANK memory
47                 COMMON /GCBANK/ GCworking
48           *
49                 REAL HBOOKworking(NGBANK)              ! PAWC memory
50                 COMMON /PAWC/  HBOOKworking
51           
52           ****************************end: gen_display_info.cmn ***********************