function [v,u]=BohrMagneton()

[v,u]=Constant.(UnitSystem()).BohrMagneton;

end