phys_constants.f90

Go to the documentation of this file.

MODULE phys_constants

  USE itm_constants

  IMPLICIT NONE

!...  numbers from Particle Data Group
!...      July 2008 Particle Physics Booklet
!...      extracted from C Amsler et al, Phys Lett B 667 (2008) 1
!...      obtained from http://pdg.lbl.gov/2008/html/computer_read.html

  REAL(r8) :: pi=itm_pi
  REAL(r8) :: tpi=2.0_r8*itm_pi

  REAL(r8) :: mu_0 = itm_mu0
  REAL(r8) :: kb=itm_ev
  REAL(r8) :: ee=itm_qe
  REAL(r8) :: cc=1.0_r8, lcoul=14.0_r8

  REAL(r8) :: me=itm_me
  REAL(r8) :: md=(1875.612793_r8/0.510998910_r8)*itm_me

END MODULE phys_constants