From d674fbb4c7c9fc4aa7cc8673b1775eb3ddb88caf Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 14 Sep 2017 19:59:05 +0200 Subject: [PATCH] Fix cols/rows mixup in omatcopy 2nd step for BlasTrans cases Equivalent of #1244 (issue #899) for the non-complex cases. Fixes #1289 --- interface/imatcopy.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/interface/imatcopy.c b/interface/imatcopy.c index 4485af6d5..93ffd69f9 100644 --- a/interface/imatcopy.c +++ b/interface/imatcopy.c @@ -121,7 +121,7 @@ void CNAME( enum CBLAS_ORDER CORDER, enum CBLAS_TRANSPOSE CTRANS, blasint crows, return; } #ifdef NEW_IMATCOPY - if ( *lda == *ldb && *cols == *rows ) { + if ( *lda == *ldb && *rows == *cols) { if ( order == BlasColMajor ) { if ( trans == BlasNoTrans ) @@ -171,7 +171,7 @@ void CNAME( enum CBLAS_ORDER CORDER, enum CBLAS_TRANSPOSE CTRANS, blasint crows, else { OMATCOPY_K_CT(*rows, *cols, *alpha, a, *lda, b, *ldb ); - OMATCOPY_K_CN(*rows, *cols, (FLOAT) 1.0, b, *ldb, a, *ldb ); + OMATCOPY_K_CN(*cols, *rows, (FLOAT) 1.0, b, *ldb, a, *ldb ); } } else @@ -184,7 +184,7 @@ void CNAME( enum CBLAS_ORDER CORDER, enum CBLAS_TRANSPOSE CTRANS, blasint crows, else { OMATCOPY_K_RT(*rows, *cols, *alpha, a, *lda, b, *ldb ); - OMATCOPY_K_RN(*rows, *cols, (FLOAT) 1.0, b, *ldb, a, *ldb ); + OMATCOPY_K_RN(*cols, *rows, (FLOAT) 1.0, b, *ldb, a, *ldb ); } }