LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-09 06:53:38 +01:00
Code Releases Activity

changed threshold in src/non_hermit_dav/biorthog.irp.f

Browse Source
This commit is contained in:
eginer 2022-10-28 13:24:50 +02:00
parent 877d1e621a
commit f00c234782
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/non_hermit_dav/biorthog.irp.f
View File

@ -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.)