-
Notifications
You must be signed in to change notification settings - Fork 4
/
constants.inc
42 lines (40 loc) · 1.22 KB
/
constants.inc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
! CONSTANTS.INC
! Note: All angles are in radians
! All distances are in cm
! All energies (momenta,masses) are in MeV
! All deltas are in percent
! All densities (thicknesses) are in g/cm3 (g/cm2)
! All B fields are in kG
! All roads lead to infinity
! ... some physical constants
real*8 Me, Me2, Mp, Mp2, Mn, Mn2, Mpi, Mpi2, Mpi0, Mpi02
real*8 Mk, Mk2, Mrho, Mrho2,Md, Md2
real*8 Mlambda, Msigma0, Msigma_minus
real*8 amu, hbarc, pi, twopi, alpha, alpi, degrad, euler
parameter (Me=0.51099906)
parameter (Me2=Me**2)
parameter (Mp=938.27231)
parameter (Mp2=Mp**2)
parameter (Mn=939.56563)
parameter (Mn2=Mn**2)
parameter (Mpi=139.57018)
parameter (Mpi2=Mpi**2)
parameter (Mpi0=134.9766)
parameter (Mpi02=Mpi0**2)
parameter (Mk=493.677)
parameter (Mk2=Mk**2)
parameter (Mrho=769.3)
parameter (Mrho2=Mrho**2)
parameter (Md=1875.613)
parameter (Md2=Md**2)
parameter (Mlambda=1115.68)
parameter (Msigma0=1192.64)
parameter (Msigma_minus=1197.45)
parameter (amu=931.49432)
parameter (hbarc=197.327053)
parameter (pi=3.141592653589793)
parameter (twopi=2.*pi)
parameter (alpha=1./137.0359895)
parameter (alpi=alpha/pi)
parameter (degrad=180./pi)
parameter (euler=0.577215665)