From a610dd723a233aed1abe31aa32e3137b23b5f983 Mon Sep 17 00:00:00 2001 From: Pjotr Prins Date: Fri, 13 Oct 2017 12:28:26 +0000 Subject: OpenBlas: preparing for dgemm use --- src/fastblas.h | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 src/fastblas.h (limited to 'src/fastblas.h') diff --git a/src/fastblas.h b/src/fastblas.h new file mode 100644 index 0000000..3c28729 --- /dev/null +++ b/src/fastblas.h @@ -0,0 +1,29 @@ +#ifndef __FASTBLAS_H__ +#define __FASTBLAS_H__ + +#include +#include +#include "gsl/gsl_matrix.h" + +gsl_matrix *fast_copy(gsl_matrix *m, const double *mem); + +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, + double *C, + OPENBLAS_CONST blasint ldc); + +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); + +#endif -- cgit v1.2.3