LCPQ
/
QCaml
mirror of https://gitlab.com/scemama/QCaml.git
10
1
Fork 0
Code Releases Activity

Working on Nuclear ints

This commit is contained in:
Anthony Scemama 2018-02-04 23:46:06 +01:00
parent 925cdf693f
commit 6b83e80572
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Basis/NucInt.ml
View File

@ -19,7 +19,7 @@ let zero_m ~maxm ~expo_pq_inv ~norm_pq_sq =
let t = norm_pq_sq *. exp_pq in
boys_function ~maxm t
|> Array.mapi (fun m fm ->
two_over_sq_pi *. (if m mod 2 = 0 then fm else -.fm) *.
two_over_sq_pi *. fm *.
(pow exp_pq m) *. (sqrt exp_pq)
)