From 29ec25e392bba8e914e02c52c2ae0517cad6c1e8 Mon Sep 17 00:00:00 2001 From: cmoha Date: Tue, 6 Dec 2016 17:45:50 +0200 Subject: fixed definition of some voids --- LAPACKE/src/lapacke_chetrf_aa.c | 6 +++--- LAPACKE/src/lapacke_dsytrf_aa.c | 6 +++--- LAPACKE/src/lapacke_ssytrf_aa.c | 6 +++--- LAPACKE/src/lapacke_zhetrf_aa.c | 6 +++--- 4 files changed, 12 insertions(+), 12 deletions(-) (limited to 'LAPACKE') 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; } -- cgit v1.2.3