Do not iterate if max is 1.

ORNL-Fusion · Feb 13, 2024 · d3e2213 · d3e2213
1 parent 098c408
commit d3e2213
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Sources/evolution.f90 b/Sources/evolution.f90
@@ -143,7 +143,7 @@ SUBROUTINE converge_diagonal(wout_file, ftol)
          l_iterate = (fsq_ratio1 .le. 0.5_dp    .and.                          &
                       fsq_total1 .gt. fsq_block .and.                          &
                       niter      .lt. niter_max) .or.                          &
-                     niter .eq. 1
+                     (niter .eq. 1 .and. niter_max .ne. 1)
 
          IF (.not.pert_added .and. fsq_total1.lt.100*fsq_block) THEN
             l_init_state = .true.