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