aboutsummaryrefslogtreecommitdiff
path: root/LAPACKE
diff options
context:
space:
mode:
authorcmoha <mselhwala@hotmail.com>2016-12-06 17:45:50 +0200
committercmoha <mselhwala@hotmail.com>2016-12-06 17:45:50 +0200
commit29ec25e392bba8e914e02c52c2ae0517cad6c1e8 (patch)
tree3d032c764278eb277f0b0c1d39193c337e5bcf0f /LAPACKE
parentaaea64c023703083cb2dbaad17033f342395a7ae (diff)
fixed definition of some voids
Diffstat (limited to 'LAPACKE')
-rw-r--r--LAPACKE/src/lapacke_chetrf_aa.c6
-rw-r--r--LAPACKE/src/lapacke_dsytrf_aa.c6
-rw-r--r--LAPACKE/src/lapacke_ssytrf_aa.c6
-rw-r--r--LAPACKE/src/lapacke_zhetrf_aa.c6
4 files changed, 12 insertions, 12 deletions
diff --git a/LAPACKE/src/lapacke_chetrf_aa.c b/LAPACKE/src/lapacke_chetrf_aa.c
index 5c5d1c25..b3887447 100644
--- 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 972c078e..490bd84b 100644
--- 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 a48ce3be..f98a7b18 100644
--- 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 7282db46..870fd0ea 100644
--- 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;
}