9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2025-04-25 09:44:43 +02:00

fixed bug in Cholesky when too small basis are used

This commit is contained in:
eginer 2025-04-11 11:18:42 +02:00
parent 29603f9d91
commit c9de28b903

View File

@ -305,7 +305,7 @@ END_PROVIDER
Qmax = max(Qmax, D(Dset(q)))
enddo
if (Qmax <= Dmin) exit
if (Qmax < Dmin) exit
! g.
@ -313,7 +313,7 @@ END_PROVIDER
do j=1,nq
if ( (Qmax <= Dmin).or.(N+j*1_8 > ndim8) ) exit
if ( (Qmax < Dmin).or.(N+j*1_8 > ndim8) ) exit
! i.
rank = N+j