Fix lapacke_*trf_rk and lapacke_*sv_rk: remove nan-checking for e, it is output array

diff --git a/LAPACKE/src/lapacke_chesv_rk.c b/LAPACKE/src/lapacke_chesv_rk.c
index 04b5f6a..b682c3b 100644 (file)
--- a/LAPACKE/src/lapacke_chesv_rk.c
+++ b/LAPACKE/src/lapacke_chesv_rk.c
@@ -52,9 +52,6 @@ lapack_int LAPACKE_chesv_rk( int matrix_layout, char uplo, lapack_int n,
     if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) {
         return -5;
     }
-    if( LAPACKE_c_nancheck( n, e, 1) ) {
-        return -7;
-    }
     if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {
         return -10;
     }

diff --git a/LAPACKE/src/lapacke_chetrf_rk.c b/LAPACKE/src/lapacke_chetrf_rk.c
index b9133e7..00a32b9 100644 (file)
--- a/LAPACKE/src/lapacke_chetrf_rk.c
+++ b/LAPACKE/src/lapacke_chetrf_rk.c
@@ -50,9 +50,6 @@ lapack_int LAPACKE_chetrf_rk( int matrix_layout, char uplo, lapack_int n,
     if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) {
         return -4;
     }
-    if( LAPACKE_c_nancheck( n, e, 1 ) ) {
-        return -6;
-    }
 #endif
     /* Query optimal working array(s) size */
     info = LAPACKE_chetrf_rk_work( matrix_layout, uplo, n, a, lda, e, ipiv,

diff --git a/LAPACKE/src/lapacke_csysv_rk.c b/LAPACKE/src/lapacke_csysv_rk.c
index 34e95f2..fd1e6fa 100644 (file)
--- a/LAPACKE/src/lapacke_csysv_rk.c
+++ b/LAPACKE/src/lapacke_csysv_rk.c
@@ -52,9 +52,6 @@ lapack_int LAPACKE_csysv_rk( int matrix_layout, char uplo, lapack_int n,
     if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) {
         return -5;
     }
-    if( LAPACKE_c_nancheck( n, e, 1) ) {
-        return -7;
-    }
     if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {
         return -9;
     }

diff --git a/LAPACKE/src/lapacke_csytrf_rk.c b/LAPACKE/src/lapacke_csytrf_rk.c
index eac1e6c..135bdf3 100644 (file)
--- a/LAPACKE/src/lapacke_csytrf_rk.c
+++ b/LAPACKE/src/lapacke_csytrf_rk.c
@@ -50,9 +50,6 @@ lapack_int LAPACKE_csytrf_rk( int matrix_layout, char uplo, lapack_int n,
     if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) {
         return -4;
     }
-    if( LAPACKE_c_nancheck( n, e, 1 ) ) {
-        return -6;
-    }
 #endif
     /* Query optimal working array(s) size */
     info = LAPACKE_csytrf_rk_work( matrix_layout, uplo, n, a, lda, e, ipiv,

diff --git a/LAPACKE/src/lapacke_dsysv_rk.c b/LAPACKE/src/lapacke_dsysv_rk.c
index ba9eaa3..259cb34 100644 (file)
--- a/LAPACKE/src/lapacke_dsysv_rk.c
+++ b/LAPACKE/src/lapacke_dsysv_rk.c
@@ -50,9 +50,6 @@ lapack_int LAPACKE_dsysv_rk( int matrix_layout, char uplo, lapack_int n,
     if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) {
         return -5;
     }
-    if( LAPACKE_d_nancheck( n, e, 1) ) {
-        return -7;
-    }
     if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {
         return -9;
     }

diff --git a/LAPACKE/src/lapacke_dsytrf_rk.c b/LAPACKE/src/lapacke_dsytrf_rk.c
index 0d9cade..239b546 100644 (file)
--- a/LAPACKE/src/lapacke_dsytrf_rk.c
+++ b/LAPACKE/src/lapacke_dsytrf_rk.c
@@ -49,9 +49,6 @@ lapack_int LAPACKE_dsytrf_rk( int matrix_layout, char uplo, lapack_int n, double
     if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) {
         return -4;
     }
-    if( LAPACKE_d_nancheck( n, e, 1 ) ) {
-        return -6;
-    }
 #endif
     /* Query optimal working array(s) size */
     info = LAPACKE_dsytrf_rk_work( matrix_layout, uplo, n, a, lda, e, ipiv,

diff --git a/LAPACKE/src/lapacke_ssysv_rk.c b/LAPACKE/src/lapacke_ssysv_rk.c
index b352028..ad5fbf4 100644 (file)
--- a/LAPACKE/src/lapacke_ssysv_rk.c
+++ b/LAPACKE/src/lapacke_ssysv_rk.c
@@ -50,9 +50,6 @@ lapack_int LAPACKE_ssysv_rk( int matrix_layout, char uplo, lapack_int n,
     if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) {
         return -5;
     }
-    if( LAPACKE_s_nancheck( n, e, 1) ) {
-        return -7;
-    }
     if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {
         return -9;
     }

diff --git a/LAPACKE/src/lapacke_ssytrf_rk.c b/LAPACKE/src/lapacke_ssytrf_rk.c
index 8066318..c1fd53a 100644 (file)
--- a/LAPACKE/src/lapacke_ssytrf_rk.c
+++ b/LAPACKE/src/lapacke_ssytrf_rk.c
@@ -49,9 +49,6 @@ lapack_int LAPACKE_ssytrf_rk( int matrix_layout, char uplo, lapack_int n, float*
     if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) {
         return -4;
     }
-    if( LAPACKE_s_nancheck( n, e, 1 ) ) {
-        return -6;
-    }
 #endif
     /* Query optimal working array(s) size */
     info = LAPACKE_ssytrf_rk_work( matrix_layout, uplo, n, a, lda, e, ipiv,

diff --git a/LAPACKE/src/lapacke_zhesv_rk.c b/LAPACKE/src/lapacke_zhesv_rk.c
index 777a7b9..62a5747 100644 (file)
--- a/LAPACKE/src/lapacke_zhesv_rk.c
+++ b/LAPACKE/src/lapacke_zhesv_rk.c
@@ -51,9 +51,6 @@ lapack_int LAPACKE_zhesv_rk( int matrix_layout, char uplo, lapack_int n,
     if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) {
         return -5;
     }
-    if( LAPACKE_z_nancheck( n, e, 1) ) {
-        return -7;
-    }
     if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {
         return -9;
     }

diff --git a/LAPACKE/src/lapacke_zhetrf_rk.c b/LAPACKE/src/lapacke_zhetrf_rk.c
index 19dc423..1cf2fca 100644 (file)
--- a/LAPACKE/src/lapacke_zhetrf_rk.c
+++ b/LAPACKE/src/lapacke_zhetrf_rk.c
@@ -50,9 +50,6 @@ lapack_int LAPACKE_zhetrf_rk( int matrix_layout, char uplo, lapack_int n,
     if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) {
         return -4;
     }
-    if( LAPACKE_z_nancheck( n, e, 1 ) ) {
-        return -6;
-    }
 #endif
     /* Query optimal working array(s) size */
     info = LAPACKE_zhetrf_rk_work( matrix_layout, uplo, n, a, lda, e, ipiv,

diff --git a/LAPACKE/src/lapacke_zsysv_rk.c b/LAPACKE/src/lapacke_zsysv_rk.c
index a338511..96bc40a 100644 (file)
--- a/LAPACKE/src/lapacke_zsysv_rk.c
+++ b/LAPACKE/src/lapacke_zsysv_rk.c
@@ -51,9 +51,6 @@ lapack_int LAPACKE_zsysv_rk( int matrix_layout, char uplo, lapack_int n,
     if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) {
         return -5;
     }
-    if( LAPACKE_z_nancheck( n, e, 1) ) {
-        return -7;
-    }
     if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {
         return -9;
     }

diff --git a/LAPACKE/src/lapacke_zsytrf_rk.c b/LAPACKE/src/lapacke_zsytrf_rk.c
index c4ead32..4119ba7 100644 (file)
--- a/LAPACKE/src/lapacke_zsytrf_rk.c
+++ b/LAPACKE/src/lapacke_zsytrf_rk.c
@@ -50,9 +50,6 @@ lapack_int LAPACKE_zsytrf_rk( int matrix_layout, char uplo, lapack_int n,
     if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) {
         return -4;
     }
-    if( LAPACKE_z_nancheck( n, e, 1 ) ) {
-        return -6;
-    }
 #endif
     /* Query optimal working array(s) size */
     info = LAPACKE_zsytrf_rk_work( matrix_layout, uplo, n, a, lda, e, ipiv,