diff options
| author | Martin Kroeker <martin@ruby.chemie.uni-freiburg.de> | 2017-07-15 22:02:53 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-07-15 22:02:53 +0200 |
| commit | 91bde7d315e8561b992b41bba603b78f7fab909b (patch) | |
| tree | e8d8b1106677e464045a5427a0d5a9fd87b92940 | |
| parent | 482015f8d6840da9617b422e758162cf7358c8b2 (diff) | |
| download | openblas-91bde7d315e8561b992b41bba603b78f7fab909b.tar.gz openblas-91bde7d315e8561b992b41bba603b78f7fab909b.tar.bz2 openblas-91bde7d315e8561b992b41bba603b78f7fab909b.zip | |
Exchange rows and cols in final omatcopy with BlasTrans
This is MicMuc's patch from #899
| -rw-r--r-- | interface/zimatcopy.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interface/zimatcopy.c b/interface/zimatcopy.c index 0bb0e4eed..6e9c6d263 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; } |