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

echeresh · echeresh · commit ffde5da41b3e · 2017-05-24T01:38:23.000-07:00
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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,

Original file line number	Diff line number	Diff line change
`@@ -52,9 +52,6 @@ lapack_int LAPACKE_chesv_rk( int matrix_layout, char uplo, lapack_int n,`
`52`	`52`	`if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) {`
`53`	`53`	`return -5;`
`54`	`54`	`}`
`55`		`- if( LAPACKE_c_nancheck( n, e, 1) ) {`
`56`		`- return -7;`
`57`		`- }`
`58`	`55`	`if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {`
`59`	`56`	`return -10;`
`60`	`57`	`}`
Original file line number	Diff line number	Diff line change
`@@ -52,9 +52,6 @@ lapack_int LAPACKE_csysv_rk( int matrix_layout, char uplo, lapack_int n,`
`52`	`52`	`if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) {`
`53`	`53`	`return -5;`
`54`	`54`	`}`
`55`		`- if( LAPACKE_c_nancheck( n, e, 1) ) {`
`56`		`- return -7;`
`57`		`- }`
`58`	`55`	`if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {`
`59`	`56`	`return -9;`
`60`	`57`	`}`
Original file line number	Diff line number	Diff line change
`@@ -50,9 +50,6 @@ lapack_int LAPACKE_dsysv_rk( int matrix_layout, char uplo, lapack_int n,`
`50`	`50`	`if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) {`
`51`	`51`	`return -5;`
`52`	`52`	`}`
`53`		`- if( LAPACKE_d_nancheck( n, e, 1) ) {`
`54`		`- return -7;`
`55`		`- }`
`56`	`53`	`if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {`
`57`	`54`	`return -9;`
`58`	`55`	`}`
Original file line number	Diff line number	Diff line change
`@@ -50,9 +50,6 @@ lapack_int LAPACKE_ssysv_rk( int matrix_layout, char uplo, lapack_int n,`
`50`	`50`	`if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) {`
`51`	`51`	`return -5;`
`52`	`52`	`}`
`53`		`- if( LAPACKE_s_nancheck( n, e, 1) ) {`
`54`		`- return -7;`
`55`		`- }`
`56`	`53`	`if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {`
`57`	`54`	`return -9;`
`58`	`55`	`}`
Original file line number	Diff line number	Diff line change
`@@ -51,9 +51,6 @@ lapack_int LAPACKE_zhesv_rk( int matrix_layout, char uplo, lapack_int n,`
`51`	`51`	`if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) {`
`52`	`52`	`return -5;`
`53`	`53`	`}`
`54`		`- if( LAPACKE_z_nancheck( n, e, 1) ) {`
`55`		`- return -7;`
`56`		`- }`
`57`	`54`	`if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {`
`58`	`55`	`return -9;`
`59`	`56`	`}`