diff options
| author | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-01-31 18:46:44 -0800 |
|---|---|---|
| committer | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-02-03 18:47:03 -0800 |
| commit | 301204bb169d9a207ff7818077a1ee1b4853bb50 (patch) | |
| tree | 28064f55fb17f8bf814f6035e84d33c827b3c200 /LAPACKE/src | |
| parent | 1ad58c1ead8cc1cf87fa459f09ff647176d502b9 (diff) | |
| download | lapack-301204bb169d9a207ff7818077a1ee1b4853bb50.tar.gz lapack-301204bb169d9a207ff7818077a1ee1b4853bb50.tar.bz2 lapack-301204bb169d9a207ff7818077a1ee1b4853bb50.zip | |
lapacke_*stemr_work: fixed condition to check ldz: jobz must be checked
Diffstat (limited to 'LAPACKE/src')
| -rw-r--r-- | LAPACKE/src/lapacke_cstemr_work.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_dstemr_work.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_sstemr_work.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_zstemr_work.c | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/LAPACKE/src/lapacke_cstemr_work.c b/LAPACKE/src/lapacke_cstemr_work.c index b48f7f95..592b4e36 100644 --- a/LAPACKE/src/lapacke_cstemr_work.c +++ b/LAPACKE/src/lapacke_cstemr_work.c @@ -56,7 +56,7 @@ lapack_int LAPACKE_cstemr_work( int matrix_layout, char jobz, char range, lapack_int ldz_t = MAX(1,n); lapack_complex_float* z_t = NULL; /* Check leading dimension(s) */ - if( ldz < n ) { + if( ldz < 1 || ( LAPACKE_lsame( jobz, 'v' ) && ldz < n ) ) { info = -14; LAPACKE_xerbla( "LAPACKE_cstemr_work", info ); return info; diff --git a/LAPACKE/src/lapacke_dstemr_work.c b/LAPACKE/src/lapacke_dstemr_work.c index 947e883e..3434472f 100644 --- a/LAPACKE/src/lapacke_dstemr_work.c +++ b/LAPACKE/src/lapacke_dstemr_work.c @@ -55,7 +55,7 @@ lapack_int LAPACKE_dstemr_work( int matrix_layout, char jobz, char range, lapack_int ldz_t = MAX(1,n); double* z_t = NULL; /* Check leading dimension(s) */ - if( ldz < n ) { + if( ldz < 1 || ( LAPACKE_lsame( jobz, 'v' ) && ldz < n ) ) { info = -14; LAPACKE_xerbla( "LAPACKE_dstemr_work", info ); return info; diff --git a/LAPACKE/src/lapacke_sstemr_work.c b/LAPACKE/src/lapacke_sstemr_work.c index 834014e9..5071a52c 100644 --- a/LAPACKE/src/lapacke_sstemr_work.c +++ b/LAPACKE/src/lapacke_sstemr_work.c @@ -55,7 +55,7 @@ lapack_int LAPACKE_sstemr_work( int matrix_layout, char jobz, char range, lapack_int ldz_t = MAX(1,n); float* z_t = NULL; /* Check leading dimension(s) */ - if( ldz < n ) { + if( ldz < 1 || ( LAPACKE_lsame( jobz, 'v' ) && ldz < n ) ) { info = -14; LAPACKE_xerbla( "LAPACKE_sstemr_work", info ); return info; diff --git a/LAPACKE/src/lapacke_zstemr_work.c b/LAPACKE/src/lapacke_zstemr_work.c index 5b7231d0..65b4d2f4 100644 --- a/LAPACKE/src/lapacke_zstemr_work.c +++ b/LAPACKE/src/lapacke_zstemr_work.c @@ -56,7 +56,7 @@ lapack_int LAPACKE_zstemr_work( int matrix_layout, char jobz, char range, lapack_int ldz_t = MAX(1,n); lapack_complex_double* z_t = NULL; /* Check leading dimension(s) */ - if( ldz < n ) { + if( ldz < 1 || ( LAPACKE_lsame( jobz, 'v' ) && ldz < n ) ) { info = -14; LAPACKE_xerbla( "LAPACKE_zstemr_work", info ); return info; |