ISAJET/isajet/dkytab.inc

   1 #ifndef CERNLIB_ISAJET_DKYTAB_INC
   2 #define CERNLIB_ISAJET_DKYTAB_INC
   3 *
   4 *
   5 * dkytab.inc
   6 *
   7 C          LOOK must be dimensioned to the maximum value of INDEX.
   8       INTEGER   MXLOOK
   9       PARAMETER (MXLOOK=500)
  10       INTEGER   MXDKY
  11       PARAMETER (MXDKY=3000)
  12       COMMON/DKYTAB/LOOK(MXLOOK),CBR(MXDKY),MODE(5,MXDKY),MELEM(MXDKY)
  13       SAVE /DKYTAB/
  14 #if defined(CERNLIB_LEVEL2)
  15 #include "isajet/l2dky.inc"
  16 * Ignoring t=pass
  17 #endif
  18       INTEGER   LOOK,MODE,MELEM
  19       REAL      CBR
  20
  21 #endif