diff options
| author | cmoha <mselhwala@hotmail.com> | 2016-12-06 17:52:59 +0200 |
|---|---|---|
| committer | cmoha <mselhwala@hotmail.com> | 2016-12-06 17:52:59 +0200 |
| commit | 1103a96bdbdd0a8ee54e15b87c5a729c2105ef8e (patch) | |
| tree | bab4b85db328c94fa0df1f1428d8e14a999cfd51 | |
| parent | 25c52823c2d4ff42f93259c628914e20996e1f39 (diff) | |
fix #3
| -rw-r--r-- | CBLAS/include/cblas_f77.h | 4 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_zsytrf_aa.c | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/CBLAS/include/cblas_f77.h b/CBLAS/include/cblas_f77.h index edda4462..36d4a711 100644 --- a/CBLAS/include/cblas_f77.h +++ b/CBLAS/include/cblas_f77.h @@ -89,8 +89,8 @@ /* * Level 2 BLAS */ -#define F77_ssymv F77_GLOBAL(ssymv,SSYMY) -#define F77_ssbmv F77_GLOBAL(ssbmv,SSMBV) +#define F77_ssymv F77_GLOBAL(ssymv,SSYMV) +#define F77_ssbmv F77_GLOBAL(ssbmv,SSBMV) #define F77_sspmv F77_GLOBAL(sspmv,SSPMV) #define F77_sger F77_GLOBAL(sger,SGER) #define F77_ssyr F77_GLOBAL(ssyr,SSYR) diff --git a/LAPACKE/src/lapacke_zsytrf_aa.c b/LAPACKE/src/lapacke_zsytrf_aa.c index 28c0b9ec..f24b13f5 100644 --- a/LAPACKE/src/lapacke_zsytrf_aa.c +++ b/LAPACKE/src/lapacke_zsytrf_aa.c @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytrf( int matrix_layout, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrf_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_zsytrf( 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_zsytrf", -1 ); + LAPACKE_xerbla( "LAPACKE_zsytrf_aa", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -72,7 +72,7 @@ lapack_int LAPACKE_zsytrf( int matrix_layout, char uplo, lapack_int n, LAPACKE_free( work ); exit_level_0: if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_zsytrf", info ); + LAPACKE_xerbla( "LAPACKE_zsytrf_aa", info ); } return info; } |