mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-10-14 03:31:32 +02:00
update binom_func to avoid .999...
This commit is contained in:
parent
c7f120f35e
commit
57527c94a2
@ -37,6 +37,10 @@ double precision function binom_func(i,j)
|
||||
else
|
||||
binom_func = dexp( logfact(i)-logfact(j)-logfact(i-j) )
|
||||
endif
|
||||
|
||||
! To avoid .999999 numbers
|
||||
binom_func = binom_func + 0.5d0
|
||||
|
||||
end
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user