Z doesn't need to be set when vect == v, so no need to check for nan

diff --git a/LAPACKE/src/lapacke_cstedc.c b/LAPACKE/src/lapacke_cstedc.c
index ff8f996..b82a150 100644 (file)
--- 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 70a7346..80e286b 100644 (file)
--- 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 c4bf764..29a914b 100644 (file)
--- 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 e88316e..c1dfe04 100644 (file)
--- 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;
         }