mirror of
https://github.com/QuantumPackage/qp2.git
synced 2025-04-25 17:54:44 +02:00
fixed bug in Cholesky when too small basis are used
This commit is contained in:
parent
29603f9d91
commit
c9de28b903
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user