APPLYING INTEL PATCHES sent to Julie on Feb 19th 2016 by Dima from INTEL (dmitry...

[PATCH 40/42] Fix lapacke_?steqr - avoid nancheck of z when compz=='i'

diff --git a/LAPACKE/src/lapacke_csteqr.c b/LAPACKE/src/lapacke_csteqr.c
index 8ea3b7c..368ba1c 100644 (file)
--- 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 6476aae..5f80455 100644 (file)
--- 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 1a5a673..cb651e4 100644 (file)
--- 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 0694baa..7c11fe4 100644 (file)
--- 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;
         }