ISAJET/isajet/const.inc

   1 #ifndef CERNLIB_ISAJET_CONST_INC
   2 #define CERNLIB_ISAJET_CONST_INC
   3 *
   4 *
   5 * const.inc
   6 *
   7       COMMON/CONST/PI,SQRT2,ALFA,GF,UNITS
   8       SAVE /CONST/
   9       REAL      PI,SQRT2,ALFA,GF,UNITS
  10
  11 #endif