PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 04:43:45 +01:00
Code Releases Activity

changed thresholds

Browse Source
This commit is contained in:
eginer 2022-10-24 22:14:36 +02:00
parent 32875d4ab1
commit f5b0ba2e26
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/non_hermit_dav/lapack_diag_non_hermit.irp.f
View File

@ -610,7 +610,7 @@ subroutine impose_biorthog_qr(m, n, Vl, Vr)
accu_nd = dsqrt(accu_nd) accu_nd = dsqrt(accu_nd)
thr_d = 1d-10 thr_d = 1d-10
thr_nd = 1d-12 thr_nd = 1d-08
if((accu_nd .lt. thr_nd) .and. (dabs(accu_d-dble(n)) .lt. thr_d)) then if((accu_nd .lt. thr_nd) .and. (dabs(accu_d-dble(n)) .lt. thr_d)) then
print *, ' bi-orthogonal vectors without QR !' print *, ' bi-orthogonal vectors without QR !'
deallocate(S) deallocate(S)
@ -1675,7 +1675,7 @@ subroutine check_weighted_biorthog(n, m, W, Vl, Vr, accu_d, accu_nd, S, stop_ifn
double precision, allocatable :: SS(:,:), tmp(:,:) double precision, allocatable :: SS(:,:), tmp(:,:)
thr_d = 1d-6 thr_d = 1d-6
thr_nd = 1d-10 thr_nd = 1d-08
print *, ' check weighted bi-orthogonality' print *, ' check weighted bi-orthogonality'
@ -1742,7 +1742,7 @@ subroutine check_biorthog(n, m, Vl, Vr, accu_d, accu_nd, S, stop_ifnot)
double precision, allocatable :: SS(:,:) double precision, allocatable :: SS(:,:)
thr_d = 1d-6 thr_d = 1d-6
thr_nd = 1d-10 thr_nd = 1d-08
print *, ' check bi-orthogonality' print *, ' check bi-orthogonality'