ISAJET/code/setcon.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE SETCON
   3 C          THIS SUBROUTINE SETS THE CONSTANTS IN /CONST/.
   4 #include "isajet/itapes.inc"
   5 #include "isajet/const.inc"
   6       PI=4.*ATAN(1.)
   7       SQRT2=SQRT(2.)
   8       ALFA=1./137.036
   9       GF=1.16570E-5
  10       UNITS=1./2.56815
  11       RETURN
  12       END