diff options
| author |  Gael Guennebaud <g.gael@free.fr> | 2009-07-28 17:10:34 +0200 |
|---|---|---|
| committer | Gael Guennebaud <g.gael@free.fr> | 2009-07-28 17:10:34 +0200 |
| commit | de8b7958958fe2a40719fd8e47bd9cace998bd2a (patch) | |
| tree | 7446b569fafe9c9f73bf889c39a3b762470b01bf /bench/btl/libs/C_BLAS | |
| parent | 7ed7ec64b543095d6f30139ff26706ad3ab1278c (diff) | |
compilation fixes in BTL
Diffstat (limited to 'bench/btl/libs/C_BLAS')
| -rw-r--r-- | bench/btl/libs/C_BLAS/C_BLAS_interface.hh | 3 | ||||
| -rw-r--r-- | bench/btl/libs/C_BLAS/main.cpp | 4 |
2 files changed, 4 insertions, 3 deletions
diff --git a/bench/btl/libs/C_BLAS/C_BLAS_interface.hh b/bench/btl/libs/C_BLAS/C_BLAS_interface.hh index c85c4e818..e08c4aedc 100644 --- a/bench/btl/libs/C_BLAS/C_BLAS_interface.hh +++ b/bench/btl/libs/C_BLAS/C_BLAS_interface.hh @@ -133,6 +133,7 @@ static char notrans = 'N'; static char trans = 'T'; static char nonunit = 'N'; static char lower = 'L'; +static char right = 'R'; static int intone = 1; template<> @@ -312,7 +313,7 @@ public : static inline void trisolve_lower_matrix(const gene_matrix & L, const gene_matrix& B, gene_matrix & X, int N){ #ifdef PUREBLAS scopy_(&N, B, &intone, X, &intone); - strsv_(&lower, ¬rans, &nonunit, &N, L, &N, X, &intone); + strsm_(&right, &lower, ¬rans, &nonunit, &N, &N, &fone, L, &N, X, &N); #else cblas_scopy(N, B, 1, X, 1); cblas_strsm(CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, N, N, 1, L, N, X, N); diff --git a/bench/btl/libs/C_BLAS/main.cpp b/bench/btl/libs/C_BLAS/main.cpp index 81cac6c29..5c2f8a377 100644 --- a/bench/btl/libs/C_BLAS/main.cpp +++ b/bench/btl/libs/C_BLAS/main.cpp @@ -24,7 +24,7 @@ #include "action_cholesky.hh" #include "action_lu_decomp.hh" -#include "action_partial_lu_decomp.hh" +// #include "action_partial_lu_decomp.hh" #include "action_trisolve_matrix.hh" #ifdef HAS_LAPACK @@ -55,7 +55,7 @@ int main() #ifdef HAS_LAPACK bench<Action_lu_decomp<C_BLAS_interface<REAL_TYPE> > >(MIN_MM,MAX_MM,NB_POINT); - bench<Action_partial_lu_decomp<C_BLAS_interface<REAL_TYPE> > >(MIN_MM,MAX_MM,NB_POINT); +// bench<Action_partial_lu_decomp<C_BLAS_interface<REAL_TYPE> > >(MIN_MM,MAX_MM,NB_POINT); bench<Action_hessenberg<C_BLAS_interface<REAL_TYPE> > >(MIN_MM,MAX_MM,NB_POINT); bench<Action_tridiagonalization<C_BLAS_interface<REAL_TYPE> > >(MIN_MM,MAX_MM,NB_POINT); #endif |