1 saw   1.9 ******************* begin: gen_filenames.cmn ***********************
 2           *
 3           *     Common block to hold the raw scaler information and
 4           *     quantities calculated from the scaler events (time, current, etc...)

 5 cdaq  1.1 *

 6 cdaq  1.2 * $Log: gen_scalers.cmn,v $

 7 saw   1.9 * Revision 1.8  1996/04/30 14:05:12  saw
 8           * (JRA) Add some bcm stuff
 9           *

10 saw   1.8 * Revision 1.7  1996/01/17 15:47:29  cdaq
11           * (JRA) Add current monitor variables, time variable, and delta_scalers
12           *

13 cdaq  1.7 * Revision 1.6  1995/09/01 13:02:09  cdaq
14           * (JRA) Add time into run variable
15           *

16 cdaq  1.6 * Revision 1.5  1995/05/11  15:13:43  cdaq
17           * (SAW) Change scalers and evscalers to be real*8
18           *

19 cdaq  1.5 * Revision 1.4  1995/04/06  20:16:52  cdaq
20           * (SAW) Make scalers real
21           *

22 cdaq  1.4 * Revision 1.3  1994/12/18  04:04:53  cdaq
23           * (SAW) Add array and common for event by event scalers
24           *

25 cdaq  1.3 * Revision 1.2  1994/08/03  20:13:12  cdaq
26           * (SAW) Add "CTPTYPE=parm" directive for auto generation of CTP reg calls
27           *

28 cdaq  1.2 * Revision 1.1  1994/06/21  16:36:57  cdaq
29           * Initial revision
30           *
31           *     CTPTYPE=parm

32 cdaq  1.1 *
33                 integer*4 MAX_NUM_SCALERS
34                 parameter (MAX_NUM_SCALERS=500)

35 cdaq  1.3       integer*4 MAX_NUM_EVSCALERS
36                 parameter (MAX_NUM_EVSCALERS=16)

37 cdaq  1.6 

38 saw   1.8       integer*4 gclock_index      !index of hardware scaler clock.
39                 real*4 gclock_rate          ! rate of hardware scaler clock.

40 cdaq  1.6 *
41           *     CTPTYPE=event

42 cdaq  1.1 *

43 saw   1.8       integer gscaler_nroll(MAX_NUM_SCALERS)
44                 real*8 gscaler(MAX_NUM_SCALERS)         ! Current scaler values
45                 real*8 gscaler_old(MAX_NUM_SCALERS)     ! Scaler values at last event
46                 real*8 gscaler_change(MAX_NUM_SCALERS)  ! prev_scalers - scalers
47                 real*4 g_run_time                       !time of run at most recent scaler event
48                 integer g_replay_time                   !time since start of run (from cpu clock) 

49 cdaq  1.1 *

50 saw   1.8       common /SCALERS/ gscaler, gscaler_old, gscaler_change,
51                $     gclock_rate, g_run_time, gclock_index, g_replay_time, gscaler_nroll

52 cdaq  1.7 

53 cdaq  1.1 *

54 saw   1.8       integer*4 gscal_lastevnum(2)      ! check for missing/out of order of scaler events
55                 integer*4 gscal_evnum_roll(2)

56 cdaq  1.5       real*8 evscalers(MAX_NUM_EVSCALERS)

57 cdaq  1.3 *

58 saw   1.8       common /EVSCALERS/ evscalers, gscal_lastevnum, gscal_evnum_roll

59 cdaq  1.7 *
60           *     CTPTYPE=parm
61           *

62 saw   1.8       integer*4 gbcm1_index
63                 integer*4 gbcm2_index
64                 integer*4 gbcm3_index
65                 integer*4 gunser_index
66                 real*8 gbcm1_gain
67                 real*8 gbcm2_gain
68                 real*8 gbcm3_gain
69                 real*8 gunser_gain
70                 real*8 gbcm1_offset
71                 real*8 gbcm2_offset
72                 real*8 gbcm3_offset
73                 real*8 gunser_offset

74 cdaq  1.7 *
75           *     CTPTYPE=event
76           *

77 saw   1.8       real*8 gbcm1_charge
78                 real*8 gbcm2_charge
79                 real*8 gbcm3_charge
80                 real*8 gunser_charge

81 saw   1.9       integer gscaler_event_num

82 cdaq  1.7 *
83                 common/BEAMCURRENT/

84 saw   1.8      &    gbcm1_index, gbcm2_index, gbcm3_index, gunser_index,
85                &    gbcm1_gain, gbcm2_gain, gbcm3_gain, gunser_gain,
86                &    gbcm1_offset, gbcm2_offset, gbcm3_offset, gunser_offset,

87 saw   1.9      &    gbcm1_charge, gbcm2_charge, gbcm3_charge, gunser_charge,
88                &    gscaler_event_num