diff options
| author | Vladimir Chalupecky <vladimir.chalupecky@gmail.com> | 2016-08-05 11:23:35 +0900 |
|---|---|---|
| committer | Vladimir Chalupecky <vladimir.chalupecky@gmail.com> | 2016-08-05 11:32:16 +0900 |
| commit | dc0d8c0c8713fee64caf240e3a07f201ccb2b36b (patch) | |
| tree | e030a766b7f04bdcb65ff1135afc16a30e2475d7 /LAPACKE | |
| parent | bcc66b10b59059c0f9a9159749ea208ae8921023 (diff) | |
LAPACKE_?trexc_work: check ldq conditionally on compq
Diffstat (limited to 'LAPACKE')
| -rw-r--r-- | LAPACKE/src/lapacke_ctrexc_work.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_dtrexc_work.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_strexc_work.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_ztrexc_work.c | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/LAPACKE/src/lapacke_ctrexc_work.c b/LAPACKE/src/lapacke_ctrexc_work.c index 9501561e..9208c10e 100644 --- a/LAPACKE/src/lapacke_ctrexc_work.c +++ b/LAPACKE/src/lapacke_ctrexc_work.c @@ -51,7 +51,7 @@ lapack_int LAPACKE_ctrexc_work( int matrix_layout, char compq, lapack_int n, lapack_complex_float* t_t = NULL; lapack_complex_float* q_t = NULL; /* Check leading dimension(s) */ - if( ldq < n ) { + if( ldq < n && LAPACKE_lsame( compq, 'v' ) ) { info = -7; LAPACKE_xerbla( "LAPACKE_ctrexc_work", info ); return info; diff --git a/LAPACKE/src/lapacke_dtrexc_work.c b/LAPACKE/src/lapacke_dtrexc_work.c index 0c302b2b..1808e9cf 100644 --- a/LAPACKE/src/lapacke_dtrexc_work.c +++ b/LAPACKE/src/lapacke_dtrexc_work.c @@ -51,7 +51,7 @@ lapack_int LAPACKE_dtrexc_work( int matrix_layout, char compq, lapack_int n, double* t_t = NULL; double* q_t = NULL; /* Check leading dimension(s) */ - if( ldq < n ) { + if( ldq < n && LAPACKE_lsame( compq, 'v' ) ) { info = -7; LAPACKE_xerbla( "LAPACKE_dtrexc_work", info ); return info; diff --git a/LAPACKE/src/lapacke_strexc_work.c b/LAPACKE/src/lapacke_strexc_work.c index 571cfbc7..fd7f0ab9 100644 --- a/LAPACKE/src/lapacke_strexc_work.c +++ b/LAPACKE/src/lapacke_strexc_work.c @@ -51,7 +51,7 @@ lapack_int LAPACKE_strexc_work( int matrix_layout, char compq, lapack_int n, float* t_t = NULL; float* q_t = NULL; /* Check leading dimension(s) */ - if( ldq < n ) { + if( ldq < n && LAPACKE_lsame( compq, 'v' ) ) { info = -7; LAPACKE_xerbla( "LAPACKE_strexc_work", info ); return info; diff --git a/LAPACKE/src/lapacke_ztrexc_work.c b/LAPACKE/src/lapacke_ztrexc_work.c index d6783e94..2e15140c 100644 --- a/LAPACKE/src/lapacke_ztrexc_work.c +++ b/LAPACKE/src/lapacke_ztrexc_work.c @@ -51,7 +51,7 @@ lapack_int LAPACKE_ztrexc_work( int matrix_layout, char compq, lapack_int n, lapack_complex_double* t_t = NULL; lapack_complex_double* q_t = NULL; /* Check leading dimension(s) */ - if( ldq < n ) { + if( ldq < n && LAPACKE_lsame( compq, 'v' ) ) { info = -7; LAPACKE_xerbla( "LAPACKE_ztrexc_work", info ); return info; |