1 saw   1.1 *     file name: gen_misc.cmn
 2           *
 3           * $Log:$
 4           *     purpose: define varibles for
 5           *     - scaler histograms
 6           *     - coincidence TDCs (coin between HMS and Polder)
 7           *
 8           *
 9           *--------------------------------------------------------------------------
10           *  for display of scalers or test values in histograms
11           *
12           *    CTPTYPE=parm
13                 integer*4 g_maxscal_h
14                 parameter (g_maxscal_h=50)  !max number of scalers per histogram
15                 integer*4
16                2  g_scal_his1, g_scal_his2, g_scal_his3, g_scal_his4,
17                2  g_scal_his5, g_scal_his6, g_scal_his7, g_scal_his8
18           *
19           *    CTPTYPE=event
20           *
21                 real*4
22 saw   1.1      1  g_scaler_h1(g_maxscal_h), g_scaler_h_old1(g_maxscal_h),
23                1  g_scaler_h2(g_maxscal_h), g_scaler_h_old2(g_maxscal_h),
24                1  g_scaler_h3(g_maxscal_h), g_scaler_h_old3(g_maxscal_h),
25                1  g_scaler_h4(g_maxscal_h), g_scaler_h_old4(g_maxscal_h),
26                1  g_scaler_h5(g_maxscal_h), g_scaler_h_old5(g_maxscal_h),
27                1  g_scaler_h6(g_maxscal_h), g_scaler_h_old6(g_maxscal_h),
28                1  g_scaler_h7(g_maxscal_h), g_scaler_h_old7(g_maxscal_h),
29                1  g_scaler_h8(g_maxscal_h), g_scaler_h_old8(g_maxscal_h)
30           
31                 common /g_scaler_hist/
32                1  g_scaler_h1, g_scaler_h_old1,
33                1  g_scaler_h2, g_scaler_h_old2,
34                1  g_scaler_h3, g_scaler_h_old3,
35                1  g_scaler_h4, g_scaler_h_old4,
36                1  g_scaler_h5, g_scaler_h_old5,
37                1  g_scaler_h6, g_scaler_h_old6,
38                1  g_scaler_h7, g_scaler_h_old7,
39                1  g_scaler_h8, g_scaler_h_old8,
40                2  g_scal_his1, g_scal_his2, g_scal_his3, g_scal_his4,
41                2  g_scal_his5, g_scal_his6, g_scal_his7, g_scal_his8
42           
43 saw   1.1 *--------------------------------------------------------------------------
44           *
45           *    CTPTYPE=event
46           *
47                 integer*4
48                1   c_hrtdc_s22,
49                3   c_hrtdc_hms, 
50                6   c_mhtdc_hms 
51           *
52                 common/gcoin_misc/
53                1   c_hrtdc_s22,
54                3   c_hrtdc_hms, 
55                6   c_mhtdc_hms 
56           *