ISAJET/isajet/kkgrav.inc

   1 #ifndef CERNLIB_ISAJET_KKGRAV_INC
   2 #define CERNLIB_ISAJET_KKGRAV_INC
   3 *
   4 *
   5 * kkgrav.inc
   6 *
   7 C          KKGravity common
   8       COMMON/KKGRAV/NEXTRAD,MASSD,KKGSD,SURFD,UVCUT
   9       INTEGER NEXTRAD
  10       REAL    MASSD,KKGSD,SURFD
  11       LOGICAL UVCUT
  12       SAVE /KKGRAV/
  13
  14 #endif