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