about summary refs log tree commit diff
path: root/src
diff options
context:
space:
mode:
authorPjotr Prins2017-12-08 10:20:24 +0000
committerPjotr Prins2017-12-08 10:20:33 +0000
commitaa70e2a33703dbe519e7729184392759c190e416 (patch)
treeceff403220ea112c470fedbd2ef67939bd59be27 /src
parent074e952dd7cd2c30552b00bdb27ae780dc07bbe0 (diff)
downloadpangemma-aa70e2a33703dbe519e7729184392759c190e416.tar.gz
Drop legacy eigenlib_dgemm from fastblas
Diffstat (limited to 'src')
-rw-r--r--src/fastblas.cpp26
1 files changed, 11 insertions, 15 deletions
diff --git a/src/fastblas.cpp b/src/fastblas.cpp
index c15e34f..e971b22 100644
--- a/src/fastblas.cpp
+++ b/src/fastblas.cpp
@@ -208,25 +208,21 @@ static void fast_cblas_dgemm(const char *TransA, const char *TransB, const doubl
 
 
 /*
-   Use the fasted/supported way to call BLAS dgemm
+   Use the fast/supported way to call BLAS dgemm
 */
 
 void fast_dgemm(const char *TransA, const char *TransB, const double alpha,
                 const gsl_matrix *A, const gsl_matrix *B, const double beta,
                 gsl_matrix *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);
-
-    #ifdef DISABLE
-    if (is_check_mode()) {
-      // ---- validate with original implementation
-      gsl_matrix *C1 = gsl_matrix_alloc(C->size1,C->size2);
-      eigenlib_dgemm(TransA,TransB,alpha,A,B,beta,C1);
-      enforce_msg(gsl_matrix_equal(C,C1),"dgemm outcomes are not equal for fast & eigenlib");
-      gsl_matrix_free(C1);
-    }
-    #endif
+  fast_cblas_dgemm(TransA,TransB,alpha,A,B,beta,C);
+
+#ifdef DISABLE
+  if (is_check_mode()) {
+    // ---- validate with original implementation
+    gsl_matrix *C1 = gsl_matrix_alloc(C->size1,C->size2);
+    eigenlib_dgemm(TransA,TransB,alpha,A,B,beta,C1);
+    enforce_msg(gsl_matrix_equal(C,C1),"dgemm outcomes are not equal for fast & eigenlib");
+    gsl_matrix_free(C1);
   }
+#endif
 }