9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-08-30 12:43:40 +02:00

Fix bug introduced by 57527c94a2

This commit is contained in:
Anthony Scemama 2022-05-12 10:12:36 +02:00
parent aa1eb991d0
commit 7df3287241

View File

@ -39,7 +39,7 @@ double precision function binom_func(i,j)
endif endif
! To avoid .999999 numbers ! To avoid .999999 numbers
binom_func = binom_func + 0.5d0 binom_func = floor(binom_func + 0.5d0)
end end