Fixed bad index

MintonGroup · May 13, 2021 · 1f87eaf · 1f87eaf
1 parent edd784a
commit 1f87eaf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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