[u/mrichter/AliRoot.git] / ISAJET / code / setcon.F

#include "isajet/pilot.h"
      SUBROUTINE SETCON
C          THIS SUBROUTINE SETS THE CONSTANTS IN /CONST/.
#include "isajet/itapes.inc"
#include "isajet/const.inc"
      PI=4.*ATAN(1.)
      SQRT2=SQRT(2.)
      ALFA=1./137.036
      GF=1.16570E-5
      UNITS=1./2.56815
      RETURN
      END
Commit	Line	Data
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