From 1f87eaf602897581cdab5bf380df6cf0f335ffdf Mon Sep 17 00:00:00 2001 From: David Minton Date: Thu, 13 May 2021 17:43:30 -0400 Subject: [PATCH] Fixed bad index --- src/util/util_minimize_bfgs.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/util/util_minimize_bfgs.f90 b/src/util/util_minimize_bfgs.f90 index 22f956b62..a98bffc1d 100644 --- a/src/util/util_minimize_bfgs.f90 +++ b/src/util/util_minimize_bfgs.f90 @@ -74,7 +74,7 @@ function util_minimize_bfgs(f, N, x1, eps) result(fnum) conv = 0 S(:) = 0._DP do k = 1, N - if (abs(grad(j)) > eps) conv = conv + 1 + if (abs(grad(k)) > eps) conv = conv + 1 S(k) = -sum(H(:,k) * grad(:)) end do if (conv == 0) return