Set fail to false by default (#1140)

Signed-off-by: Igor S. Gerasimov <[email protected]>
grimme-lab · Nov 27, 2024 · 99b3583 · 99b3583
1 parent 88182d2
commit 99b3583
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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)