From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sat, 15 Jul 2017 20:02:53 +0000 (+0200)
Subject: Exchange rows and cols in final omatcopy with BlasTrans
X-Git-Tag: upstream/0.2.20^2~2^2~2
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;ds=sidebyside;h=91bde7d315e8561b992b41bba603b78f7fab909b;p=platform%2Fupstream%2Fopenblas.git

Exchange rows and cols in final omatcopy with BlasTrans

This is MicMuc's patch from #899
---

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;
 		}