fix #3

diff --git a/CBLAS/include/cblas_f77.h b/CBLAS/include/cblas_f77.h
index edda446..36d4a71 100644 (file)
--- 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 28c0b9e..f24b13f 100644 (file)
--- 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;
 }