1 jones 1.1 ! CONSTANTS.INC
 2           
 3           ! Note: All angles are in radians
 4           !	All distances are in cm
 5           !	All energies (momenta,masses) are in MeV
 6           !	All deltas are in percent
 7           !	All densities (thicknesses) are in g/cm3 (g/cm2)
 8           !	All B fields are in kG
 9           !	All roads lead to infinity
10           
11           ! ... some physical constants

12 jones 1.3 	real*8 me, Me2, Mp, Mp2, Mn, Mn2, Mpi, Mpi2, Mk, Mk2, Md, Md2

13 jones 1.1 	real*8 Mlambda, Msigma0, Msigma_minus
14           	real*8 amu, hbarc, pi, twopi, alpha, alpi, degrad, euler
15           	real*8 Q_E, N_A

16 jones 1.3 	parameter (me=0.51099906d00)

17 jones 1.1 	parameter (Me2=Me**2)

18 jones 1.2 	parameter (Mp=938.27231d00)

19 jones 1.1 	parameter (Mp2=Mp**2)

20 jones 1.2 	parameter (Mn=939.56563d00)

21 jones 1.1 	parameter (Mn2=Mn**2)

22 jones 1.2 	parameter (Mpi=139.56995d00)

23 jones 1.1 	parameter (Mpi2=Mpi**2)

24 jones 1.2         parameter (Mk=493.677d00)

25 jones 1.1         parameter (Mk2=Mk**2)

26 jones 1.2         parameter (Md=1875.613d00)

27 jones 1.1         parameter (Md2=Md**2)

28 jones 1.2 	parameter (Mlambda=1115.68d00)
29           	parameter (Msigma0=1192.64d00)
30           	parameter (Msigma_minus=1197.45d00)
31           	parameter (amu=931.49432d00)
32           	parameter (hbarc=197.327053d00)
33           	parameter (pi=3.141592653589793d00)

34 jones 1.1 	parameter (twopi=2.*pi)

35 jones 1.2 	parameter (alpha=1./137.0359895d00)

36 jones 1.1 	parameter (alpi=alpha/pi)
37           	parameter (degrad=180.d0/pi)

38 jones 1.2 	parameter (euler=0.577215665d00)
39                   PARAMETER (Q_E = 1.602d00)            !e- charge in uCoul (*1E-13)
40                   PARAMETER (N_A = 6.022d00)            !Avogadro's number (*1E+23)