diff options
author | 2009-08-24 21:53:08 +0200 | |
---|---|---|
committer | 2009-08-24 21:53:08 +0200 | |
commit | 86cb9364c9bd1e811528d40d268e0bf54a7e869e (patch) | |
tree | 0a8229a7aba4d93e08159f03e032c95a059df335 /unsupported/Eigen/src/NonLinear/fdjac2.h | |
parent | 45442b8d416cc9f555624848407900aafd7c11a5 (diff) |
clean fortran stuff in fdjac*
Diffstat (limited to 'unsupported/Eigen/src/NonLinear/fdjac2.h')
-rw-r--r-- | unsupported/Eigen/src/NonLinear/fdjac2.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unsupported/Eigen/src/NonLinear/fdjac2.h b/unsupported/Eigen/src/NonLinear/fdjac2.h index bc3a82106..8766a9566 100644 --- a/unsupported/Eigen/src/NonLinear/fdjac2.h +++ b/unsupported/Eigen/src/NonLinear/fdjac2.h @@ -5,8 +5,7 @@ int ei_fdjac2( Matrix< Scalar, Dynamic, 1 > &x, Matrix< Scalar, Dynamic, 1 > &fvec, Matrix< Scalar, Dynamic, Dynamic > &fjac, - Scalar epsfcn, - Matrix< Scalar, Dynamic, 1 > &wa) + Scalar epsfcn) { /* Local variables */ Scalar h, temp; @@ -16,6 +15,7 @@ int ei_fdjac2( const Scalar epsmch = epsilon<Scalar>(); const int n = x.size(); const Scalar eps = ei_sqrt((std::max(epsfcn,epsmch))); + Matrix< Scalar, Dynamic, 1 > wa(fvec.size()); for (int j = 0; j < n; ++j) { temp = x[j]; |