From 670a40836f7ccc2c95faeca56cbbf7736ee851f4 Mon Sep 17 00:00:00 2001 From: Houtan Bastani Date: Tue, 22 Feb 2011 11:09:06 +0100 Subject: [PATCH] add blas functions to dynblas.h --- mex/sources/dynblas.h | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/mex/sources/dynblas.h b/mex/sources/dynblas.h index f089ec947..22ce1db14 100644 --- a/mex/sources/dynblas.h +++ b/mex/sources/dynblas.h @@ -129,6 +129,16 @@ extern "C" { void dsyr(BLCHAR uplo, CONST_BLINT n, CONST_BLDOU alpha, CONST_BLDOU x, CONST_BLINT incx, BLDOU a, CONST_BLINT lda); +#define dtrmm FORTRAN_WRAPPER(dtrmm) + void dtrmm(BLCHAR side, BLCHAR uplo, BLCHAR transa, BLCHAR diag, CONST_BLINT m, + CONST_BLINT n, CONST_BLDOU alpha, CONST_BLDOU a, CONST_BLINT lda, + BLDOU b, CONST_BLINT ldb); + +#define strmm FORTRAN_WRAPPER(strmm) + void strmm(BLCHAR side, BLCHAR uplo, BLCHAR transa, BLCHAR diag, CONST_BLINT m, + CONST_BLINT n, CONST_BLFLT alpha, CONST_BLFLT a, CONST_BLINT lda, + BLFLT b, CONST_BLINT ldb); + #ifdef __cplusplus } /* extern "C" */ #endif