diff options
author | 2012-08-04 04:00:05 +0200 | |
---|---|---|
committer | 2012-08-04 04:00:05 +0200 | |
commit | a2646e3cce0c2aa6ff8bd07832ece85fb9f0e96d (patch) | |
tree | b0b2d119223498916f1fd84e72754d3d97767ee8 /btl | |
parent | Merge branch 'btloutput' (diff) | |
download | auto-numerical-bench-a2646e3cce0c2aa6ff8bd07832ece85fb9f0e96d.tar.gz auto-numerical-bench-a2646e3cce0c2aa6ff8bd07832ece85fb9f0e96d.tar.bz2 auto-numerical-bench-a2646e3cce0c2aa6ff8bd07832ece85fb9f0e96d.zip |
Included LAPACKe functions prototypes without header.
Diffstat (limited to 'btl')
-rw-r--r-- | btl/libs/LAPACK/lapacke_interface_impl.hh | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/btl/libs/LAPACK/lapacke_interface_impl.hh b/btl/libs/LAPACK/lapacke_interface_impl.hh index eef3638..410f5c8 100644 --- a/btl/libs/LAPACK/lapacke_interface_impl.hh +++ b/btl/libs/LAPACK/lapacke_interface_impl.hh @@ -18,12 +18,24 @@ #define LAPACKEFUNC(NAME) CAT(LAPACKE_,CAT(SCALAR_PREFIX,NAME)) #define BLASFUNC(NAME) CAT(CAT(SCALAR_PREFIX,NAME),_) -#include "lapacke.h" +//#include "lapacke.h" +#define LAPACK_ROW_MAJOR 101 +#define LAPACK_COL_MAJOR 102 + // Define BLAS functions used by LAPACKE interface extern "C" { int BLASFUNC(copy) (int *, SCALAR*, int *, SCALAR*, int *); + + int LAPACKEFUNC(gesv)(int, int, int, const SCALAR*, int, int*, SCALAR*, int); + int LAPACKEFUNC(gels)(int, char, int, int, int, SCALAR*, int, SCALAR*, int); + int LAPACKEFUNC(getrf)(int, int, int, SCALAR*, int, int*); + int LAPACKEFUNC(potrf)(int, char, int, SCALAR*, int); + int LAPACKEFUNC(geqrf)(int, int, int, SCALAR*, int, SCALAR*); + int LAPACKEFUNC(gesvd)(int, char, char, int, int, SCALAR*, int, SCALAR*, SCALAR*, int, SCALAR*, int, SCALAR*); + int LAPACKEFUNC(syev)(int, char, char, int, SCALAR*, int, SCALAR*); + int LAPACKEFUNC(stev)(int, char, int, SCALAR*, SCALAR*, SCALAR*, int); } template<> class lapack_interface<SCALAR> : public c_interface_base<SCALAR> @@ -62,7 +74,7 @@ public: BLASFUNC(copy)(&N2, X, &intone, C, &intone); LAPACKEFUNC(potrf)(LAPACK_COL_MAJOR, 'L', N, C, N); } - + static inline void qr_decomp(const gene_matrix& X, gene_matrix& QR, gene_vector& tau, const int& N) { int N2 = N*N; @@ -97,5 +109,4 @@ public: { LAPACKEFUNC(syev)(LAPACK_COL_MAJOR, 'N', 'L', N, X, N, W); } - }; |