Last change
on this file since 10197 was 10197, checked in by Mathieu Morlighem, 13 years ago |
Changed control method convergence behavior
|
File size:
356 bytes
|
Line | |
---|
1 | function convergence=controlconvergence(J,tol_cm)
|
---|
2 | %CONTROLCONVERGENCE - determine the convergence of control_core solution
|
---|
3 | %
|
---|
4 | % Usage:
|
---|
5 | % converged=controlconvergence(J,tol_cm)
|
---|
6 |
|
---|
7 | convergence=false;
|
---|
8 | if ~isnan(tol_cm) & J<tol_cm,
|
---|
9 | convergence=true;
|
---|
10 | issmprintf(VerboseConvergence(),'\n Convergence criterion reached: %g < %g\n',J,tol_cm);
|
---|
11 | end
|
---|
Note:
See
TracBrowser
for help on using the repository browser.