From 254db9bd7cacb3aef4af28e4283a195beb93427f Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sun, 3 Sep 2017 09:52:55 +0200
Subject: [PATCH] Use in-place transform shortcut only if matrix is square

---
 interface/imatcopy.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/interface/imatcopy.c b/interface/imatcopy.c
index f4309a85c..4485af6d5 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 ) {
+    if ( *lda == *ldb && *cols == *rows ) {
         if ( order == BlasColMajor )
         {
             if ( trans == BlasNoTrans )