1 cdaq  1.1 *     Common block to hold the scalers.  Should this go in
 2           *     gen_data_structures.cmn or be separate.
 3           *

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

 5 cdaq  1.5 * Revision 1.4  1995/04/06  20:16:52  cdaq
 6           * (SAW) Make scalers real
 7           *

 8 cdaq  1.4 * Revision 1.3  1994/12/18  04:04:53  cdaq
 9           * (SAW) Add array and common for event by event scalers
10           *

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

14 cdaq  1.2 * Revision 1.1  1994/06/21  16:36:57  cdaq
15           * Initial revision
16           *
17           *     CTPTYPE=parm

18 cdaq  1.1 *
19                 integer*4 MAX_NUM_SCALERS
20                 parameter (MAX_NUM_SCALERS=500)

21 cdaq  1.3       integer*4 MAX_NUM_EVSCALERS
22                 parameter (MAX_NUM_EVSCALERS=16)

23 cdaq  1.1 *

24 cdaq  1.5       real*8 scalers(MAX_NUM_SCALERS)

25 cdaq  1.1 *
26                 common /SCALERS/ scalers
27           *

28 cdaq  1.5       real*8 evscalers(MAX_NUM_EVSCALERS)

29 cdaq  1.3 *
30                 common /EVSCALERS/ evscalers