From 89690967e33bcde4fd8736fe048d0e9dce5c6266 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Tue, 19 Dec 2017 07:17:38 +0000
Subject: Make eigelib -legacy

---
 src/fastblas.cpp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/fastblas.cpp')

diff --git a/src/fastblas.cpp b/src/fastblas.cpp
index 81705a6..362027c 100644
--- a/src/fastblas.cpp
+++ b/src/fastblas.cpp
@@ -232,5 +232,8 @@ void fast_dgemm(const char *TransA, const char *TransB, const double alpha,
 void fast_eigen_dgemm(const char *TransA, const char *TransB, const double alpha,
                       const gsl_matrix *A, const gsl_matrix *B, const double beta,
                       gsl_matrix *C) {
-  eigenlib_dgemm(TransA,TransB,alpha,A,B,beta,C);
+  if (is_legacy_mode())
+    eigenlib_dgemm(TransA,TransB,alpha,A,B,beta,C);
+  else
+    fast_cblas_dgemm(TransA,TransB,alpha,A,B,beta,C);
 }
-- 
cgit v1.2.3