unit constants;

interface

const
     pi = 3.1415926535897932384626433832795;
     pi2 = 9.8696044010893586188344909998762;
     c0 = 299792458;
     eV = 1.60219E-19;
     me = 9.109E-31;      (*  electron mass *)
     mn = 1.675E-27;      (* neutron mass *)
     hp = 6.62618E-34;    (* Planck's contant *)
     hb = 1.054589E-34;   (* Planck's constant h bar *)
     hb2 = 1.1121811600000002E-68;
     mu0 = 4*PI*1E-7;     (* vacuum permitivitty *)
     muB = 9.27408E-24;   (* magneton de Bohr *)      { en J/T } { muB a longtemps été négatif ?!?! WHY ?!?}
     mun = -1.91*5.05082E-27;   (* %neutron moment *) { en J/T }
     Deg = Pi/180;        (* facteur de conversion en radians *)
     Rad = 180/Pi;
     hb2over2mn = 3.3199e-42; (* h barre carré sur 2 mn *)
     re = 2.81794e-15;    (* rayon classique de l'electron *)

     Pihm = 2*Pi*hb2/mn;
     Cte = hb2*2*pi*re/mn; { prefacteur pour le passage de V = Cte * d *f }

implementation

end.
 