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 (file)
--- 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;
                }