diff options
author | Gael Guennebaud <g.gael@free.fr> | 2016-07-25 18:20:08 +0200 |
---|---|---|
committer | Gael Guennebaud <g.gael@free.fr> | 2016-07-25 18:20:08 +0200 |
commit | 9c663e4ee8c8fc31831ce6b1655035f99e192474 (patch) | |
tree | 0c8aad9620c44c1382590b8e41400840758ee2b7 /Eigen/src/Cholesky | |
parent | 0c06077efab47880db140793e33d684b8da49a49 (diff) |
Clean references to MKL in LAPACKe support.
Diffstat (limited to 'Eigen/src/Cholesky')
-rw-r--r-- | Eigen/src/Cholesky/LLT_LAPACKE.h | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/Eigen/src/Cholesky/LLT_LAPACKE.h b/Eigen/src/Cholesky/LLT_LAPACKE.h index f0f8600e4..bc6489e69 100644 --- a/Eigen/src/Cholesky/LLT_LAPACKE.h +++ b/Eigen/src/Cholesky/LLT_LAPACKE.h @@ -25,16 +25,13 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ******************************************************************************** - * Content : Eigen bindings to Intel(R) MKL + * Content : Eigen bindings to LAPACKe * LLt decomposition based on LAPACKE_?potrf function. ******************************************************************************** */ -#ifndef EIGEN_LLT_MKL_H -#define EIGEN_LLT_MKL_H - -#include "Eigen/src/Core/util/MKL_support.h" -#include <iostream> +#ifndef EIGEN_LLT_LAPACKE_H +#define EIGEN_LLT_LAPACKE_H namespace Eigen { @@ -42,7 +39,7 @@ namespace internal { template<typename Scalar> struct lapacke_llt; -#define EIGEN_MKL_LLT(EIGTYPE, BLASTYPE, MKLPREFIX) \ +#define EIGEN_LAPACKE_LLT(EIGTYPE, BLASTYPE, LAPACKE_PREFIX) \ template<> struct lapacke_llt<EIGTYPE> \ { \ template<typename MatrixType> \ @@ -59,7 +56,7 @@ template<> struct lapacke_llt<EIGTYPE> \ a = &(m.coeffRef(0,0)); \ lda = convert_index<lapack_int>(m.outerStride()); \ \ - info = LAPACKE_##MKLPREFIX##potrf( matrix_order, uplo, size, (BLASTYPE*)a, lda ); \ + info = LAPACKE_##LAPACKE_PREFIX##potrf( matrix_order, uplo, size, (BLASTYPE*)a, lda ); \ info = (info==0) ? -1 : info>0 ? info-1 : size; \ return info; \ } \ @@ -90,13 +87,13 @@ template<> struct llt_inplace<EIGTYPE, Upper> \ } \ }; -EIGEN_MKL_LLT(double, double, d) -EIGEN_MKL_LLT(float, float, s) -EIGEN_MKL_LLT(dcomplex, lapack_complex_double, z) -EIGEN_MKL_LLT(scomplex, lapack_complex_float, c) +EIGEN_LAPACKE_LLT(double, double, d) +EIGEN_LAPACKE_LLT(float, float, s) +EIGEN_LAPACKE_LLT(dcomplex, lapack_complex_double, z) +EIGEN_LAPACKE_LLT(scomplex, lapack_complex_float, c) } // end namespace internal } // end namespace Eigen -#endif // EIGEN_LLT_MKL_H +#endif // EIGEN_LLT_LAPACKE_H |