diff options
| author | mfaverge <mfaverge@8a072113-8704-0410-8d35-dd094bca7971> | 2015-12-03 17:58:40 +0000 |
|---|---|---|
| committer | mfaverge <mfaverge@8a072113-8704-0410-8d35-dd094bca7971> | 2015-12-03 17:58:40 +0000 |
| commit | 223eeebe95910bf6fcf153f1670a62b94f04e5af (patch) | |
| tree | 913b93717d3d55d242b6601c2d05fe0ff4e83148 | |
| parent | 416a84f06811638c7986f099526814ed62b16f5e (diff) | |
| download | lapack-223eeebe95910bf6fcf153f1670a62b94f04e5af.tar.gz lapack-223eeebe95910bf6fcf153f1670a62b94f04e5af.tar.bz2 lapack-223eeebe95910bf6fcf153f1670a62b94f04e5af.zip | |
Z doesn't need to be set when vect == v, so no need to check for nan
| -rw-r--r-- | LAPACKE/src/lapacke_cstedc.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_dstedc.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_sstedc.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_zstedc.c | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/LAPACKE/src/lapacke_cstedc.c b/LAPACKE/src/lapacke_cstedc.c index ff8f996f..b82a1503 100644 --- a/LAPACKE/src/lapacke_cstedc.c +++ b/LAPACKE/src/lapacke_cstedc.c @@ -58,7 +58,7 @@ lapack_int LAPACKE_cstedc( 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_dstedc.c b/LAPACKE/src/lapacke_dstedc.c index 70a7346d..80e286bd 100644 --- a/LAPACKE/src/lapacke_dstedc.c +++ b/LAPACKE/src/lapacke_dstedc.c @@ -55,7 +55,7 @@ lapack_int LAPACKE_dstedc( 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_sstedc.c b/LAPACKE/src/lapacke_sstedc.c index c4bf7643..29a914b6 100644 --- a/LAPACKE/src/lapacke_sstedc.c +++ b/LAPACKE/src/lapacke_sstedc.c @@ -55,7 +55,7 @@ lapack_int LAPACKE_sstedc( 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_zstedc.c b/LAPACKE/src/lapacke_zstedc.c index e88316eb..c1dfe04e 100644 --- a/LAPACKE/src/lapacke_zstedc.c +++ b/LAPACKE/src/lapacke_zstedc.c @@ -59,7 +59,7 @@ lapack_int LAPACKE_zstedc( 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; } |