(file) Return to constants.inc CVS log (file) (dir) Up to [HallC] / pol_hms_single

Diff for /pol_hms_single/constants.inc between version 1.1 and 1.2

version 1.1, 2003/12/19 13:37:27 version 1.2, 2004/01/20 15:59:52
Line 13 
Line 13 
         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.51099906)          parameter (Me=0.51099906d00)
         parameter (Me2=Me**2)         parameter (Me2=Me**2)
         parameter (Mp=938.27231)          parameter (Mp=938.27231d00)
         parameter (Mp2=Mp**2)         parameter (Mp2=Mp**2)
         parameter (Mn=939.56563)          parameter (Mn=939.56563d00)
         parameter (Mn2=Mn**2)         parameter (Mn2=Mn**2)
         parameter (Mpi=139.56995)          parameter (Mpi=139.56995d00)
         parameter (Mpi2=Mpi**2)         parameter (Mpi2=Mpi**2)
         parameter (Mk=493.677)          parameter (Mk=493.677d00)
         parameter (Mk2=Mk**2)         parameter (Mk2=Mk**2)
         parameter (Md=1875.613)          parameter (Md=1875.613d00)
         parameter (Md2=Md**2)         parameter (Md2=Md**2)
         parameter (Mlambda=1115.68)          parameter (Mlambda=1115.68d00)
         parameter (Msigma0=1192.64)          parameter (Msigma0=1192.64d00)
         parameter (Msigma_minus=1197.45)          parameter (Msigma_minus=1197.45d00)
         parameter (amu=931.49432)          parameter (amu=931.49432d00)
         parameter (hbarc=197.327053)          parameter (hbarc=197.327053d00)
         parameter (pi=3.141592653589793)          parameter (pi=3.141592653589793d00)
         parameter (twopi=2.*pi)         parameter (twopi=2.*pi)
         parameter (alpha=1./137.0359895)          parameter (alpha=1./137.0359895d00)
         parameter (alpi=alpha/pi)         parameter (alpi=alpha/pi)
         parameter (degrad=180.d0/pi)         parameter (degrad=180.d0/pi)
         parameter (euler=0.577215665)          parameter (euler=0.577215665d00)
         PARAMETER (Q_E = 1.602)            !e- charge in uCoul (*1E-13)          PARAMETER (Q_E = 1.602d00)            !e- charge in uCoul (*1E-13)
         PARAMETER (N_A = 6.022)            !Avogadro's number (*1E+23)          PARAMETER (N_A = 6.022d00)            !Avogadro's number (*1E+23)


Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

Analyzer/Replay: Mark Jones, Documents: Stephen Wood
Powered by
ViewCVS 0.9.2-cvsgraph-1.4.0