From: julie <julielangou@users.noreply.github.com>
Date: Tue, 23 Feb 2016 06:10:54 +0000 (+0000)
Subject: APPLYING INTEL PATCHES sent to Julie on Feb 19th 2016 by Dima from INTEL (dmitry... 
X-Git-Tag: accepted/tizen/5.0/unified/20181102.024111~196
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=261790e5af4c1c2e22c7ca40ff4d7ba86457cb9e;p=platform%2Fupstream%2Flapack.git

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'
---

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