More volume overlaps corrected
[u/mrichter/AliRoot.git] / 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