about summary refs log tree commit diff
path: root/src/fastblas.cpp
diff options
context:
space:
mode:
authorPjotr Prins2017-10-14 06:00:55 +0000
committerPjotr Prins2017-10-14 06:00:55 +0000
commit0fe6d1332bf21a6be2c1beeb9fada6eb1a1ff244 (patch)
treea7699cf08b0547ea01ac1be82b15c55b1abecf69 /src/fastblas.cpp
parentfdb48997ee3ed2b326a92f8e0cc7f72a4b38d8c8 (diff)
downloadpangemma-0fe6d1332bf21a6be2c1beeb9fada6eb1a1ff244.tar.gz
More disabling of eigenlib (faster compilation) and avoid OPENBLAS_CONST which does not work on older cblas.h
Diffstat (limited to 'src/fastblas.cpp')
-rw-r--r--src/fastblas.cpp27
1 files changed, 14 insertions, 13 deletions
diff --git a/src/fastblas.cpp b/src/fastblas.cpp
index 0a4eba3..3fe712c 100644
--- a/src/fastblas.cpp
+++ b/src/fastblas.cpp
@@ -24,6 +24,7 @@
 #include "debug.h"
 #include "fastblas.h"
 #include "mathfunc.h"
+#include <string.h>
 #ifndef NDEBUG
 #include "eigenlib.h"
 #endif
@@ -61,20 +62,20 @@ gsl_matrix *fast_copy(gsl_matrix *m, const double *mem) {
 /*
     Helper function fast_cblas_dgemm runs the local dgemm
 */
-void fast_cblas_dgemm(OPENBLAS_CONST enum CBLAS_ORDER Order,
-                      OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA,
-                      OPENBLAS_CONST enum CBLAS_TRANSPOSE TransB,
-                      OPENBLAS_CONST blasint M,
-                      OPENBLAS_CONST blasint N,
-                      OPENBLAS_CONST blasint K,
-                      OPENBLAS_CONST double alpha,
-                      OPENBLAS_CONST double *A,
-                      OPENBLAS_CONST blasint lda,
-                      OPENBLAS_CONST double *B,
-                      OPENBLAS_CONST blasint ldb,
-                      OPENBLAS_CONST double beta,
+void fast_cblas_dgemm(const enum CBLAS_ORDER Order,
+                      const enum CBLAS_TRANSPOSE TransA,
+                      const enum CBLAS_TRANSPOSE TransB,
+                      const blasint M,
+                      const blasint N,
+                      const blasint K,
+                      const double alpha,
+                      const double *A,
+                      const blasint lda,
+                      const double *B,
+                      const blasint ldb,
+                      const double beta,
                       double *C,
-                      OPENBLAS_CONST blasint ldc) {
+                      const blasint ldc) {
 #ifndef NDEBUG
   size_t i,j;
   if (is_debug_mode()) {