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 csa   1.10 * Revision 1.9  1996/09/04 15:46:56  saw
 8            * (JRA) Add g_scaler_event_num
 9            *

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

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

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

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

22 cdaq  1.5  * Revision 1.4  1995/04/06  20:16:52  cdaq
23            * (SAW) Make scalers real
24            *

25 cdaq  1.4  * Revision 1.3  1994/12/18  04:04:53  cdaq
26            * (SAW) Add array and common for event by event scalers
27            *

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

31 cdaq  1.2  * Revision 1.1  1994/06/21  16:36:57  cdaq
32            * Initial revision
33            *
34            *     CTPTYPE=parm

35 cdaq  1.1  *
36                  integer*4 MAX_NUM_SCALERS
37                  parameter (MAX_NUM_SCALERS=500)

38 cdaq  1.3        integer*4 MAX_NUM_EVSCALERS
39                  parameter (MAX_NUM_EVSCALERS=16)

40 cdaq  1.6  

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

43 cdaq  1.6  *
44            *     CTPTYPE=event

45 cdaq  1.1  *

46 saw   1.8        integer gscaler_nroll(MAX_NUM_SCALERS)
47                  real*8 gscaler(MAX_NUM_SCALERS)         ! Current scaler values
48                  real*8 gscaler_old(MAX_NUM_SCALERS)     ! Scaler values at last event
49                  real*8 gscaler_change(MAX_NUM_SCALERS)  ! prev_scalers - scalers
50                  real*4 g_run_time                       !time of run at most recent scaler event

51 csa   1.10       real*4 g_beam_on_run_time               ! accumulated time of run for which
52                                                          ! beam current exceeded beam_on_thresh_cur.

53 saw   1.8        integer g_replay_time                   !time since start of run (from cpu clock) 

54 cdaq  1.1  *

55 saw   1.8        common /SCALERS/ gscaler, gscaler_old, gscaler_change,

56 csa   1.10      $     gclock_rate, g_run_time, gclock_index, g_replay_time, 
57                 $     gscaler_nroll, g_beam_on_run_time

58 cdaq  1.7  

59 cdaq  1.1  *

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

62 cdaq  1.5        real*8 evscalers(MAX_NUM_EVSCALERS)

63 cdaq  1.3  *

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

65 cdaq  1.7  *
66            *     CTPTYPE=parm
67            *

68 saw   1.8        integer*4 gbcm1_index
69                  integer*4 gbcm2_index
70                  integer*4 gbcm3_index
71                  integer*4 gunser_index
72                  real*8 gbcm1_gain
73                  real*8 gbcm2_gain
74                  real*8 gbcm3_gain
75                  real*8 gunser_gain
76                  real*8 gbcm1_offset
77                  real*8 gbcm2_offset
78                  real*8 gbcm3_offset
79                  real*8 gunser_offset

80 csa   1.10       real*8 g_beam_on_thresh_cur     ! threshold for beam to be on.

81 cdaq  1.7  *
82            *     CTPTYPE=event
83            *

84 saw   1.8        real*8 gbcm1_charge
85                  real*8 gbcm2_charge
86                  real*8 gbcm3_charge
87                  real*8 gunser_charge

88 csa   1.10       real*8 g_beam_on_bcm_charge   ! "beam on" accumulated charge
89                  integer*4 gscaler_event_num

90 cdaq  1.7  *
91                  common/BEAMCURRENT/

92 saw   1.8       &    gbcm1_index, gbcm2_index, gbcm3_index, gunser_index,
93                 &    gbcm1_gain, gbcm2_gain, gbcm3_gain, gunser_gain,
94                 &    gbcm1_offset, gbcm2_offset, gbcm3_offset, gunser_offset,

95 saw   1.9       &    gbcm1_charge, gbcm2_charge, gbcm3_charge, gunser_charge,

96 csa   1.10      &    g_beam_on_bcm_charge, g_beam_on_thresh_cur,

97 saw   1.9       &    gscaler_event_num