diff options
author | Vladimir Chalupecky <vladimir.chalupecky@gmail.com> | 2016-09-29 17:44:16 +0900 |
---|---|---|
committer | Vladimir Chalupecky <vladimir.chalupecky@gmail.com> | 2016-09-29 17:44:16 +0900 |
commit | 3d8038931fc46351e70261d6c2bc12061fac780b (patch) | |
tree | 03b138234e5e1a4d611f3aa0b126e95c0da3a47a /LAPACKE | |
parent | 5feb8b3f6dda40e0f9d1d72965be6efdbddafb01 (diff) |
LAPACKE: fix wrong direction in LAPACKE_?larfb_work
Diffstat (limited to 'LAPACKE')
-rw-r--r-- | LAPACKE/src/lapacke_clarfb_work.c | 2 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_dlarfb_work.c | 2 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_slarfb_work.c | 2 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_zlarfb_work.c | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/LAPACKE/src/lapacke_clarfb_work.c b/LAPACKE/src/lapacke_clarfb_work.c index 1ed22377..e91304de 100644 --- a/LAPACKE/src/lapacke_clarfb_work.c +++ b/LAPACKE/src/lapacke_clarfb_work.c @@ -123,7 +123,7 @@ lapack_int LAPACKE_clarfb_work( int matrix_layout, char side, char trans, LAPACKE_cge_trans( matrix_layout, nrows_v, ncols_v-k, &v[k], ldv, &v_t[k*ldv_t], ldv_t ); } else if( LAPACKE_lsame( storev, 'r' ) && - LAPACKE_lsame( direct, 'f' ) ) { + LAPACKE_lsame( direct, 'b' ) ) { if( k > ncols_v ) { LAPACKE_xerbla( "LAPACKE_clarfb_work", -8 ); return -8; diff --git a/LAPACKE/src/lapacke_dlarfb_work.c b/LAPACKE/src/lapacke_dlarfb_work.c index 5c833db0..caccefa2 100644 --- a/LAPACKE/src/lapacke_dlarfb_work.c +++ b/LAPACKE/src/lapacke_dlarfb_work.c @@ -119,7 +119,7 @@ lapack_int LAPACKE_dlarfb_work( int matrix_layout, char side, char trans, LAPACKE_dge_trans( matrix_layout, nrows_v, ncols_v-k, &v[k], ldv, &v_t[k*ldv_t], ldv_t ); } else if( LAPACKE_lsame( storev, 'r' ) && - LAPACKE_lsame( direct, 'f' ) ) { + LAPACKE_lsame( direct, 'b' ) ) { if( k > ncols_v ) { LAPACKE_xerbla( "LAPACKE_dlarfb_work", -8 ); return -8; diff --git a/LAPACKE/src/lapacke_slarfb_work.c b/LAPACKE/src/lapacke_slarfb_work.c index a537c394..9f6be26d 100644 --- a/LAPACKE/src/lapacke_slarfb_work.c +++ b/LAPACKE/src/lapacke_slarfb_work.c @@ -118,7 +118,7 @@ lapack_int LAPACKE_slarfb_work( int matrix_layout, char side, char trans, LAPACKE_sge_trans( matrix_layout, nrows_v, ncols_v-k, &v[k], ldv, &v_t[k*ldv_t], ldv_t ); } else if( LAPACKE_lsame( storev, 'r' ) && - LAPACKE_lsame( direct, 'f' ) ) { + LAPACKE_lsame( direct, 'b' ) ) { if( k > ncols_v ) { LAPACKE_xerbla( "LAPACKE_slarfb_work", -8 ); return -8; diff --git a/LAPACKE/src/lapacke_zlarfb_work.c b/LAPACKE/src/lapacke_zlarfb_work.c index 8e92e17b..93eb4f85 100644 --- a/LAPACKE/src/lapacke_zlarfb_work.c +++ b/LAPACKE/src/lapacke_zlarfb_work.c @@ -123,7 +123,7 @@ lapack_int LAPACKE_zlarfb_work( int matrix_layout, char side, char trans, LAPACKE_zge_trans( matrix_layout, nrows_v, ncols_v-k, &v[k], ldv, &v_t[k*ldv_t], ldv_t ); } else if( LAPACKE_lsame( storev, 'r' ) && - LAPACKE_lsame( direct, 'f' ) ) { + LAPACKE_lsame( direct, 'b' ) ) { if( k > ncols_v ) { LAPACKE_xerbla( "LAPACKE_zlarfb_work", -8 ); return -8; |