Warning, /include/isajet/dkytab.inc is written in an unsupported language. File is not indexed.
0001 #ifndef CERNLIB_ISAJET_DKYTAB_INC
0002 #define CERNLIB_ISAJET_DKYTAB_INC
0003 *
0004 *
0005 * dkytab.inc
0006 *
0007 C LOOK must be dimensioned to the maximum value of INDEX.
0008 INTEGER MXLOOK
0009 PARAMETER (MXLOOK=500)
0010 INTEGER MXDKY
0011 PARAMETER (MXDKY=3000)
0012 COMMON/DKYTAB/LOOK(MXLOOK),CBR(MXDKY),MODE(5,MXDKY),MELEM(MXDKY)
0013 SAVE /DKYTAB/
0014 #if defined(CERNLIB_LEVEL2)
0015 #include "isajet/l2dky.inc"
0016 * Ignoring t=pass
0017 #endif
0018 INTEGER LOOK,MODE,MELEM
0019 REAL CBR
0020
0021 #endif
