From 7df328724152480842fde2a183b08cb0a81c116b Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Thu, 12 May 2022 10:12:36 +0200
Subject: [PATCH] Fix bug introduced by 57527c94a27491107e

---
 src/utils/util.irp.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/utils/util.irp.f b/src/utils/util.irp.f
index 127d5433..84593031 100644
--- a/src/utils/util.irp.f
+++ b/src/utils/util.irp.f
@@ -39,7 +39,7 @@ double precision function binom_func(i,j)
   endif
 
   ! To avoid .999999 numbers
-  binom_func = binom_func + 0.5d0
+  binom_func = floor(binom_func + 0.5d0)
 
 end