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)))
|
Qmax = max(Qmax, D(Dset(q)))
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
if (Qmax <= Dmin) exit
|
if (Qmax < Dmin) exit
|
||||||
|
|
||||||
! g.
|
! g.
|
||||||
|
|
||||||
@ -313,7 +313,7 @@ END_PROVIDER
|
|||||||
|
|
||||||
do j=1,nq
|
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.
|
! i.
|
||||||
rank = N+j
|
rank = N+j
|
||||||
|
Loading…
x
Reference in New Issue
Block a user