devtools/eigen
1
0
Fork 0
mirror of https://gitlab.com/libeigen/eigen.git synced 2026-04-10 11:34:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

clean r1mpyq: remove fortran leftovers

Browse Source
This commit is contained in:
Thomas Capricelli
2010-01-26 14:08:52 +01:00
parent 55f328b264
commit c04a93df31
2 changed files with 18 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
unsupported/Eigen/src/NonLinearOptimization/HybridNonLinearSolver.h
View File

@@ -360,8 +360,8 @@ HybridNonLinearSolver<FunctorType,Scalar>::solveOneStep(
/* compute the qr factorization of the updated jacobian. */
ei_r1updt<Scalar>(n, n, R, wa1.data(), wa2.data(), wa3.data(), &sing);
ei_r1mpyq<Scalar>(n, n, fjac.data(), fjac.rows(), wa2.data(), wa3.data());
ei_r1mpyq<Scalar>(1, n, qtf.data(), 1, wa2.data(), wa3.data());
ei_r1mpyq<Scalar>(n, n, fjac.data(), wa2.data(), wa3.data());
ei_r1mpyq<Scalar>(1, n, qtf.data(), wa2.data(), wa3.data());
jeval = false;
}
@@ -609,8 +609,8 @@ HybridNonLinearSolver<FunctorType,Scalar>::solveNumericalDiffOneStep(
/* compute the qr factorization of the updated jacobian. */
ei_r1updt<Scalar>(n, n, R, wa1.data(), wa2.data(), wa3.data(), &sing);
ei_r1mpyq<Scalar>(n, n, fjac.data(), fjac.rows(), wa2.data(), wa3.data());
ei_r1mpyq<Scalar>(1, n, qtf.data(), 1, wa2.data(), wa3.data());
ei_r1mpyq<Scalar>(n, n, fjac.data(), wa2.data(), wa3.data());
ei_r1mpyq<Scalar>(1, n, qtf.data(), wa2.data(), wa3.data());
jeval = false;
}