ISAJET/isajet/keys.inc

   1 #ifndef CERNLIB_ISAJET_KEYS_INC
   2 #define CERNLIB_ISAJET_KEYS_INC
   3 *
   4 *
   5 * keys.inc
   6 *
   7       INTEGER MXKEYS
   8       PARAMETER (MXKEYS=20)
   9       COMMON/KEYS/IKEYS,KEYON,KEYS(MXKEYS)
  10       COMMON/XKEYS/REAC
  11       SAVE /KEYS/,/XKEYS/
  12       LOGICAL KEYS
  13       LOGICAL KEYON
  14       CHARACTER*8 REAC
  15       INTEGER   IKEYS
  16
  17 #endif
  18
  19
  20