version 1.2, 2004/01/20 15:59:52
|
version 1.3, 2004/10/07 22:29:59
|
|
|
! All roads lead to infinity | ! All roads lead to infinity |
| |
! ... some physical constants | ! ... some physical constants |
real*8 Me, Me2, Mp, Mp2, Mn, Mn2, Mpi, Mpi2, Mk, Mk2, Md, Md2 |
real*8 me, Me2, Mp, Mp2, Mn, Mn2, Mpi, Mpi2, Mk, Mk2, Md, Md2 |
real*8 Mlambda, Msigma0, Msigma_minus | real*8 Mlambda, Msigma0, Msigma_minus |
real*8 amu, hbarc, pi, twopi, alpha, alpi, degrad, euler | real*8 amu, hbarc, pi, twopi, alpha, alpi, degrad, euler |
real*8 Q_E, N_A | real*8 Q_E, N_A |
parameter (Me=0.51099906d00) |
parameter (me=0.51099906d00) |
parameter (Me2=Me**2) | parameter (Me2=Me**2) |
parameter (Mp=938.27231d00) | parameter (Mp=938.27231d00) |
parameter (Mp2=Mp**2) | parameter (Mp2=Mp**2) |