diff options
| author |   Andrea Arteaga <andyspiros@gmail.com> | 2012-08-04 04:00:05 +0200 |
|---|---|---|
| committer | Andrea Arteaga <andyspiros@gmail.com> | 2012-08-04 04:00:05 +0200 |
| commit | a2646e3cce0c2aa6ff8bd07832ece85fb9f0e96d (patch) | |
| tree | b0b2d119223498916f1fd84e72754d3d97767ee8 | |
| 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.
| -rw-r--r-- | btl/libs/LAPACK/lapacke_interface_impl.hh | 17 | ||||
| -rw-r--r-- | samples/lapacketests.xml | 4 |
2 files changed, 18 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); } - }; diff --git a/samples/lapacketests.xml b/samples/lapacketests.xml index bf25ab7..9a536a0 100644 --- a/samples/lapacketests.xml +++ b/samples/lapacketests.xml @@ -4,8 +4,12 @@ <pkg>sci-libs/lapacke-reference-3.4.1</pkg> <emergeenv> <var name="FFLAGS">-O3</var> + <var name="ACCEPT_KEYWORDS">**</var> </emergeenv> <required name="blas">openblas-threads</required> + <runenv> + <var name="LD_DEBUG">all</var> + </runenv> </test> <test id="mkl"> |