From 8f9a28f34033fb1837e0cac22cd12e27de3293c2 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Mon, 5 Aug 2019 13:24:41 +0200
Subject: [PATCH] Working n f12

---
 CI/F12CI.ml | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/CI/F12CI.ml b/CI/F12CI.ml
index c41442a..e179463 100644
--- a/CI/F12CI.ml
+++ b/CI/F12CI.ml
@@ -58,7 +58,14 @@ let f_ij mo_basis ki kj =
   |> List.hd
 
 let hf_ij mo_basis ki kj =
+  (*
   [ h_ij mo_basis ki kj ; f_ij mo_basis ki kj ]
+  *)
+  let integrals =
+    List.map (fun f -> f mo_basis)
+      [ CI.h_integrals ; f12_integrals ]
+  in
+  CIMatrixElement.make integrals ki kj 
 
 
 let is_a_double det_space =