source: issm/trunk/src/m/solutions/controlconvergence.m@ 10197

function convergence=controlconvergence(J,tol_cm)
%CONTROLCONVERGENCE - determine the convergence of control_core solution
%
%   Usage:
%       converged=controlconvergence(J,tol_cm)

        convergence=false;
        if ~isnan(tol_cm) & J<tol_cm,
                convergence=true;
                issmprintf(VerboseConvergence(),'\n      Convergence criterion reached: %g < %g\n',J,tol_cm);
        end