mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-01 21:53:40 +02:00
changed threshold in src/non_hermit_dav/biorthog.irp.f
This commit is contained in:
parent
877d1e621a
commit
f00c234782
@ -314,7 +314,7 @@ subroutine non_hrmt_bieig(n, A, leigvec, reigvec, n_real_eigv, eigval)
|
|||||||
! write(*, '(1000(F16.10,X))') VL(:,i)
|
! write(*, '(1000(F16.10,X))') VL(:,i)
|
||||||
!enddo
|
!enddo
|
||||||
|
|
||||||
thr_diag = 1d-10
|
thr_diag = 1d-08
|
||||||
thr_norm = 1d+10
|
thr_norm = 1d+10
|
||||||
call check_EIGVEC(n, n, A, WR, VL, VR, thr_diag, thr_norm, .false.)
|
call check_EIGVEC(n, n, A, WR, VL, VR, thr_diag, thr_norm, .false.)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user