From 91bde7d315e8561b992b41bba603b78f7fab909b Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 15 Jul 2017 22:02:53 +0200 Subject: [PATCH] Exchange rows and cols in final omatcopy with BlasTrans This is MicMuc's patch from #899 --- interface/zimatcopy.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/interface/zimatcopy.c b/interface/zimatcopy.c index 0bb0e4e..6e9c6d2 100644 --- a/interface/zimatcopy.c +++ b/interface/zimatcopy.c @@ -238,7 +238,7 @@ void CNAME( enum CBLAS_ORDER CORDER, enum CBLAS_TRANSPOSE CTRANS, blasint crows, if ( trans == BlasTrans ) { OMATCOPY_K_RT(*rows, *cols, alpha[0], alpha[1], a, *lda, b, *ldb ); - OMATCOPY_K_RN(*rows, *cols, (FLOAT) 1.0, (FLOAT) 0.0 , b, *ldb, a, *ldb ); + OMATCOPY_K_RN(*cols, *rows, (FLOAT) 1.0, (FLOAT) 0.0 , b, *ldb, a, *ldb ); free(b); return; } -- 2.7.4