(* [[file:../constants.org::*Constants][Constants:2]] *)

(* Constants:2 ends here *)

(* [[file:../constants.org::*~epsilon~][~epsilon~:2]] *)
let epsilon = 2.e-15
(* ~epsilon~:2 ends here *)

(* [[file:../constants.org::*~integrals_cutoff~][~integrals_cutoff~:2]] *)
let integrals_cutoff = epsilon
(* ~integrals_cutoff~:2 ends here *)

(* [[file:../constants.org::*Mathematical constants][Mathematical constants:2]] *)
let pi             = acos (-1.)
let two_pi         = 2. *. pi
let sq_pi          = sqrt pi
let sq_pi_over_two = sq_pi *. 0.5
let pi_inv         = 1. /. pi
let two_over_sq_pi = 2. /. sq_pi
(* Mathematical constants:2 ends here *)

(* [[file:../constants.org::*Physical constants][Physical constants:2]] *)
let a0 = 0.529_177_210_67
let a0_inv = 1. /. a0
let ha_to_ev = 27.211_386_02
let ev_to_ha = 1. /. ha_to_ev
(* Physical constants:2 ends here *)