From 7ce70e143734942bf4e7dcfe5f5af957e5e5009e Mon Sep 17 00:00:00 2001
From: Gael Guennebaud <g.gael@free.fr>
Date: Mon, 25 Aug 2008 14:23:08 +0000
Subject: various updates in BTL

---
 bench/btl/libs/C_BLAS/C_BLAS_interface.hh | 10 ++++++++++
 bench/btl/libs/C_BLAS/main.cpp            |  2 ++
 2 files changed, 12 insertions(+)

(limited to 'bench/btl/libs/C_BLAS')

diff --git a/bench/btl/libs/C_BLAS/C_BLAS_interface.hh b/bench/btl/libs/C_BLAS/C_BLAS_interface.hh
index 21d9bde1a..d0148a29d 100644
--- a/bench/btl/libs/C_BLAS/C_BLAS_interface.hh
+++ b/bench/btl/libs/C_BLAS/C_BLAS_interface.hh
@@ -253,6 +253,16 @@ public :
     #endif
   }
 
+  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, &notrans, &nonunit, &N, L, &N, X, &intone);
+    #else
+    cblas_scopy(N, B, 1, X, 1);
+    cblas_strsm(CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, N, N, 1, L, N, X, N);
+    #endif
+  }
+
 };
 
 
diff --git a/bench/btl/libs/C_BLAS/main.cpp b/bench/btl/libs/C_BLAS/main.cpp
index 21da0b4aa..10faf4a0b 100644
--- a/bench/btl/libs/C_BLAS/main.cpp
+++ b/bench/btl/libs/C_BLAS/main.cpp
@@ -24,6 +24,7 @@
 
 #include "action_cholesky.hh"
 #include "action_lu_decomp.hh"
+#include "action_trisolve_matrix.hh"
 
 #ifdef HAS_LAPACK
 #include "action_hessenberg.hh"
@@ -45,6 +46,7 @@ int main()
   bench<Action_aat_product<C_BLAS_interface<REAL_TYPE> > >(MIN_MM,MAX_MM,NB_POINT);
 
   bench<Action_trisolve<C_BLAS_interface<REAL_TYPE> > >(MIN_MM,MAX_MM,NB_POINT);
+  bench<Action_trisolve_matrix<C_BLAS_interface<REAL_TYPE> > >(MIN_MM,MAX_MM,NB_POINT);
 
   bench<Action_cholesky<C_BLAS_interface<REAL_TYPE> > >(MIN_MM,MAX_MM,NB_POINT);
   
-- 
cgit v1.2.3