Fix Issue #95

diff --git a/LAPACKE/src/lapacke_csyconv.c b/LAPACKE/src/lapacke_csyconv.c
index da60278..cc1eb84 100644 (file)
--- 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 086ab08..1e3f78e 100644 (file)
--- 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 f701966..c22b1e4 100644 (file)
--- 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 12eaa46..e0b9166 100644 (file)
--- 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 );
 }