From f00c23478277549af89c4c2605371f8c7989243f Mon Sep 17 00:00:00 2001 From: eginer Date: Fri, 28 Oct 2022 13:24:50 +0200 Subject: [PATCH] changed threshold in src/non_hermit_dav/biorthog.irp.f --- src/non_hermit_dav/biorthog.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/non_hermit_dav/biorthog.irp.f b/src/non_hermit_dav/biorthog.irp.f index 12764f44..3c344184 100644 --- a/src/non_hermit_dav/biorthog.irp.f +++ b/src/non_hermit_dav/biorthog.irp.f @@ -314,7 +314,7 @@ subroutine non_hrmt_bieig(n, A, leigvec, reigvec, n_real_eigv, eigval) ! write(*, '(1000(F16.10,X))') VL(:,i) !enddo - thr_diag = 1d-10 + thr_diag = 1d-08 thr_norm = 1d+10 call check_EIGVEC(n, n, A, WR, VL, VR, thr_diag, thr_norm, .false.)