From 6b83e80572c879a48b53567bdb89ec37e0ceec98 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Sun, 4 Feb 2018 23:46:06 +0100
Subject: [PATCH] Working on Nuclear ints

---
 Basis/NucInt.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Basis/NucInt.ml b/Basis/NucInt.ml
index e551c8d..dd6d416 100644
--- a/Basis/NucInt.ml
+++ b/Basis/NucInt.ml
@@ -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)
     )