diff options
| author | Pjotr Prins | 2017-10-14 06:00:55 +0000 |
|---|---|---|
| committer | Pjotr Prins | 2017-10-14 06:00:55 +0000 |
| commit | 0fe6d1332bf21a6be2c1beeb9fada6eb1a1ff244 (patch) | |
| tree | a7699cf08b0547ea01ac1be82b15c55b1abecf69 /src/fastblas.cpp | |
| parent | fdb48997ee3ed2b326a92f8e0cc7f72a4b38d8c8 (diff) | |
| download | pangemma-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.cpp | 27 |
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()) { |