C PARAMETER file based on Physical Constants (p.1233) of RPP
C T. M. Sanders (sanders@umich.edu) 1/95
C
C
C speed of light in vacuum (def) m/s  
      REAL*8 C
      PARAMETER (C 2.99792458E8)
C
C Planck constant (40)J s                 
      REAL*8 H
      PARAMETER (H 6.6260755E-34)
C
C Planck constant, reduced (63) J s       
      REAL*8 H_BAR
      PARAMETER (H_BAR 1.05457266E-34)
C
C Planck constant, reduced (20) MeV s       
      REAL*8 H_BAR_MEVS
      PARAMETER (H_BAR_MEVS 6.5821220E-22)
C
C electron charge magnitude (49) C      
      REAL*8 E_C
      PARAMETER (E_C 1.60217733E-19)
C
C electron charge magnitude (15) esu      
      REAL*8 E_ESU
      PARAMETER (E_ESU 4.8032068E-10)
C
C conversion constant hbar*c (59) MeV Fm            
      REAL*8 HBARC
      PARAMETER (HBARC 197.327053)
C
C conversion constant (hbar*c)^2 (23) GeV^2 mbarn            
      REAL*8 HBARC2
      PARAMETER (HBARC2 0.38937966)
C
C electron mass (54) kg                  
      REAL*8 M_E_KG
      PARAMETER (M_E_KG 9.1093897E-31)
C
C electron mass (15) MeV/c^2                   
      REAL*8 M_E_MEV
      PARAMETER (M_E_MEV 0.51099906)
C
C proton mass (28) MeV/c^2                     
      REAL*8 M_P_MEV
      PARAMETER (M_P_MEV 938.27231)
C
C proton mass (12) u                    
      REAL*8 M_P_U
      PARAMETER (M_P_U 1.007276470)
C
C proton mass (10) kg                    
      REAL*8 M_P_KG
      PARAMETER (M_P_KG 1.6726231E-27)
C
C proton mass (37) m_e                    
      REAL*8 M_P_M_E
      PARAMETER (M_P_M_E 1836.152701)
C
C deuteron mass (57) MeV/c^2                  
      REAL*8 M_D_MEV
      PARAMETER (M_D_MEV 1875.61339)
C
C unified atomic mass unit (u) (28) MeV/c^2   
      REAL*8 U_MEV
      PARAMETER (U_MEV 931.49432)
C
C unified atomic mass unit (u) (10) kg   
      REAL*8 U_KG
      PARAMETER (U_KG 1.6605402E-27)
C
C permittivity of free space F/m      
      REAL*8 EPSILON_0
      PARAMETER (EPSILON_0 8.854187817E-12)
C
C permeability of free space N/A^2      
      REAL*8 MU_0
      PARAMETER (MU_0 12.566370614E-7)
C
C fine-structure constant (61)        
      REAL*8 ALPHA
      PARAMETER (ALPHA 1/137.0359895)
C
C classical electron radius (38) m     
      REAL*8 R_E
      PARAMETER (R_E 2.81794092E-15)
C
C electron Compton wavelength (35) m   
      REAL*8 LAMBDA_BAR_E
      PARAMETER (LAMBDA_BAR_E 3.86159323E-13)
C
C Bohr radius (mnucleus= infty) (24) m     
      REAL*8 A_0
      PARAMETER (A_0 0.529177249E-10)
C
C wavelength of 1 eV/c particle (37) m   
      REAL*8 LAMBDA_1EV
      PARAMETER (LAMBDA_1EV 1.23984244E-6)
C
C Rydberg energy (mnucleus= infty) (40) eV                 
      REAL*8 R_INFTY_EV
      PARAMETER (R_INFTY_EV 13.6056981)
C
C Thomson cross section (18) barn          
      REAL*8 SIGMA_0_BARN
      PARAMETER (SIGMA_0_BARN 0.66524616)
C
C Bohr magneton (52)  MeV/T                 
      REAL*8 MU_B_MEV_T
      PARAMETER (MU_B_MEV_T 5.78838263E-11)
C
C nuclear magneton (28) MeV/T               
      REAL*8 MU_N_MEV_T
      PARAMETER (MU_N_MEV_T 3.15245166E-14)
C
C electron cyclotron freq./field (53) C/kg (rad/sT) 
      REAL*8 E_M_E
      PARAMETER (E_M_E 1.75881962E11)
C
C proton cyclotron freq./field (29) C/kg (rad/sT) 
      REAL*8 E_M_P
      PARAMETER (E_M_P 9.5788309E7)
C
C gravitational constant (85) m^3/kgs^2         
      REAL*8 G_SI
      PARAMETER (G_SI 6.67259E-11)
C
C gravitational constant (86) h_bar c (GeV/c^2)^{-2}       
      REAL*8 G_P
      PARAMETER (G_P 6.70711E-39)
C
C standard grav. accel., sea level m/s^2 
      REAL*8 SMALL_G
      PARAMETER (SMALL_G 9.80665)
C
C Avogadro constant (36)  /mole            
      REAL*8 N_A
      PARAMETER (N_A 6.0221367E23)
C
C Boltzmann constant (12) J/K             
      REAL*8 K_B
      PARAMETER (K_B 1.380658E-23)
C
C Boltzmann constant (73) eV/K            
      REAL*8 K_B_EV
      PARAMETER (K_B_EV 8.617385E-5)
C
C molar volume, ideal gas at STP (19) m^3/mole  
      REAL*8 V_MOLAR
      PARAMETER (V_MOLAR 22.41410E-3)
C
C Wien displacement law constant (24) m K 
      REAL*8 LAMBDAT
      PARAMETER (LAMBDAT 2.897756E-3)
C
C Stefan-Boltzmann constant (19) W/m^2K^4       
      REAL*8 SIGMA_SB
      PARAMETER (SIGMA_SB 5.67051E-8)
C
C Fermi coupling constant (2)  GeV^{-2}        
      REAL*8 G_F
      PARAMETER (G_F 1.16639E-5)
C
C weak mixing angle  (5)  at M_Z           
      REAL*8 SIN2_THETA_W
      PARAMETER (SIN2_THETA_W 0.23192)
C
C W boson mass (26) GeV/c^2                  
      REAL*8 M_W
      PARAMETER (M_W 80.22)
C
C Z_0 boson mass (7) GeV/c^2                  
      REAL*8 M_Z0
      PARAMETER (M_Z0 91.187)
C
C strong coupling constant (5))  at M_Z     
      REAL*8 G_S
      PARAMETER (G_S 0.117)
.