From bbb0803ce45a3e4ba971508aa0cc1212f0ae1649 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 17 Jul 2013 19:58:48 +0000 Subject: [PATCH] itmin was always +1 --- code/DAMASK_spectral_solverAL.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/DAMASK_spectral_solverAL.f90 b/code/DAMASK_spectral_solverAL.f90 index c8c6534d2..2fe61a7bc 100644 --- a/code/DAMASK_spectral_solverAL.f90 +++ b/code/DAMASK_spectral_solverAL.f90 @@ -589,7 +589,7 @@ subroutine AL_converged(snes_local,it,xnorm,snorm,fnorm,reason,dummy,ierr) real(pReal) :: err_stress_tol err_stress_tol = max(maxval(abs(P_av))*err_stress_tolrel,err_stress_tolabs) - Converged = (it > itmin .and. & + Converged = (it >= itmin .and. & all([ err_f/err_f_tol, & err_p/err_p_tol, & err_stress/err_stress_tol] < 1.0_pReal)) &