diff options
| author |   Andrea Arteaga <andyspiros@gmail.com> | 2011-08-05 03:28:00 +0200 |
|---|---|---|
| committer | Andrea Arteaga <andyspiros@gmail.com> | 2011-08-05 03:28:00 +0200 |
| commit | 87da764f8191a31b77b85c7780226bc01f97bb55 (patch) | |
| tree | 5798f19b2837ff60b09bc50df94a2a0eec11dab9 /btl | |
| parent | Added 3-dim FFTW. (diff) | |
| download | auto-numerical-bench-87da764f8191a31b77b85c7780226bc01f97bb55.tar.gz auto-numerical-bench-87da764f8191a31b77b85c7780226bc01f97bb55.tar.bz2 auto-numerical-bench-87da764f8191a31b77b85c7780226bc01f97bb55.zip | |
Added lapack_accuracy module.
Diffstat (limited to 'btl')
| -rw-r--r-- | btl/generic_bench/utils/LinearCongruential.hh | 2 | ||||
| -rw-r--r-- | btl/libs/BLAS/blas.h | 8 | ||||
| -rw-r--r-- | btl/libs/LAPACK/lapack.hh | 16 | ||||
| -rw-r--r-- | btl/libs/LAPACK/lapack_.hh | 19 | ||||
| -rw-r--r-- | btl/libs/LAPACK/lapack_interface.hh | 1 |
5 files changed, 41 insertions, 5 deletions
diff --git a/btl/generic_bench/utils/LinearCongruential.hh b/btl/generic_bench/utils/LinearCongruential.hh index 49b9d12..2ab21ae 100644 --- a/btl/generic_bench/utils/LinearCongruential.hh +++ b/btl/generic_bench/utils/LinearCongruential.hh @@ -12,7 +12,7 @@ public: LinearCongruential(const int_t& seed) : a_(1664525u), c_(1013904223u), m_(getM()), i_(0) { - buffer_.resize(100); + buffer_.resize(4096/sizeof(unsigned)); fillBuffer(seed); } diff --git a/btl/libs/BLAS/blas.h b/btl/libs/BLAS/blas.h index 67e02e4..25607a5 100644 --- a/btl/libs/BLAS/blas.h +++ b/btl/libs/BLAS/blas.h @@ -599,8 +599,8 @@ int BLASFUNC(cgetf2)(int *, int *, float *, int *, int *, int *); int BLASFUNC(zgetf2)(int *, int *, double *, int *, int *, int *); int BLASFUNC(xgetf2)(int *, int *, double *, int *, int *, int *); -int BLASFUNC(sgetrf)(int *, int *, float *, int *, int *, int *); -int BLASFUNC(dgetrf)(int *, int *, double *, int *, int *, int *); +//int BLASFUNC(sgetrf)(int *, int *, float *, int *, int *, int *); +//int BLASFUNC(dgetrf)(int *, int *, double *, int *, int *, int *); int BLASFUNC(qgetrf)(int *, int *, double *, int *, int *, int *); int BLASFUNC(cgetrf)(int *, int *, float *, int *, int *, int *); int BLASFUNC(zgetrf)(int *, int *, double *, int *, int *, int *); @@ -634,8 +634,8 @@ int BLASFUNC(cpotf2)(char *, int *, float *, int *, int *); int BLASFUNC(zpotf2)(char *, int *, double *, int *, int *); int BLASFUNC(xpotf2)(char *, int *, double *, int *, int *); -int BLASFUNC(spotrf)(char *, int *, float *, int *, int *); -int BLASFUNC(dpotrf)(char *, int *, double *, int *, int *); +//int BLASFUNC(spotrf)(char *, int *, float *, int *, int *); +//int BLASFUNC(dpotrf)(char *, int *, double *, int *, int *); int BLASFUNC(qpotrf)(char *, int *, double *, int *, int *); int BLASFUNC(cpotrf)(char *, int *, float *, int *, int *); int BLASFUNC(zpotrf)(char *, int *, double *, int *, int *); diff --git a/btl/libs/LAPACK/lapack.hh b/btl/libs/LAPACK/lapack.hh new file mode 100644 index 0000000..6b797fb --- /dev/null +++ b/btl/libs/LAPACK/lapack.hh @@ -0,0 +1,16 @@ +#ifndef LAPACK_HH +#define LAPACK_HH + +#define SCALAR float +#define SCALAR_PREFIX s +#include "lapack_.hh" +#undef SCALAR +#undef SCALAR_PREFIX + +#define SCALAR double +#define SCALAR_PREFIX d +#include "lapack_.hh" +#undef SCALAR +#undef SCALAR_PREFIX + +#endif /* LAPACK_HH */ diff --git a/btl/libs/LAPACK/lapack_.hh b/btl/libs/LAPACK/lapack_.hh new file mode 100644 index 0000000..c9d664c --- /dev/null +++ b/btl/libs/LAPACK/lapack_.hh @@ -0,0 +1,19 @@ +#ifndef CAT +# define CAT2(A,B) A##B +# define CAT(A,B) CAT2(A,B) +#endif +#define LAPACKFUNC(NAME) CAT(CAT(SCALAR_PREFIX,NAME),_) + +#ifdef __cplusplus +extern "C" { +#endif + +void LAPACKFUNC(getrf)(const int*, const int*, SCALAR*, const int*, int*, int*); +void LAPACKFUNC(potrf)(const char*, const int*, SCALAR*, const int*, int*); +void LAPACKFUNC(geqrf)(const int*, const int*, SCALAR*, const int*, SCALAR*, SCALAR*, const int*, int*); +void LAPACKFUNC(gesvd)(const char*, const char*, const int*, const int*, SCALAR*, const int*, SCALAR*, SCALAR*, const int*, SCALAR*, const int*, SCALAR*, const int*, int*); + +#ifdef __cplusplus +} +#endif + diff --git a/btl/libs/LAPACK/lapack_interface.hh b/btl/libs/LAPACK/lapack_interface.hh index 1840741..87c45bd 100644 --- a/btl/libs/LAPACK/lapack_interface.hh +++ b/btl/libs/LAPACK/lapack_interface.hh @@ -3,6 +3,7 @@ #include <../BLAS/c_interface_base.h> #include <complex> +#include "lapack.hh" extern "C" { #include "../BLAS/blas.h" |