LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-21 11:03:29 +01:00
Code Releases Activity

update binom_func to avoid .999...

Browse Source
This commit is contained in:
Yann Damour 2022-05-05 17:26:41 +02:00
parent c7f120f35e
commit 57527c94a2
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/utils/util.irp.f
View File

@ -37,6 +37,10 @@ double precision function binom_func(i,j)
else else
binom_func = dexp( logfact(i)-logfact(j)-logfact(i-j) ) binom_func = dexp( logfact(i)-logfact(j)-logfact(i-j) )
endif endif
! To avoid .999999 numbers
binom_func = binom_func + 0.5d0
end end