From 61a237c444744f386bf111230d5c954cb5849f46 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Thu, 28 Feb 2019 22:37:09 +0100
Subject: [PATCH] Fixed typo

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

diff --git a/CI/CI.ml b/CI/CI.ml
index 5e45724..e85c133 100644
--- a/CI/CI.ml
+++ b/CI/CI.ml
@@ -91,7 +91,7 @@ let create_matrix_spin f det_space =
     (** Update function when ki and kj are connected *)
     let update i j ki kj =
       let x = f ki kj in
-      if abs_float x < Constants.epsilon then
+      if abs_float x > Constants.epsilon then
         result.(i) <- (j, x) :: result.(i) ;
     in