0795afa3 |
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 |