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.3 * Revision 1.2  1994/08/03  20:13:12  cdaq
 6           * (SAW) Add "CTPTYPE=parm" directive for auto generation of CTP reg calls
 7           *

 8 cdaq  1.2 * Revision 1.1  1994/06/21  16:36:57  cdaq
 9           * Initial revision
10           *
11           *     CTPTYPE=parm

12 cdaq  1.1 *
13                 integer*4 MAX_NUM_SCALERS
14                 parameter (MAX_NUM_SCALERS=500)

15 cdaq  1.3       integer*4 MAX_NUM_EVSCALERS
16                 parameter (MAX_NUM_EVSCALERS=16)

17 cdaq  1.1 *
18                 integer*4 scalers(MAX_NUM_SCALERS)
19           *
20                 common /SCALERS/ scalers
21           *

22 cdaq  1.3       integer*4 evscalers(MAX_NUM_EVSCALERS)
23           *
24                 common /EVSCALERS/ evscalers