From 311e0a912c681975556ab30d413a21864d17dafe Mon Sep 17 00:00:00 2001 From: Martin Koehler Date: Wed, 26 Oct 2016 21:34:56 +0200 Subject: [PATCH] Fix #971 --- lapack-netlib/LAPACKE/src/lapacke_clarfb_work.c | 2 +- lapack-netlib/LAPACKE/src/lapacke_dlarfb_work.c | 2 +- lapack-netlib/LAPACKE/src/lapacke_slarfb_work.c | 2 +- lapack-netlib/LAPACKE/src/lapacke_zlarfb_work.c | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarfb_work.c index ad386d0..e4f1721 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfb_work.c +++ b/lapack-netlib/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/lapack-netlib/LAPACKE/src/lapacke_dlarfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfb_work.c index 3fe4893..60518c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfb_work.c +++ b/lapack-netlib/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/lapack-netlib/LAPACKE/src/lapacke_slarfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_slarfb_work.c index 12b4c7b..53167ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfb_work.c +++ b/lapack-netlib/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/lapack-netlib/LAPACKE/src/lapacke_zlarfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfb_work.c index 9580f59..a5c29e2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfb_work.c +++ b/lapack-netlib/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; -- 2.7.4