minor fix

jacobwilliams · Mar 6, 2024 · 05c6259 · 05c6259
1 parent f25b75f
commit 05c6259
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/simulated_annealing.F90 b/src/simulated_annealing.F90
@@ -644,6 +644,7 @@ subroutine sa(me, x, rt, t, vm, xopt, fopt, nacc, nfcnev, ier)
             end if
 
             ! check termination criteria.
+            quit = .false.
             ! first, check `f` if the known value is available
             if (me%optimal_f_specified) then
                 quit = abs(me%func(fopt) - me%optimal_f) <= abs(me%optimal_f_tol)