ISAJET/isajet/zevel.inc

   1 #ifndef CERNLIB_ISAJET_ZEVEL_INC
   2 #define CERNLIB_ISAJET_ZEVEL_INC
   3 *
   4 *
   5 * zevel.inc
   6 *
   7       INTEGER   MAXLEN
   8       PARAMETER (MAXLEN=1024)
   9       COMMON/ZEVEL/IZEVEL(MAXLEN)
  10       SAVE /ZEVEL/
  11       EQUIVALENCE(ZEVEL(1),IZEVEL(1))
  12       EQUIVALENCE(LZEVEL(1),IZEVEL(1))
  13       EQUIVALENCE (IZVL1,IZEVEL(1))
  14       EQUIVALENCE (IZVL2,IZEVEL(2))
  15 #if defined(CERNLIB_LEVEL2)
  16 #include "isajet/l2zevl.inc"
  17 * Ignoring t=pass
  18 #endif
  19       INTEGER   IZEVEL,IZVL1,IZVL2
  20       REAL      ZEVEL(MAXLEN)
  21       LOGICAL   LZEVEL(MAXLEN)
  22
  23 #endif