diff --git a/modules-local/beamdyn/src/BeamDyn.f90 b/modules-local/beamdyn/src/BeamDyn.f90 index d8fd455745..6a9e03adeb 100644 --- a/modules-local/beamdyn/src/BeamDyn.f90 +++ b/modules-local/beamdyn/src/BeamDyn.f90 @@ -3697,6 +3697,8 @@ SUBROUTINE BD_DynamicSolutionGA2( x, OtherState, u, p, m, ErrStat, ErrMsg) ! Check for convergence Enorm = SQRT(abs(DOT_PRODUCT(m%LP_RHS_LU, m%LP_RHS(7:p%dof_total)))) + CALL BD_UpdateDynamicGA2(p,m,x,OtherState) + IF(i==1) THEN Eref = Enorm*p%tol IF(Enorm .LE. 1.0_DbKi) RETURN !FIXME: Do we want a hardcoded limit like this? @@ -3704,8 +3706,6 @@ SUBROUTINE BD_DynamicSolutionGA2( x, OtherState, u, p, m, ErrStat, ErrMsg) IF(Enorm .LE. Eref) RETURN ENDIF - CALL BD_UpdateDynamicGA2(p,m,x,OtherState) - ENDDO CALL setErrStat( ErrID_Fatal, "Solution does not converge after the maximum number of iterations", ErrStat, ErrMsg, RoutineName)