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

[PATCH 39/42] Fix lapacke_?hetri2x - avoid nancheck of unset data

diff --git a/LAPACKE/src/lapacke_chetri2x.c b/LAPACKE/src/lapacke_chetri2x.c
index 1d97571..550a210 100644 (file)
--- a/LAPACKE/src/lapacke_chetri2x.c
+++ b/LAPACKE/src/lapacke_chetri2x.c
@@ -45,7 +45,7 @@ lapack_int LAPACKE_chetri2x( int matrix_layout, char uplo, lapack_int n,
     }
 #ifndef LAPACK_DISABLE_NAN_CHECK
     /* Optionally check input matrices for NaNs */
-    if( LAPACKE_cge_nancheck( matrix_layout, lda, n, a, lda ) ) {
+    if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) {
         return -4;
     }
 #endif

diff --git a/LAPACKE/src/lapacke_zhetri2x.c b/LAPACKE/src/lapacke_zhetri2x.c
index a2835dc..55b005e 100644 (file)
--- a/LAPACKE/src/lapacke_zhetri2x.c
+++ b/LAPACKE/src/lapacke_zhetri2x.c
@@ -45,7 +45,7 @@ lapack_int LAPACKE_zhetri2x( int matrix_layout, char uplo, lapack_int n,
     }
 #ifndef LAPACK_DISABLE_NAN_CHECK
     /* Optionally check input matrices for NaNs */
-    if( LAPACKE_zge_nancheck( matrix_layout, lda, n, a, lda ) ) {
+    if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) {
         return -4;
     }
 #endif