fixed definition of some voids

diff --git a/LAPACKE/src/lapacke_chetrf_aa.c b/LAPACKE/src/lapacke_chetrf_aa.c
index 5c5d1c2..b388744 100644 (file)
--- a/LAPACKE/src/lapacke_chetrf_aa.c
+++ b/LAPACKE/src/lapacke_chetrf_aa.c
@@ -33,7 +33,7 @@
 
 #include "lapacke_utils.h"
 
-lapack_int LAPACKE_chetrf( int matrix_layout, char uplo, lapack_int n,
+lapack_int LAPACKE_chetrf_aa( int matrix_layout, char uplo, lapack_int n,
                            lapack_complex_float* a, lapack_int lda,
                            lapack_int* ipiv )
 {
@@ -42,7 +42,7 @@ lapack_int LAPACKE_chetrf( int matrix_layout, char uplo, lapack_int n,
     lapack_complex_float* work = NULL;
     lapack_complex_float work_query;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
-        LAPACKE_xerbla( "LAPACKE_chetrf", -1 );
+        LAPACKE_xerbla( "LAPACKE_chetrf_aa", -1 );
         return -1;
     }
 #ifndef LAPACK_DISABLE_NAN_CHECK
@@ -72,7 +72,7 @@ lapack_int LAPACKE_chetrf( int matrix_layout, char uplo, lapack_int n,
     LAPACKE_free( work );
 exit_level_0:
     if( info == LAPACK_WORK_MEMORY_ERROR ) {
-        LAPACKE_xerbla( "LAPACKE_chetrf", info );
+        LAPACKE_xerbla( "LAPACKE_chetrf_aa", info );
     }
     return info;
 }

diff --git a/LAPACKE/src/lapacke_dsytrf_aa.c b/LAPACKE/src/lapacke_dsytrf_aa.c
index 972c078..490bd84 100644 (file)
--- a/LAPACKE/src/lapacke_dsytrf_aa.c
+++ b/LAPACKE/src/lapacke_dsytrf_aa.c
@@ -33,7 +33,7 @@
 
 #include "lapacke_utils.h"
 
-lapack_int LAPACKE_dsytrf( int matrix_layout, char uplo, lapack_int n, double* a,
+lapack_int LAPACKE_dsytrf_aa( int matrix_layout, char uplo, lapack_int n, double* a,
                            lapack_int lda, lapack_int* ipiv )
 {
     lapack_int info = 0;
@@ -41,7 +41,7 @@ lapack_int LAPACKE_dsytrf( int matrix_layout, char uplo, lapack_int n, double* a
     double* work = NULL;
     double work_query;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
-        LAPACKE_xerbla( "LAPACKE_dsytrf", -1 );
+        LAPACKE_xerbla( "LAPACKE_dsytrf_aa", -1 );
         return -1;
     }
 #ifndef LAPACK_DISABLE_NAN_CHECK
@@ -70,7 +70,7 @@ lapack_int LAPACKE_dsytrf( int matrix_layout, char uplo, lapack_int n, double* a
     LAPACKE_free( work );
 exit_level_0:
     if( info == LAPACK_WORK_MEMORY_ERROR ) {
-        LAPACKE_xerbla( "LAPACKE_dsytrf", info );
+        LAPACKE_xerbla( "LAPACKE_dsytrf_aa", info );
     }
     return info;
 }

diff --git a/LAPACKE/src/lapacke_ssytrf_aa.c b/LAPACKE/src/lapacke_ssytrf_aa.c
index a48ce3b..f98a7b1 100644 (file)
--- a/LAPACKE/src/lapacke_ssytrf_aa.c
+++ b/LAPACKE/src/lapacke_ssytrf_aa.c
@@ -33,7 +33,7 @@
 
 #include "lapacke_utils.h"
 
-lapack_int LAPACKE_ssytrf( int matrix_layout, char uplo, lapack_int n, float* a,
+lapack_int LAPACKE_ssytrf_aa( int matrix_layout, char uplo, lapack_int n, float* a,
                            lapack_int lda, lapack_int* ipiv )
 {
     lapack_int info = 0;
@@ -41,7 +41,7 @@ lapack_int LAPACKE_ssytrf( int matrix_layout, char uplo, lapack_int n, float* a,
     float* work = NULL;
     float work_query;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
-        LAPACKE_xerbla( "LAPACKE_ssytrf", -1 );
+        LAPACKE_xerbla( "LAPACKE_ssytrf_aa", -1 );
         return -1;
     }
 #ifndef LAPACK_DISABLE_NAN_CHECK
@@ -70,7 +70,7 @@ lapack_int LAPACKE_ssytrf( int matrix_layout, char uplo, lapack_int n, float* a,
     LAPACKE_free( work );
 exit_level_0:
     if( info == LAPACK_WORK_MEMORY_ERROR ) {
-        LAPACKE_xerbla( "LAPACKE_ssytrf", info );
+        LAPACKE_xerbla( "LAPACKE_ssytrf_aa", info );
     }
     return info;
 }

diff --git a/LAPACKE/src/lapacke_zhetrf_aa.c b/LAPACKE/src/lapacke_zhetrf_aa.c
index 7282db4..870fd0e 100644 (file)
--- a/LAPACKE/src/lapacke_zhetrf_aa.c
+++ b/LAPACKE/src/lapacke_zhetrf_aa.c
@@ -33,7 +33,7 @@
 
 #include "lapacke_utils.h"
 
-lapack_int LAPACKE_zhetrf( int matrix_layout, char uplo, lapack_int n,
+lapack_int LAPACKE_zhetrf_aa( int matrix_layout, char uplo, lapack_int n,
                            lapack_complex_double* a, lapack_int lda,
                            lapack_int* ipiv )
 {
@@ -42,7 +42,7 @@ lapack_int LAPACKE_zhetrf( int matrix_layout, char uplo, lapack_int n,
     lapack_complex_double* work = NULL;
     lapack_complex_double work_query;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
-        LAPACKE_xerbla( "LAPACKE_zhetrf", -1 );
+        LAPACKE_xerbla( "LAPACKE_zhetrf_aa", -1 );
         return -1;
     }
 #ifndef LAPACK_DISABLE_NAN_CHECK
@@ -72,7 +72,7 @@ lapack_int LAPACKE_zhetrf( int matrix_layout, char uplo, lapack_int n,
     LAPACKE_free( work );
 exit_level_0:
     if( info == LAPACK_WORK_MEMORY_ERROR ) {
-        LAPACKE_xerbla( "LAPACKE_zhetrf", info );
+        LAPACKE_xerbla( "LAPACKE_zhetrf_aa", info );
     }
     return info;
 }