diff options
author | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-08 22:21:36 +0100 |
---|---|---|
committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-08 22:21:36 +0100 |
commit | b80d7b3365caa35838a86e19615b13d913cb2fed (patch) | |
tree | f8f2ece01b953c3c4d4cf363fa240009c14d78ec /LAPACKE | |
parent | 13288dbb7e29afa6bf399625002f18c5b95d4876 (diff) |
Fix Issue #95
Diffstat (limited to 'LAPACKE')
-rw-r--r-- | LAPACKE/src/lapacke_csyconv.c | 9 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_dsyconv.c | 10 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_ssyconv.c | 10 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_zsyconv.c | 10 |
4 files changed, 4 insertions, 35 deletions
diff --git a/LAPACKE/src/lapacke_csyconv.c b/LAPACKE/src/lapacke_csyconv.c index da602786..cc1eb84a 100644 --- a/LAPACKE/src/lapacke_csyconv.c +++ b/LAPACKE/src/lapacke_csyconv.c @@ -38,7 +38,6 @@ lapack_int LAPACKE_csyconv( int matrix_layout, char uplo, char way, lapack_int n const lapack_int* ipiv, lapack_complex_float* e ) { - lapack_int info = 0; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csyconv", -1 ); return -1; @@ -50,11 +49,5 @@ lapack_int LAPACKE_csyconv( int matrix_layout, char uplo, char way, lapack_int n } #endif /* Call middle-level interface */ - info = LAPACKE_csyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, - e ); -exit_level_0: - if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_csyconv", info ); - } - return info; + return LAPACKE_csyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, e ); } diff --git a/LAPACKE/src/lapacke_dsyconv.c b/LAPACKE/src/lapacke_dsyconv.c index 086ab083..1e3f78ee 100644 --- a/LAPACKE/src/lapacke_dsyconv.c +++ b/LAPACKE/src/lapacke_dsyconv.c @@ -36,7 +36,6 @@ lapack_int LAPACKE_dsyconv( int matrix_layout, char uplo, char way, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv, double* e ) { - lapack_int info = 0; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsyconv", -1 ); return -1; @@ -47,13 +46,6 @@ lapack_int LAPACKE_dsyconv( int matrix_layout, char uplo, char way, lapack_int n return -5; } #endif - /* Call middle-level interface */ - info = LAPACKE_dsyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, - e ); -exit_level_0: - if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_dsyconv", info ); - } - return info; + return LAPACKE_dsyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, e ); } diff --git a/LAPACKE/src/lapacke_ssyconv.c b/LAPACKE/src/lapacke_ssyconv.c index f7019669..c22b1e44 100644 --- a/LAPACKE/src/lapacke_ssyconv.c +++ b/LAPACKE/src/lapacke_ssyconv.c @@ -36,7 +36,6 @@ lapack_int LAPACKE_ssyconv( int matrix_layout, char uplo, char way, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv, float* e ) { - lapack_int info = 0; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssyconv", -1 ); return -1; @@ -47,13 +46,6 @@ lapack_int LAPACKE_ssyconv( int matrix_layout, char uplo, char way, lapack_int n return -5; } #endif - /* Call middle-level interface */ - info = LAPACKE_ssyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, - e ); -exit_level_0: - if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssyconv", info ); - } - return info; + return LAPACKE_ssyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, e ); } diff --git a/LAPACKE/src/lapacke_zsyconv.c b/LAPACKE/src/lapacke_zsyconv.c index 12eaa469..e0b9166a 100644 --- a/LAPACKE/src/lapacke_zsyconv.c +++ b/LAPACKE/src/lapacke_zsyconv.c @@ -38,7 +38,6 @@ lapack_int LAPACKE_zsyconv( int matrix_layout, char uplo, char way, lapack_int n const lapack_int* ipiv, lapack_complex_double* e ) { - lapack_int info = 0; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsyconv", -1 ); return -1; @@ -50,12 +49,5 @@ lapack_int LAPACKE_zsyconv( int matrix_layout, char uplo, char way, lapack_int n } #endif /* Call middle-level interface */ - info = LAPACKE_zsyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, - e ); - -exit_level_0: - if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_zsyconv", info ); - } - return info; + return LAPACKE_zsyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, e ); } |