From c00a9da5f09d22a2e959bf2869a65d3914bb8b1a Mon Sep 17 00:00:00 2001 From: "Igor S. Gerasimov" Date: Wed, 27 Nov 2024 07:06:03 +0100 Subject: [PATCH] Set fail to false by default Signed-off-by: Igor S. Gerasimov --- src/optimizer.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/optimizer.f90 b/src/optimizer.f90 index f1d936347..d9002c392 100644 --- a/src/optimizer.f90 +++ b/src/optimizer.f90 @@ -1007,6 +1007,7 @@ pure subroutine solver_ssyevx(n,thr,A,U,e,fail) j=1 call lapack_syevx('V','I','U',n,A,n,dum,dum,j,j,thr, & & i,e,U,n,work,lwork,iwork,ifail,info) + fail = .false. if (info.ne.0) fail = .true. deallocate(iwork,work,ifail) @@ -1033,6 +1034,7 @@ pure subroutine solver_sspevx(n,thr,A,U,e,fail) j=1 call lapack_spevx('V','I','U',n,A,dum,dum,j,j,thr,i,e,U,n,work,iwork,ifail,info) + fail = .false. if (info.ne.0) fail = .true. deallocate(iwork,work,ifail)