diff options
| author | julie <julielangou@users.noreply.github.com> | 2016-02-23 06:10:54 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2016-02-23 06:10:54 +0000 |
| commit | 261790e5af4c1c2e22c7ca40ff4d7ba86457cb9e (patch) | |
| tree | d069cd9b81b2d83dc4904885a0909f14eb036fa0 /LAPACKE | |
| parent | 59665e2b6cb4ae4ecb8bae779562aa509b56d497 (diff) | |
APPLYING INTEL PATCHES sent to Julie on Feb 19th 2016 by Dima from INTEL (dmitry.g.baksheev@intel.com)
[PATCH 40/42] Fix lapacke_?steqr - avoid nancheck of z when compz=='i'
Diffstat (limited to 'LAPACKE')
| -rw-r--r-- | LAPACKE/src/lapacke_csteqr.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_dsteqr.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_ssteqr.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_zsteqr.c | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/LAPACKE/src/lapacke_csteqr.c b/LAPACKE/src/lapacke_csteqr.c index 8ea3b7ca..368ba1cb 100644 --- a/LAPACKE/src/lapacke_csteqr.c +++ b/LAPACKE/src/lapacke_csteqr.c @@ -52,7 +52,7 @@ lapack_int LAPACKE_csteqr( int matrix_layout, char compz, lapack_int n, float* d if( LAPACKE_s_nancheck( n-1, e, 1 ) ) { return -5; } - if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { + if( LAPACKE_lsame( compz, 'v' ) ) { if( LAPACKE_cge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } diff --git a/LAPACKE/src/lapacke_dsteqr.c b/LAPACKE/src/lapacke_dsteqr.c index 6476aae1..5f80455c 100644 --- a/LAPACKE/src/lapacke_dsteqr.c +++ b/LAPACKE/src/lapacke_dsteqr.c @@ -52,7 +52,7 @@ lapack_int LAPACKE_dsteqr( int matrix_layout, char compz, lapack_int n, if( LAPACKE_d_nancheck( n-1, e, 1 ) ) { return -5; } - if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { + if( LAPACKE_lsame( compz, 'v' ) ) { if( LAPACKE_dge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } diff --git a/LAPACKE/src/lapacke_ssteqr.c b/LAPACKE/src/lapacke_ssteqr.c index 1a5a6739..cb651e4d 100644 --- a/LAPACKE/src/lapacke_ssteqr.c +++ b/LAPACKE/src/lapacke_ssteqr.c @@ -52,7 +52,7 @@ lapack_int LAPACKE_ssteqr( int matrix_layout, char compz, lapack_int n, float* d if( LAPACKE_s_nancheck( n-1, e, 1 ) ) { return -5; } - if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { + if( LAPACKE_lsame( compz, 'v' ) ) { if( LAPACKE_sge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } diff --git a/LAPACKE/src/lapacke_zsteqr.c b/LAPACKE/src/lapacke_zsteqr.c index 0694baa9..7c11fe48 100644 --- a/LAPACKE/src/lapacke_zsteqr.c +++ b/LAPACKE/src/lapacke_zsteqr.c @@ -53,7 +53,7 @@ lapack_int LAPACKE_zsteqr( int matrix_layout, char compz, lapack_int n, if( LAPACKE_d_nancheck( n-1, e, 1 ) ) { return -5; } - if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { + if( LAPACKE_lsame( compz, 'v' ) ) { if( LAPACKE_zge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } |