fix a bug introduced between the cminpack version of Manolis Lourakis and

the one from Frédéric Devernay.
Here, we want to compute the max over the column, the -1 is not needed in
fortran because indices start at 1, contrary to c/c++.
This commit is contained in:
Thomas Capricelli 2010-01-26 04:55:36 +01:00
parent 9651e0c503
commit 1403cea087

View File

@ -38,7 +38,7 @@ void ei_dogleg(
for (i = 0; i <= j; ++i) {
/* Computing MAX */
temp = std::max(temp,ei_abs(r[l]));
l = l + n - i;
l = l + n - i - 1;
}
temp = epsmch * temp;
if (temp == 0.)