From ce3f662e12866126702cea88ee46efcb44e9dc43 Mon Sep 17 00:00:00 2001 From: Maria Kraynyuk Date: Thu, 4 May 2023 10:39:28 -0700 Subject: [PATCH 1/2] Add Index-64 API as extended API with _64 suffix for CBLAS --- BLAS/SRC/CMakeLists.txt | 30 +- BLAS/SRC/cgbmv.f | 3 +- BLAS/SRC/cgemm.f | 3 +- BLAS/SRC/chemm.f | 6 +- BLAS/SRC/csymm.f | 6 +- BLAS/SRC/ctbmv.f | 6 +- BLAS/SRC/ctbsv.f | 6 +- BLAS/SRC/ctpmv.f | 6 +- BLAS/SRC/ctpsv.f | 6 +- BLAS/SRC/ctrmm.f | 3 +- BLAS/SRC/ctrmv.f | 6 +- BLAS/SRC/ctrsm.f | 3 +- BLAS/SRC/ctrsv.f | 6 +- BLAS/SRC/dgbmv.f | 3 +- BLAS/SRC/dgemm.f | 3 +- BLAS/SRC/dsymm.f | 3 +- BLAS/SRC/dtbmv.f | 6 +- BLAS/SRC/dtbsv.f | 6 +- BLAS/SRC/dtpmv.f | 6 +- BLAS/SRC/dtpsv.f | 6 +- BLAS/SRC/dtrmm.f | 3 +- BLAS/SRC/dtrmv.f | 6 +- BLAS/SRC/dtrsm.f | 3 +- BLAS/SRC/dtrsv.f | 6 +- BLAS/SRC/sgbmv.f | 3 +- BLAS/SRC/sgemm.f | 3 +- BLAS/SRC/ssymm.f | 6 +- BLAS/SRC/stbmv.f | 6 +- BLAS/SRC/stbsv.f | 6 +- BLAS/SRC/stpmv.f | 6 +- BLAS/SRC/stpsv.f | 6 +- BLAS/SRC/strmm.f | 3 +- BLAS/SRC/strmv.f | 6 +- BLAS/SRC/strsm.f | 3 +- BLAS/SRC/strsv.f | 6 +- BLAS/SRC/zgbmv.f | 3 +- BLAS/SRC/zgemm.f | 3 +- BLAS/SRC/zhemm.f | 6 +- BLAS/SRC/zsymm.f | 6 +- BLAS/SRC/ztbmv.f | 6 +- BLAS/SRC/ztbsv.f | 6 +- BLAS/SRC/ztpmv.f | 6 +- BLAS/SRC/ztpsv.f | 6 +- BLAS/SRC/ztrmm.f | 3 +- BLAS/SRC/ztrmv.f | 6 +- BLAS/SRC/ztrsm.f | 3 +- BLAS/SRC/ztrsv.f | 6 +- CBLAS/examples/CMakeLists.txt | 11 + CBLAS/examples/cblas_example1_64.c | 69 ++++ CBLAS/examples/cblas_example2_64.c | 74 ++++ CBLAS/include/CMakeLists.txt | 2 +- CBLAS/include/cblas.h | 13 + CBLAS/include/cblas_64.h | 584 +++++++++++++++++++++++++++ CBLAS/include/cblas_f77.h | 312 +++++++------- CBLAS/src/CMakeLists.txt | 39 +- CBLAS/src/cblas_caxpy.c | 2 +- CBLAS/src/cblas_ccopy.c | 2 +- CBLAS/src/cblas_cdotc_sub.c | 2 +- CBLAS/src/cblas_cdotu_sub.c | 2 +- CBLAS/src/cblas_cgbmv.c | 8 +- CBLAS/src/cblas_cgemm.c | 12 +- CBLAS/src/cblas_cgemv.c | 8 +- CBLAS/src/cblas_cgerc.c | 4 +- CBLAS/src/cblas_cgeru.c | 4 +- CBLAS/src/cblas_chbmv.c | 8 +- CBLAS/src/cblas_chemm.c | 12 +- CBLAS/src/cblas_chemv.c | 8 +- CBLAS/src/cblas_cher.c | 8 +- CBLAS/src/cblas_cher2.c | 8 +- CBLAS/src/cblas_cher2k.c | 12 +- CBLAS/src/cblas_cherk.c | 12 +- CBLAS/src/cblas_chpmv.c | 8 +- CBLAS/src/cblas_chpr.c | 8 +- CBLAS/src/cblas_chpr2.c | 8 +- CBLAS/src/cblas_crotg.c | 2 +- CBLAS/src/cblas_cscal.c | 2 +- CBLAS/src/cblas_csrot.c | 2 +- CBLAS/src/cblas_csscal.c | 2 +- CBLAS/src/cblas_cswap.c | 2 +- CBLAS/src/cblas_csymm.c | 12 +- CBLAS/src/cblas_csyr2k.c | 12 +- CBLAS/src/cblas_csyrk.c | 12 +- CBLAS/src/cblas_ctbmv.c | 16 +- CBLAS/src/cblas_ctbsv.c | 16 +- CBLAS/src/cblas_ctpmv.c | 16 +- CBLAS/src/cblas_ctpsv.c | 16 +- CBLAS/src/cblas_ctrmm.c | 20 +- CBLAS/src/cblas_ctrmv.c | 16 +- CBLAS/src/cblas_ctrsm.c | 20 +- CBLAS/src/cblas_ctrsv.c | 16 +- CBLAS/src/cblas_dasum.c | 2 +- CBLAS/src/cblas_daxpy.c | 2 +- CBLAS/src/cblas_dcabs1.c | 2 +- CBLAS/src/cblas_dcopy.c | 2 +- CBLAS/src/cblas_ddot.c | 2 +- CBLAS/src/cblas_dgbmv.c | 8 +- CBLAS/src/cblas_dgemm.c | 12 +- CBLAS/src/cblas_dgemv.c | 8 +- CBLAS/src/cblas_dger.c | 4 +- CBLAS/src/cblas_dnrm2.c | 2 +- CBLAS/src/cblas_drot.c | 2 +- CBLAS/src/cblas_drotg.c | 2 +- CBLAS/src/cblas_drotm.c | 2 +- CBLAS/src/cblas_drotmg.c | 2 +- CBLAS/src/cblas_dsbmv.c | 8 +- CBLAS/src/cblas_dscal.c | 2 +- CBLAS/src/cblas_dsdot.c | 2 +- CBLAS/src/cblas_dspmv.c | 8 +- CBLAS/src/cblas_dspr.c | 8 +- CBLAS/src/cblas_dspr2.c | 8 +- CBLAS/src/cblas_dswap.c | 2 +- CBLAS/src/cblas_dsymm.c | 12 +- CBLAS/src/cblas_dsymv.c | 8 +- CBLAS/src/cblas_dsyr.c | 8 +- CBLAS/src/cblas_dsyr2.c | 8 +- CBLAS/src/cblas_dsyr2k.c | 12 +- CBLAS/src/cblas_dsyrk.c | 12 +- CBLAS/src/cblas_dtbmv.c | 16 +- CBLAS/src/cblas_dtbsv.c | 16 +- CBLAS/src/cblas_dtpmv.c | 16 +- CBLAS/src/cblas_dtpsv.c | 16 +- CBLAS/src/cblas_dtrmm.c | 20 +- CBLAS/src/cblas_dtrmv.c | 16 +- CBLAS/src/cblas_dtrsm.c | 20 +- CBLAS/src/cblas_dtrsv.c | 16 +- CBLAS/src/cblas_dzasum.c | 2 +- CBLAS/src/cblas_dznrm2.c | 2 +- CBLAS/src/cblas_icamax.c | 2 +- CBLAS/src/cblas_idamax.c | 2 +- CBLAS/src/cblas_isamax.c | 2 +- CBLAS/src/cblas_izamax.c | 2 +- CBLAS/src/cblas_sasum.c | 2 +- CBLAS/src/cblas_saxpy.c | 2 +- CBLAS/src/cblas_scabs1.c | 2 +- CBLAS/src/cblas_scasum.c | 2 +- CBLAS/src/cblas_scnrm2.c | 2 +- CBLAS/src/cblas_scopy.c | 2 +- CBLAS/src/cblas_sdot.c | 2 +- CBLAS/src/cblas_sdsdot.c | 2 +- CBLAS/src/cblas_sgbmv.c | 8 +- CBLAS/src/cblas_sgemm.c | 12 +- CBLAS/src/cblas_sgemv.c | 8 +- CBLAS/src/cblas_sger.c | 4 +- CBLAS/src/cblas_snrm2.c | 2 +- CBLAS/src/cblas_srot.c | 2 +- CBLAS/src/cblas_srotg.c | 2 +- CBLAS/src/cblas_srotm.c | 2 +- CBLAS/src/cblas_srotmg.c | 2 +- CBLAS/src/cblas_ssbmv.c | 8 +- CBLAS/src/cblas_sscal.c | 2 +- CBLAS/src/cblas_sspmv.c | 8 +- CBLAS/src/cblas_sspr.c | 8 +- CBLAS/src/cblas_sspr2.c | 8 +- CBLAS/src/cblas_sswap.c | 2 +- CBLAS/src/cblas_ssymm.c | 12 +- CBLAS/src/cblas_ssymv.c | 8 +- CBLAS/src/cblas_ssyr.c | 8 +- CBLAS/src/cblas_ssyr2.c | 8 +- CBLAS/src/cblas_ssyr2k.c | 12 +- CBLAS/src/cblas_ssyrk.c | 12 +- CBLAS/src/cblas_stbmv.c | 16 +- CBLAS/src/cblas_stbsv.c | 16 +- CBLAS/src/cblas_stpmv.c | 16 +- CBLAS/src/cblas_stpsv.c | 16 +- CBLAS/src/cblas_strmm.c | 20 +- CBLAS/src/cblas_strmv.c | 16 +- CBLAS/src/cblas_strsm.c | 20 +- CBLAS/src/cblas_strsv.c | 16 +- CBLAS/src/cblas_xerbla.c | 2 +- CBLAS/src/cblas_zaxpy.c | 2 +- CBLAS/src/cblas_zcopy.c | 2 +- CBLAS/src/cblas_zdotc_sub.c | 2 +- CBLAS/src/cblas_zdotu_sub.c | 2 +- CBLAS/src/cblas_zdrot.c | 2 +- CBLAS/src/cblas_zdscal.c | 2 +- CBLAS/src/cblas_zgbmv.c | 8 +- CBLAS/src/cblas_zgemm.c | 12 +- CBLAS/src/cblas_zgemv.c | 8 +- CBLAS/src/cblas_zgerc.c | 4 +- CBLAS/src/cblas_zgeru.c | 4 +- CBLAS/src/cblas_zhbmv.c | 8 +- CBLAS/src/cblas_zhemm.c | 12 +- CBLAS/src/cblas_zhemv.c | 8 +- CBLAS/src/cblas_zher.c | 8 +- CBLAS/src/cblas_zher2.c | 8 +- CBLAS/src/cblas_zher2k.c | 12 +- CBLAS/src/cblas_zherk.c | 12 +- CBLAS/src/cblas_zhpmv.c | 8 +- CBLAS/src/cblas_zhpr.c | 8 +- CBLAS/src/cblas_zhpr2.c | 8 +- CBLAS/src/cblas_zrotg.c | 2 +- CBLAS/src/cblas_zscal.c | 2 +- CBLAS/src/cblas_zswap.c | 2 +- CBLAS/src/cblas_zsymm.c | 12 +- CBLAS/src/cblas_zsyr2k.c | 12 +- CBLAS/src/cblas_zsyrk.c | 12 +- CBLAS/src/cblas_ztbmv.c | 16 +- CBLAS/src/cblas_ztbsv.c | 16 +- CBLAS/src/cblas_ztpmv.c | 16 +- CBLAS/src/cblas_ztpsv.c | 16 +- CBLAS/src/cblas_ztrmm.c | 20 +- CBLAS/src/cblas_ztrmv.c | 16 +- CBLAS/src/cblas_ztrsm.c | 20 +- CBLAS/src/cblas_ztrsv.c | 16 +- CBLAS/src/xerbla.c | 2 +- CMAKE/CheckLAPACKCompilerFlags.cmake | 50 +-- CMakeLists.txt | 2 + 207 files changed, 1774 insertions(+), 865 deletions(-) create mode 100644 CBLAS/examples/cblas_example1_64.c create mode 100644 CBLAS/examples/cblas_example2_64.c create mode 100644 CBLAS/include/cblas_64.h diff --git a/BLAS/SRC/CMakeLists.txt b/BLAS/SRC/CMakeLists.txt index 4e5894f4d0..8b9e1397d8 100644 --- a/BLAS/SRC/CMakeLists.txt +++ b/BLAS/SRC/CMakeLists.txt @@ -109,7 +109,35 @@ if(BUILD_COMPLEX16) endif() list(REMOVE_DUPLICATES SOURCES) -add_library(${BLASLIB} ${SOURCES}) +add_library(${BLASLIB}_obj OBJECT ${SOURCES}) +target_compile_options(${BLASLIB}_obj PRIVATE -fPIC) + +if(BUILD_INDEX64_EXT_API) + #Add _64 suffix to all Fortran functions via macros + set(COPT_64_F) + list(APPEND COPT_64_F -cpp) + foreach(F IN LISTS SOURCES) + file(STRINGS ${F} ${F}.lst) + list(FILTER ${F}.lst INCLUDE REGEX "subroutine|SUBROUTINE|external|EXTERNAL|function|FUNCTION") + list(FILTER ${F}.lst EXCLUDE REGEX "^!.*") + list(FILTER ${F}.lst EXCLUDE REGEX "^[*].*") + list(FILTER ${F}.lst EXCLUDE REGEX "end|END") + foreach(FUNC IN LISTS ${F}.lst) + string(REGEX REPLACE "^[a-zA-Z0-9_ *]*(subroutine|SUBROUTINE|external|EXTERNAL|function|FUNCTION)[ ]*[*]?" "" FUNC ${FUNC}) + string(REGEX REPLACE "[(][a-zA-Z0-9_, )]*$" "" FUNC ${FUNC}) + string(STRIP ${FUNC} FUNC) + list(APPEND COPT_64_F "-D${FUNC}=${FUNC}_64") + endforeach() + endforeach() + list(REMOVE_DUPLICATES COPT_64_F) + add_library(${BLASLIB}_64_obj OBJECT ${SOURCES}) + target_compile_options(${BLASLIB}_64_obj PRIVATE -fPIC ${FOPT_ILP64} ${COPT_64_F}) +endif() + +add_library(${BLASLIB} + $ + $<$: $>) + set_target_properties( ${BLASLIB} PROPERTIES VERSION ${LAPACK_VERSION} diff --git a/BLAS/SRC/cgbmv.f b/BLAS/SRC/cgbmv.f index 42a1da0335..49a635d634 100644 --- a/BLAS/SRC/cgbmv.f +++ b/BLAS/SRC/cgbmv.f @@ -183,7 +183,8 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX, + + BETA,Y,INCY) * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cgemm.f b/BLAS/SRC/cgemm.f index baefe21e8b..7d3d8d8dab 100644 --- a/BLAS/SRC/cgemm.f +++ b/BLAS/SRC/cgemm.f @@ -183,7 +183,8 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB, + + BETA,C,LDC) * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/chemm.f b/BLAS/SRC/chemm.f index 5d66dda3d5..db3826fc67 100644 --- a/BLAS/SRC/chemm.f +++ b/BLAS/SRC/chemm.f @@ -238,9 +238,11 @@ SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) * Test the input parameters. * INFO = 0 - IF ((.NOT.LSAME(SIDE,'L')) .AND. (.NOT.LSAME(SIDE,'R'))) THEN + IF ((.NOT.LSAME(SIDE,'L')) .AND. + + (.NOT.LSAME(SIDE,'R'))) THEN INFO = 1 - ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN + ELSE IF ((.NOT.UPPER) .AND. + + (.NOT.LSAME(UPLO,'L'))) THEN INFO = 2 ELSE IF (M.LT.0) THEN INFO = 3 diff --git a/BLAS/SRC/csymm.f b/BLAS/SRC/csymm.f index ff6a6bf05b..831bdef693 100644 --- a/BLAS/SRC/csymm.f +++ b/BLAS/SRC/csymm.f @@ -236,9 +236,11 @@ SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) * Test the input parameters. * INFO = 0 - IF ((.NOT.LSAME(SIDE,'L')) .AND. (.NOT.LSAME(SIDE,'R'))) THEN + IF ((.NOT.LSAME(SIDE,'L')) .AND. + + (.NOT.LSAME(SIDE,'R'))) THEN INFO = 1 - ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN + ELSE IF ((.NOT.UPPER) .AND. + + (.NOT.LSAME(UPLO,'L'))) THEN INFO = 2 ELSE IF (M.LT.0) THEN INFO = 3 diff --git a/BLAS/SRC/ctbmv.f b/BLAS/SRC/ctbmv.f index c0be8f4ea5..cc07f6c32b 100644 --- a/BLAS/SRC/ctbmv.f +++ b/BLAS/SRC/ctbmv.f @@ -223,10 +223,12 @@ SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/ctbsv.f b/BLAS/SRC/ctbsv.f index b3600e4636..f1f7076174 100644 --- a/BLAS/SRC/ctbsv.f +++ b/BLAS/SRC/ctbsv.f @@ -226,10 +226,12 @@ SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/ctpmv.f b/BLAS/SRC/ctpmv.f index b4651a2a39..1a37753c69 100644 --- a/BLAS/SRC/ctpmv.f +++ b/BLAS/SRC/ctpmv.f @@ -179,10 +179,12 @@ SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/ctpsv.f b/BLAS/SRC/ctpsv.f index d306cc2380..b5cab53a88 100644 --- a/BLAS/SRC/ctpsv.f +++ b/BLAS/SRC/ctpsv.f @@ -181,10 +181,12 @@ SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/ctrmm.f b/BLAS/SRC/ctrmm.f index 2597372136..a015fe990d 100644 --- a/BLAS/SRC/ctrmm.f +++ b/BLAS/SRC/ctrmm.f @@ -233,7 +233,8 @@ SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + (.NOT.LSAME(TRANSA,'T')) .AND. + (.NOT.LSAME(TRANSA,'C'))) THEN INFO = 3 - ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. (.NOT.LSAME(DIAG,'N'))) THEN + ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. + + (.NOT.LSAME(DIAG,'N'))) THEN INFO = 4 ELSE IF (M.LT.0) THEN INFO = 5 diff --git a/BLAS/SRC/ctrmv.f b/BLAS/SRC/ctrmv.f index 2404b3deb1..1c312946f8 100644 --- a/BLAS/SRC/ctrmv.f +++ b/BLAS/SRC/ctrmv.f @@ -184,10 +184,12 @@ SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/ctrsm.f b/BLAS/SRC/ctrsm.f index 7da6cfe59a..b59a831ce9 100644 --- a/BLAS/SRC/ctrsm.f +++ b/BLAS/SRC/ctrsm.f @@ -236,7 +236,8 @@ SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + (.NOT.LSAME(TRANSA,'T')) .AND. + (.NOT.LSAME(TRANSA,'C'))) THEN INFO = 3 - ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. (.NOT.LSAME(DIAG,'N'))) THEN + ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. + + (.NOT.LSAME(DIAG,'N'))) THEN INFO = 4 ELSE IF (M.LT.0) THEN INFO = 5 diff --git a/BLAS/SRC/ctrsv.f b/BLAS/SRC/ctrsv.f index de0640e4bd..77704c9637 100644 --- a/BLAS/SRC/ctrsv.f +++ b/BLAS/SRC/ctrsv.f @@ -186,10 +186,12 @@ SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/dgbmv.f b/BLAS/SRC/dgbmv.f index 4c8f088b00..d31ea24ca9 100644 --- a/BLAS/SRC/dgbmv.f +++ b/BLAS/SRC/dgbmv.f @@ -181,7 +181,8 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX, + + BETA,Y,INCY) * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dgemm.f b/BLAS/SRC/dgemm.f index 8c1b4f2066..6814603357 100644 --- a/BLAS/SRC/dgemm.f +++ b/BLAS/SRC/dgemm.f @@ -183,7 +183,8 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB, + + BETA,C,LDC) * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dsymm.f b/BLAS/SRC/dsymm.f index 683e79f6ad..0ddffec7b7 100644 --- a/BLAS/SRC/dsymm.f +++ b/BLAS/SRC/dsymm.f @@ -234,7 +234,8 @@ SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) * Test the input parameters. * INFO = 0 - IF ((.NOT.LSAME(SIDE,'L')) .AND. (.NOT.LSAME(SIDE,'R'))) THEN + IF ((.NOT.LSAME(SIDE,'L')) .AND. + + (.NOT.LSAME(SIDE,'R'))) THEN INFO = 1 ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN INFO = 2 diff --git a/BLAS/SRC/dtbmv.f b/BLAS/SRC/dtbmv.f index 646fb9bf55..443415e05e 100644 --- a/BLAS/SRC/dtbmv.f +++ b/BLAS/SRC/dtbmv.f @@ -223,10 +223,12 @@ SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/dtbsv.f b/BLAS/SRC/dtbsv.f index d4ab7c65ac..002ed590a8 100644 --- a/BLAS/SRC/dtbsv.f +++ b/BLAS/SRC/dtbsv.f @@ -226,10 +226,12 @@ SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/dtpmv.f b/BLAS/SRC/dtpmv.f index 32ab147f77..48b3035551 100644 --- a/BLAS/SRC/dtpmv.f +++ b/BLAS/SRC/dtpmv.f @@ -176,10 +176,12 @@ SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/dtpsv.f b/BLAS/SRC/dtpsv.f index 853d0dab0c..3246ac21dd 100644 --- a/BLAS/SRC/dtpsv.f +++ b/BLAS/SRC/dtpsv.f @@ -178,10 +178,12 @@ SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/dtrmm.f b/BLAS/SRC/dtrmm.f index b2cc0a1fa8..16b1d48e25 100644 --- a/BLAS/SRC/dtrmm.f +++ b/BLAS/SRC/dtrmm.f @@ -230,7 +230,8 @@ SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + (.NOT.LSAME(TRANSA,'T')) .AND. + (.NOT.LSAME(TRANSA,'C'))) THEN INFO = 3 - ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. (.NOT.LSAME(DIAG,'N'))) THEN + ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. + + (.NOT.LSAME(DIAG,'N'))) THEN INFO = 4 ELSE IF (M.LT.0) THEN INFO = 5 diff --git a/BLAS/SRC/dtrmv.f b/BLAS/SRC/dtrmv.f index e8af8e6136..3ecd67ae25 100644 --- a/BLAS/SRC/dtrmv.f +++ b/BLAS/SRC/dtrmv.f @@ -184,10 +184,12 @@ SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/dtrsm.f b/BLAS/SRC/dtrsm.f index fa8080bc92..53bac55b4a 100644 --- a/BLAS/SRC/dtrsm.f +++ b/BLAS/SRC/dtrsm.f @@ -234,7 +234,8 @@ SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + (.NOT.LSAME(TRANSA,'T')) .AND. + (.NOT.LSAME(TRANSA,'C'))) THEN INFO = 3 - ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. (.NOT.LSAME(DIAG,'N'))) THEN + ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. + + (.NOT.LSAME(DIAG,'N'))) THEN INFO = 4 ELSE IF (M.LT.0) THEN INFO = 5 diff --git a/BLAS/SRC/dtrsv.f b/BLAS/SRC/dtrsv.f index d8ea9fa898..bf1e760c1b 100644 --- a/BLAS/SRC/dtrsv.f +++ b/BLAS/SRC/dtrsv.f @@ -180,10 +180,12 @@ SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/sgbmv.f b/BLAS/SRC/sgbmv.f index b5211eec99..a79a833f7e 100644 --- a/BLAS/SRC/sgbmv.f +++ b/BLAS/SRC/sgbmv.f @@ -181,7 +181,8 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX, + + BETA,Y,INCY) * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sgemm.f b/BLAS/SRC/sgemm.f index d25a152116..0757ee4859 100644 --- a/BLAS/SRC/sgemm.f +++ b/BLAS/SRC/sgemm.f @@ -183,7 +183,8 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB, + + BETA,C,LDC) * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ssymm.f b/BLAS/SRC/ssymm.f index 3147bd619e..bfa8d16336 100644 --- a/BLAS/SRC/ssymm.f +++ b/BLAS/SRC/ssymm.f @@ -234,9 +234,11 @@ SUBROUTINE SSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) * Test the input parameters. * INFO = 0 - IF ((.NOT.LSAME(SIDE,'L')) .AND. (.NOT.LSAME(SIDE,'R'))) THEN + IF ((.NOT.LSAME(SIDE,'L')) .AND. + + (.NOT.LSAME(SIDE,'R'))) THEN INFO = 1 - ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN + ELSE IF ((.NOT.UPPER) .AND. + + (.NOT.LSAME(UPLO,'L'))) THEN INFO = 2 ELSE IF (M.LT.0) THEN INFO = 3 diff --git a/BLAS/SRC/stbmv.f b/BLAS/SRC/stbmv.f index 09273a1b1b..31c8dcb5f9 100644 --- a/BLAS/SRC/stbmv.f +++ b/BLAS/SRC/stbmv.f @@ -223,10 +223,12 @@ SUBROUTINE STBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/stbsv.f b/BLAS/SRC/stbsv.f index 5f37cf7195..8f9aeef6c7 100644 --- a/BLAS/SRC/stbsv.f +++ b/BLAS/SRC/stbsv.f @@ -226,10 +226,12 @@ SUBROUTINE STBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/stpmv.f b/BLAS/SRC/stpmv.f index 9e77c1e70d..d56e90b312 100644 --- a/BLAS/SRC/stpmv.f +++ b/BLAS/SRC/stpmv.f @@ -176,10 +176,12 @@ SUBROUTINE STPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/stpsv.f b/BLAS/SRC/stpsv.f index 40b1ffb2c7..2c91d626e4 100644 --- a/BLAS/SRC/stpsv.f +++ b/BLAS/SRC/stpsv.f @@ -178,10 +178,12 @@ SUBROUTINE STPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/strmm.f b/BLAS/SRC/strmm.f index 9aa2ac260c..e353e28df4 100644 --- a/BLAS/SRC/strmm.f +++ b/BLAS/SRC/strmm.f @@ -230,7 +230,8 @@ SUBROUTINE STRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + (.NOT.LSAME(TRANSA,'T')) .AND. + (.NOT.LSAME(TRANSA,'C'))) THEN INFO = 3 - ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. (.NOT.LSAME(DIAG,'N'))) THEN + ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. + + (.NOT.LSAME(DIAG,'N'))) THEN INFO = 4 ELSE IF (M.LT.0) THEN INFO = 5 diff --git a/BLAS/SRC/strmv.f b/BLAS/SRC/strmv.f index 6f5a3e8fd4..0982b51c81 100644 --- a/BLAS/SRC/strmv.f +++ b/BLAS/SRC/strmv.f @@ -184,10 +184,12 @@ SUBROUTINE STRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/strsm.f b/BLAS/SRC/strsm.f index 6e97c52d86..006c16e81d 100644 --- a/BLAS/SRC/strsm.f +++ b/BLAS/SRC/strsm.f @@ -234,7 +234,8 @@ SUBROUTINE STRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + (.NOT.LSAME(TRANSA,'T')) .AND. + (.NOT.LSAME(TRANSA,'C'))) THEN INFO = 3 - ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. (.NOT.LSAME(DIAG,'N'))) THEN + ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. + + (.NOT.LSAME(DIAG,'N'))) THEN INFO = 4 ELSE IF (M.LT.0) THEN INFO = 5 diff --git a/BLAS/SRC/strsv.f b/BLAS/SRC/strsv.f index e228ea90c1..435082b147 100644 --- a/BLAS/SRC/strsv.f +++ b/BLAS/SRC/strsv.f @@ -186,10 +186,12 @@ SUBROUTINE STRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/zgbmv.f b/BLAS/SRC/zgbmv.f index 0bca54eb9e..90b6cef3d0 100644 --- a/BLAS/SRC/zgbmv.f +++ b/BLAS/SRC/zgbmv.f @@ -183,7 +183,8 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE ZGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + SUBROUTINE ZGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX, + + BETA,Y,INCY) * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zgemm.f b/BLAS/SRC/zgemm.f index 0b712f1b73..4727310a30 100644 --- a/BLAS/SRC/zgemm.f +++ b/BLAS/SRC/zgemm.f @@ -183,7 +183,8 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE ZGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + SUBROUTINE ZGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB, + + BETA,C,LDC) * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zhemm.f b/BLAS/SRC/zhemm.f index 9ebbab2c77..bed14cb9a4 100644 --- a/BLAS/SRC/zhemm.f +++ b/BLAS/SRC/zhemm.f @@ -238,9 +238,11 @@ SUBROUTINE ZHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) * Test the input parameters. * INFO = 0 - IF ((.NOT.LSAME(SIDE,'L')) .AND. (.NOT.LSAME(SIDE,'R'))) THEN + IF ((.NOT.LSAME(SIDE,'L')) .AND. + + (.NOT.LSAME(SIDE,'R'))) THEN INFO = 1 - ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN + ELSE IF ((.NOT.UPPER) .AND. + + (.NOT.LSAME(UPLO,'L'))) THEN INFO = 2 ELSE IF (M.LT.0) THEN INFO = 3 diff --git a/BLAS/SRC/zsymm.f b/BLAS/SRC/zsymm.f index 3ec8a8db7a..da491f1aee 100644 --- a/BLAS/SRC/zsymm.f +++ b/BLAS/SRC/zsymm.f @@ -236,9 +236,11 @@ SUBROUTINE ZSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) * Test the input parameters. * INFO = 0 - IF ((.NOT.LSAME(SIDE,'L')) .AND. (.NOT.LSAME(SIDE,'R'))) THEN + IF ((.NOT.LSAME(SIDE,'L')) .AND. + + (.NOT.LSAME(SIDE,'R'))) THEN INFO = 1 - ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN + ELSE IF ((.NOT.UPPER) .AND. + + (.NOT.LSAME(UPLO,'L'))) THEN INFO = 2 ELSE IF (M.LT.0) THEN INFO = 3 diff --git a/BLAS/SRC/ztbmv.f b/BLAS/SRC/ztbmv.f index 6be39d04e1..347a71af86 100644 --- a/BLAS/SRC/ztbmv.f +++ b/BLAS/SRC/ztbmv.f @@ -223,10 +223,12 @@ SUBROUTINE ZTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/ztbsv.f b/BLAS/SRC/ztbsv.f index 41b540774a..bbc8cef968 100644 --- a/BLAS/SRC/ztbsv.f +++ b/BLAS/SRC/ztbsv.f @@ -226,10 +226,12 @@ SUBROUTINE ZTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/ztpmv.f b/BLAS/SRC/ztpmv.f index 363fd5a2ac..27ae4d8a81 100644 --- a/BLAS/SRC/ztpmv.f +++ b/BLAS/SRC/ztpmv.f @@ -179,10 +179,12 @@ SUBROUTINE ZTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/ztpsv.f b/BLAS/SRC/ztpsv.f index c6f24d0b27..a29a26dba4 100644 --- a/BLAS/SRC/ztpsv.f +++ b/BLAS/SRC/ztpsv.f @@ -181,10 +181,12 @@ SUBROUTINE ZTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/ztrmm.f b/BLAS/SRC/ztrmm.f index c59c367cee..4b7deb1199 100644 --- a/BLAS/SRC/ztrmm.f +++ b/BLAS/SRC/ztrmm.f @@ -233,7 +233,8 @@ SUBROUTINE ZTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + (.NOT.LSAME(TRANSA,'T')) .AND. + (.NOT.LSAME(TRANSA,'C'))) THEN INFO = 3 - ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. (.NOT.LSAME(DIAG,'N'))) THEN + ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. + + (.NOT.LSAME(DIAG,'N'))) THEN INFO = 4 ELSE IF (M.LT.0) THEN INFO = 5 diff --git a/BLAS/SRC/ztrmv.f b/BLAS/SRC/ztrmv.f index e8314facb7..e50bfdb089 100644 --- a/BLAS/SRC/ztrmv.f +++ b/BLAS/SRC/ztrmv.f @@ -184,10 +184,12 @@ SUBROUTINE ZTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/BLAS/SRC/ztrsm.f b/BLAS/SRC/ztrsm.f index 7f7eb52f3e..aed1eabf8b 100644 --- a/BLAS/SRC/ztrsm.f +++ b/BLAS/SRC/ztrsm.f @@ -236,7 +236,8 @@ SUBROUTINE ZTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + (.NOT.LSAME(TRANSA,'T')) .AND. + (.NOT.LSAME(TRANSA,'C'))) THEN INFO = 3 - ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. (.NOT.LSAME(DIAG,'N'))) THEN + ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. + + (.NOT.LSAME(DIAG,'N'))) THEN INFO = 4 ELSE IF (M.LT.0) THEN INFO = 5 diff --git a/BLAS/SRC/ztrsv.f b/BLAS/SRC/ztrsv.f index 0bb9cbe745..8b41871cdf 100644 --- a/BLAS/SRC/ztrsv.f +++ b/BLAS/SRC/ztrsv.f @@ -186,10 +186,12 @@ SUBROUTINE ZTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) INFO = 0 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN INFO = 1 - ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND. + ELSE IF (.NOT.LSAME(TRANS,'N') .AND. + + .NOT.LSAME(TRANS,'T') .AND. + .NOT.LSAME(TRANS,'C')) THEN INFO = 2 - ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN + ELSE IF (.NOT.LSAME(DIAG,'U') .AND. + + .NOT.LSAME(DIAG,'N')) THEN INFO = 3 ELSE IF (N.LT.0) THEN INFO = 4 diff --git a/CBLAS/examples/CMakeLists.txt b/CBLAS/examples/CMakeLists.txt index 74f7d8bb83..61042430ee 100644 --- a/CBLAS/examples/CMakeLists.txt +++ b/CBLAS/examples/CMakeLists.txt @@ -6,3 +6,14 @@ target_link_libraries(xexample2_CBLAS ${CBLASLIB} ${BLAS_LIBRARIES}) add_test(example1_CBLAS ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample1_CBLAS) add_test(example2_CBLAS ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample2_CBLAS) + +if(BUILD_INDEX64_EXT_API) + add_executable(xexample1_64_CBLAS cblas_example1_64.c) + add_executable(xexample2_64_CBLAS cblas_example2_64.c) + + target_link_libraries(xexample1_64_CBLAS ${CBLASLIB}) + target_link_libraries(xexample2_64_CBLAS ${CBLASLIB} ${BLAS_LIBRARIES}) + + add_test(example1_64_CBLAS ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample1_64_CBLAS) + add_test(example2_64_CBLAS ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample2_64_CBLAS) +endif() diff --git a/CBLAS/examples/cblas_example1_64.c b/CBLAS/examples/cblas_example1_64.c new file mode 100644 index 0000000000..b8066db270 --- /dev/null +++ b/CBLAS/examples/cblas_example1_64.c @@ -0,0 +1,69 @@ +/* cblas_example.c */ + +#include +#include +#include "cblas_64.h" + +int main ( ) +{ + CBLAS_LAYOUT Layout; + CBLAS_TRANSPOSE transa; + + double *a, *x, *y; + double alpha, beta; + int64_t m, n, lda, incx, incy, i; + + Layout = CblasColMajor; + transa = CblasNoTrans; + + m = 4; /* Size of Column ( the number of rows ) */ + n = 4; /* Size of Row ( the number of columns ) */ + lda = 4; /* Leading dimension of 5 * 4 matrix is 5 */ + incx = 1; + incy = 1; + alpha = 1; + beta = 0; + + a = (double *)malloc(sizeof(double)*m*n); + x = (double *)malloc(sizeof(double)*n); + y = (double *)malloc(sizeof(double)*n); + /* The elements of the first column */ + a[0] = 1; + a[1] = 2; + a[2] = 3; + a[3] = 4; + /* The elements of the second column */ + a[m] = 1; + a[m+1] = 1; + a[m+2] = 1; + a[m+3] = 1; + /* The elements of the third column */ + a[m*2] = 3; + a[m*2+1] = 4; + a[m*2+2] = 5; + a[m*2+3] = 6; + /* The elements of the fourth column */ + a[m*3] = 5; + a[m*3+1] = 6; + a[m*3+2] = 7; + a[m*3+3] = 8; + /* The elements of x and y */ + x[0] = 1; + x[1] = 2; + x[2] = 1; + x[3] = 1; + y[0] = 0; + y[1] = 0; + y[2] = 0; + y[3] = 0; + + cblas_dgemv_64( Layout, transa, m, n, alpha, a, lda, x, incx, beta, + y, incy ); + /* Print y */ + for( i = 0; i < n; i++ ) + printf(" y%" CBLAS_IFMT " = %f\n", i, y[i]); + free(a); + free(x); + free(y); + return 0; +} diff --git a/CBLAS/examples/cblas_example2_64.c b/CBLAS/examples/cblas_example2_64.c new file mode 100644 index 0000000000..f3d59a81f0 --- /dev/null +++ b/CBLAS/examples/cblas_example2_64.c @@ -0,0 +1,74 @@ +/* cblas_example2.c */ + +#include +#include +#include "cblas_64.h" +#define CBLAS_API64 +#define F77_INT int64_t +#include "cblas_f77.h" + +#define INVALID -1 + +int main (int argc, char **argv ) +{ + int64_t rout=-1,info=0,m,n,k,lda,ldb,ldc; + double A[2] = {0.0,0.0}, + B[2] = {0.0,0.0}, + C[2] = {0.0,0.0}, + ALPHA=0.0, BETA=0.0; + + if (argc > 2){ + rout = atoi(argv[1]); + info = atoi(argv[2]); + } + + if (rout == 1) { + if (info==0) { + printf("Checking if cblas_dgemm fails on parameter 4\n"); + cblas_dgemm_64( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, + ALPHA, A, 1, B, 1, BETA, C, 1 ); + } + if (info==1) { + printf("Checking if cblas_dgemm fails on parameter 5\n"); + cblas_dgemm_64( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, + ALPHA, A, 1, B, 1, BETA, C, 1 ); + } + if (info==2) { + printf("Checking if cblas_dgemm fails on parameter 9\n"); + cblas_dgemm_64( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, + ALPHA, A, 1, B, 1, BETA, C, 2 ); + } + if (info==3) { + printf("Checking if cblas_dgemm fails on parameter 11\n"); + cblas_dgemm_64( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 2, + ALPHA, A, 1, B, 1, BETA, C, 1 ); + } + } else { + if (info==0) { + printf("Checking if F77_dgemm fails on parameter 3\n"); + m=INVALID; n=0; k=0; lda=1; ldb=1; ldc=1; + F77_dgemm( "T", "N", &m, &n, &k, + &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc ); + } + if (info==1) { + m=0; n=INVALID; k=0; lda=1; ldb=1; ldc=1; + printf("Checking if F77_dgemm fails on parameter 4\n"); + F77_dgemm( "N", "T", &m, &n, &k, + &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc ); + } + if (info==2) { + printf("Checking if F77_dgemm fails on parameter 8\n"); + m=2; n=0; k=0; lda=1; ldb=1; ldc=2; + F77_dgemm( "N", "N" , &m, &n, &k, + &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc ); + } + if (info==3) { + printf("Checking if F77_dgemm fails on parameter 10\n"); + m=0; n=0; k=2; lda=1; ldb=1; ldc=1; + F77_dgemm( "N", "N" , &m, &n, &k, + &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc ); + } + } + + return 0; +} diff --git a/CBLAS/include/CMakeLists.txt b/CBLAS/include/CMakeLists.txt index 059bca0096..0fd5e586ed 100644 --- a/CBLAS/include/CMakeLists.txt +++ b/CBLAS/include/CMakeLists.txt @@ -1,4 +1,4 @@ -set(CBLAS_INCLUDE cblas.h cblas_f77.h) +set(CBLAS_INCLUDE cblas.h cblas_f77.h cblas_64.h) file(COPY ${CBLAS_INCLUDE} DESTINATION ${LAPACK_BINARY_DIR}/include) diff --git a/CBLAS/include/cblas.h b/CBLAS/include/cblas.h index 124baf17e8..171ff1d609 100644 --- a/CBLAS/include/cblas.h +++ b/CBLAS/include/cblas.h @@ -46,6 +46,19 @@ typedef enum CBLAS_SIDE {CblasLeft=141, CblasRight=142} CBLAS_SIDE; #include "cblas_mangling.h" +/* + * Integer specific API + */ +#ifndef API_SUFFIX +#ifdef CBLAS_API64 +#define API_SUFFIX(a) a##_64 +#include "cblas_64.h" +#else +#define API_SUFFIX(a) a +#endif +#endif + + /* * =========================================================================== * Prototypes for level 1 BLAS functions (complex are recast as routines) diff --git a/CBLAS/include/cblas_64.h b/CBLAS/include/cblas_64.h new file mode 100644 index 0000000000..3901ecf446 --- /dev/null +++ b/CBLAS/include/cblas_64.h @@ -0,0 +1,584 @@ +#ifndef CBLAS_64_H +#define CBLAS_64_H +#include +#include +#include + +#include "cblas.h" + +#ifdef __cplusplus +extern "C" { /* Assume C declarations for C++ */ +#endif /* __cplusplus */ + +/* + * =========================================================================== + * Prototypes for level 1 BLAS functions (complex are recast as routines) + * =========================================================================== + */ + +double cblas_dcabs1_64(const void *z); +float cblas_scabs1_64(const void *c); + +float cblas_sdsdot_64(const int64_t N, const float alpha, const float *X, + const int64_t incX, const float *Y, const int64_t incY); +double cblas_dsdot_64(const int64_t N, const float *X, const int64_t incX, const float *Y, + const int64_t incY); +float cblas_sdot_64(const int64_t N, const float *X, const int64_t incX, + const float *Y, const int64_t incY); +double cblas_ddot_64(const int64_t N, const double *X, const int64_t incX, + const double *Y, const int64_t incY); + +/* + * Functions having prefixes Z and C only + */ +void cblas_cdotu_sub_64(const int64_t N, const void *X, const int64_t incX, + const void *Y, const int64_t incY, void *dotu); +void cblas_cdotc_sub_64(const int64_t N, const void *X, const int64_t incX, + const void *Y, const int64_t incY, void *dotc); + +void cblas_zdotu_sub_64(const int64_t N, const void *X, const int64_t incX, + const void *Y, const int64_t incY, void *dotu); +void cblas_zdotc_sub_64(const int64_t N, const void *X, const int64_t incX, + const void *Y, const int64_t incY, void *dotc); + + +/* + * Functions having prefixes S D SC DZ + */ +float cblas_snrm2_64(const int64_t N, const float *X, const int64_t incX); +float cblas_sasum_64(const int64_t N, const float *X, const int64_t incX); + +double cblas_dnrm2_64(const int64_t N, const double *X, const int64_t incX); +double cblas_dasum_64(const int64_t N, const double *X, const int64_t incX); + +float cblas_scnrm2_64(const int64_t N, const void *X, const int64_t incX); +float cblas_scasum_64(const int64_t N, const void *X, const int64_t incX); + +double cblas_dznrm2_64(const int64_t N, const void *X, const int64_t incX); +double cblas_dzasum_64(const int64_t N, const void *X, const int64_t incX); + + +/* + * Functions having standard 4 prefixes (S D C Z) + */ +CBLAS_INDEX cblas_isamax_64(const int64_t N, const float *X, const int64_t incX); +CBLAS_INDEX cblas_idamax_64(const int64_t N, const double *X, const int64_t incX); +CBLAS_INDEX cblas_icamax_64(const int64_t N, const void *X, const int64_t incX); +CBLAS_INDEX cblas_izamax_64(const int64_t N, const void *X, const int64_t incX); + +/* + * =========================================================================== + * Prototypes for level 1 BLAS routines + * =========================================================================== + */ + +/* + * Routines with standard 4 prefixes (s, d, c, z) + */ +void cblas_sswap_64(const int64_t N, float *X, const int64_t incX, + float *Y, const int64_t incY); +void cblas_scopy_64(const int64_t N, const float *X, const int64_t incX, + float *Y, const int64_t incY); +void cblas_saxpy_64(const int64_t N, const float alpha, const float *X, + const int64_t incX, float *Y, const int64_t incY); + +void cblas_dswap_64(const int64_t N, double *X, const int64_t incX, + double *Y, const int64_t incY); +void cblas_dcopy_64(const int64_t N, const double *X, const int64_t incX, + double *Y, const int64_t incY); +void cblas_daxpy_64(const int64_t N, const double alpha, const double *X, + const int64_t incX, double *Y, const int64_t incY); + +void cblas_cswap_64(const int64_t N, void *X, const int64_t incX, + void *Y, const int64_t incY); +void cblas_ccopy_64(const int64_t N, const void *X, const int64_t incX, + void *Y, const int64_t incY); +void cblas_caxpy_64(const int64_t N, const void *alpha, const void *X, + const int64_t incX, void *Y, const int64_t incY); + +void cblas_zswap_64(const int64_t N, void *X, const int64_t incX, + void *Y, const int64_t incY); +void cblas_zcopy_64(const int64_t N, const void *X, const int64_t incX, + void *Y, const int64_t incY); +void cblas_zaxpy_64(const int64_t N, const void *alpha, const void *X, + const int64_t incX, void *Y, const int64_t incY); + + +/* + * Routines with S and D prefix only + */ +void cblas_srotmg_64(float *d1, float *d2, float *b1, const float b2, float *P); +void cblas_srotm_64(const int64_t N, float *X, const int64_t incX, + float *Y, const int64_t incY, const float *P); +void cblas_drotmg_64(double *d1, double *d2, double *b1, const double b2, double *P); +void cblas_drotm_64(const int64_t N, double *X, const int64_t incX, + double *Y, const int64_t incY, const double *P); + + + +/* + * Routines with S D C Z CS and ZD prefixes + */ +void cblas_sscal_64(const int64_t N, const float alpha, float *X, const int64_t incX); +void cblas_dscal_64(const int64_t N, const double alpha, double *X, const int64_t incX); +void cblas_cscal_64(const int64_t N, const void *alpha, void *X, const int64_t incX); +void cblas_zscal_64(const int64_t N, const void *alpha, void *X, const int64_t incX); +void cblas_csscal_64(const int64_t N, const float alpha, void *X, const int64_t incX); +void cblas_zdscal_64(const int64_t N, const double alpha, void *X, const int64_t incX); + +void cblas_srotg_64(float *a, float *b, float *c, float *s); +void cblas_drotg_64(double *a, double *b, double *c, double *s); +void cblas_crotg_64(void *a, void *b, float *c, void *s); +void cblas_zrotg_64(void *a, void *b, double *c, void *s); + +void cblas_srot_64(const int64_t N, float *X, const int64_t incX, + float *Y, const int64_t incY, const float c, const float s); +void cblas_drot_64(const int64_t N, double *X, const int64_t incX, + double *Y, const int64_t incY, const double c, const double s); +void cblas_csrot_64(const int64_t N, void *X, const int64_t incX, + void *Y, const int64_t incY, const float c, const float s); +void cblas_zdrot_64(const int64_t N, void *X, const int64_t incX, + void *Y, const int64_t incY, const double c, const double s); + +/* + * =========================================================================== + * Prototypes for level 2 BLAS + * =========================================================================== + */ + +/* + * Routines with standard 4 prefixes (S, D, C, Z) + */ +void cblas_sgemv_64(const CBLAS_LAYOUT layout, + const CBLAS_TRANSPOSE TransA, const int64_t M, const int64_t N, + const float alpha, const float *A, const int64_t lda, + const float *X, const int64_t incX, const float beta, + float *Y, const int64_t incY); +void cblas_sgbmv_64(CBLAS_LAYOUT layout, + CBLAS_TRANSPOSE TransA, const int64_t M, const int64_t N, + const int64_t KL, const int64_t KU, const float alpha, + const float *A, const int64_t lda, const float *X, + const int64_t incX, const float beta, float *Y, const int64_t incY); +void cblas_strmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const float *A, const int64_t lda, + float *X, const int64_t incX); +void cblas_stbmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const int64_t K, const float *A, const int64_t lda, + float *X, const int64_t incX); +void cblas_stpmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const float *Ap, float *X, const int64_t incX); +void cblas_strsv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const float *A, const int64_t lda, float *X, + const int64_t incX); +void cblas_stbsv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const int64_t K, const float *A, const int64_t lda, + float *X, const int64_t incX); +void cblas_stpsv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const float *Ap, float *X, const int64_t incX); + +void cblas_dgemv_64(CBLAS_LAYOUT layout, + CBLAS_TRANSPOSE TransA, const int64_t M, const int64_t N, + const double alpha, const double *A, const int64_t lda, + const double *X, const int64_t incX, const double beta, + double *Y, const int64_t incY); +void cblas_dgbmv_64(CBLAS_LAYOUT layout, + CBLAS_TRANSPOSE TransA, const int64_t M, const int64_t N, + const int64_t KL, const int64_t KU, const double alpha, + const double *A, const int64_t lda, const double *X, + const int64_t incX, const double beta, double *Y, const int64_t incY); +void cblas_dtrmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const double *A, const int64_t lda, + double *X, const int64_t incX); +void cblas_dtbmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const int64_t K, const double *A, const int64_t lda, + double *X, const int64_t incX); +void cblas_dtpmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const double *Ap, double *X, const int64_t incX); +void cblas_dtrsv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const double *A, const int64_t lda, double *X, + const int64_t incX); +void cblas_dtbsv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const int64_t K, const double *A, const int64_t lda, + double *X, const int64_t incX); +void cblas_dtpsv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const double *Ap, double *X, const int64_t incX); + +void cblas_cgemv_64(CBLAS_LAYOUT layout, + CBLAS_TRANSPOSE TransA, const int64_t M, const int64_t N, + const void *alpha, const void *A, const int64_t lda, + const void *X, const int64_t incX, const void *beta, + void *Y, const int64_t incY); +void cblas_cgbmv_64(CBLAS_LAYOUT layout, + CBLAS_TRANSPOSE TransA, const int64_t M, const int64_t N, + const int64_t KL, const int64_t KU, const void *alpha, + const void *A, const int64_t lda, const void *X, + const int64_t incX, const void *beta, void *Y, const int64_t incY); +void cblas_ctrmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const void *A, const int64_t lda, + void *X, const int64_t incX); +void cblas_ctbmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const int64_t K, const void *A, const int64_t lda, + void *X, const int64_t incX); +void cblas_ctpmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const void *Ap, void *X, const int64_t incX); +void cblas_ctrsv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const void *A, const int64_t lda, void *X, + const int64_t incX); +void cblas_ctbsv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const int64_t K, const void *A, const int64_t lda, + void *X, const int64_t incX); +void cblas_ctpsv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const void *Ap, void *X, const int64_t incX); + +void cblas_zgemv_64(CBLAS_LAYOUT layout, + CBLAS_TRANSPOSE TransA, const int64_t M, const int64_t N, + const void *alpha, const void *A, const int64_t lda, + const void *X, const int64_t incX, const void *beta, + void *Y, const int64_t incY); +void cblas_zgbmv_64(CBLAS_LAYOUT layout, + CBLAS_TRANSPOSE TransA, const int64_t M, const int64_t N, + const int64_t KL, const int64_t KU, const void *alpha, + const void *A, const int64_t lda, const void *X, + const int64_t incX, const void *beta, void *Y, const int64_t incY); +void cblas_ztrmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const void *A, const int64_t lda, + void *X, const int64_t incX); +void cblas_ztbmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const int64_t K, const void *A, const int64_t lda, + void *X, const int64_t incX); +void cblas_ztpmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const void *Ap, void *X, const int64_t incX); +void cblas_ztrsv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const void *A, const int64_t lda, void *X, + const int64_t incX); +void cblas_ztbsv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const int64_t K, const void *A, const int64_t lda, + void *X, const int64_t incX); +void cblas_ztpsv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, + const int64_t N, const void *Ap, void *X, const int64_t incX); + + +/* + * Routines with S and D prefixes only + */ +void cblas_ssymv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const float alpha, const float *A, + const int64_t lda, const float *X, const int64_t incX, + const float beta, float *Y, const int64_t incY); +void cblas_ssbmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const int64_t K, const float alpha, const float *A, + const int64_t lda, const float *X, const int64_t incX, + const float beta, float *Y, const int64_t incY); +void cblas_sspmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const float alpha, const float *Ap, + const float *X, const int64_t incX, + const float beta, float *Y, const int64_t incY); +void cblas_sger_64(CBLAS_LAYOUT layout, const int64_t M, const int64_t N, + const float alpha, const float *X, const int64_t incX, + const float *Y, const int64_t incY, float *A, const int64_t lda); +void cblas_ssyr_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const float alpha, const float *X, + const int64_t incX, float *A, const int64_t lda); +void cblas_sspr_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const float alpha, const float *X, + const int64_t incX, float *Ap); +void cblas_ssyr2_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const float alpha, const float *X, + const int64_t incX, const float *Y, const int64_t incY, float *A, + const int64_t lda); +void cblas_sspr2_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const float alpha, const float *X, + const int64_t incX, const float *Y, const int64_t incY, float *A); + +void cblas_dsymv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const double alpha, const double *A, + const int64_t lda, const double *X, const int64_t incX, + const double beta, double *Y, const int64_t incY); +void cblas_dsbmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const int64_t K, const double alpha, const double *A, + const int64_t lda, const double *X, const int64_t incX, + const double beta, double *Y, const int64_t incY); +void cblas_dspmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const double alpha, const double *Ap, + const double *X, const int64_t incX, + const double beta, double *Y, const int64_t incY); +void cblas_dger_64(CBLAS_LAYOUT layout, const int64_t M, const int64_t N, + const double alpha, const double *X, const int64_t incX, + const double *Y, const int64_t incY, double *A, const int64_t lda); +void cblas_dsyr_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const double alpha, const double *X, + const int64_t incX, double *A, const int64_t lda); +void cblas_dspr_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const double alpha, const double *X, + const int64_t incX, double *Ap); +void cblas_dsyr2_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const double alpha, const double *X, + const int64_t incX, const double *Y, const int64_t incY, double *A, + const int64_t lda); +void cblas_dspr2_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const double alpha, const double *X, + const int64_t incX, const double *Y, const int64_t incY, double *A); + + +/* + * Routines with C and Z prefixes only + */ +void cblas_chemv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const void *alpha, const void *A, + const int64_t lda, const void *X, const int64_t incX, + const void *beta, void *Y, const int64_t incY); +void cblas_chbmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const int64_t K, const void *alpha, const void *A, + const int64_t lda, const void *X, const int64_t incX, + const void *beta, void *Y, const int64_t incY); +void cblas_chpmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const void *alpha, const void *Ap, + const void *X, const int64_t incX, + const void *beta, void *Y, const int64_t incY); +void cblas_cgeru_64(CBLAS_LAYOUT layout, const int64_t M, const int64_t N, + const void *alpha, const void *X, const int64_t incX, + const void *Y, const int64_t incY, void *A, const int64_t lda); +void cblas_cgerc_64(CBLAS_LAYOUT layout, const int64_t M, const int64_t N, + const void *alpha, const void *X, const int64_t incX, + const void *Y, const int64_t incY, void *A, const int64_t lda); +void cblas_cher_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const float alpha, const void *X, const int64_t incX, + void *A, const int64_t lda); +void cblas_chpr_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const float alpha, const void *X, + const int64_t incX, void *A); +void cblas_cher2_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const int64_t N, + const void *alpha, const void *X, const int64_t incX, + const void *Y, const int64_t incY, void *A, const int64_t lda); +void cblas_chpr2_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const int64_t N, + const void *alpha, const void *X, const int64_t incX, + const void *Y, const int64_t incY, void *Ap); + +void cblas_zhemv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const void *alpha, const void *A, + const int64_t lda, const void *X, const int64_t incX, + const void *beta, void *Y, const int64_t incY); +void cblas_zhbmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const int64_t K, const void *alpha, const void *A, + const int64_t lda, const void *X, const int64_t incX, + const void *beta, void *Y, const int64_t incY); +void cblas_zhpmv_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const void *alpha, const void *Ap, + const void *X, const int64_t incX, + const void *beta, void *Y, const int64_t incY); +void cblas_zgeru_64(CBLAS_LAYOUT layout, const int64_t M, const int64_t N, + const void *alpha, const void *X, const int64_t incX, + const void *Y, const int64_t incY, void *A, const int64_t lda); +void cblas_zgerc_64(CBLAS_LAYOUT layout, const int64_t M, const int64_t N, + const void *alpha, const void *X, const int64_t incX, + const void *Y, const int64_t incY, void *A, const int64_t lda); +void cblas_zher_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const double alpha, const void *X, const int64_t incX, + void *A, const int64_t lda); +void cblas_zhpr_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + const int64_t N, const double alpha, const void *X, + const int64_t incX, void *A); +void cblas_zher2_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const int64_t N, + const void *alpha, const void *X, const int64_t incX, + const void *Y, const int64_t incY, void *A, const int64_t lda); +void cblas_zhpr2_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const int64_t N, + const void *alpha, const void *X, const int64_t incX, + const void *Y, const int64_t incY, void *Ap); + +/* + * =========================================================================== + * Prototypes for level 3 BLAS + * =========================================================================== + */ + +/* + * Routines with standard 4 prefixes (S, D, C, Z) + */ +void cblas_sgemm_64(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, + CBLAS_TRANSPOSE TransB, const int64_t M, const int64_t N, + const int64_t K, const float alpha, const float *A, + const int64_t lda, const float *B, const int64_t ldb, + const float beta, float *C, const int64_t ldc); +void cblas_ssymm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, const int64_t M, const int64_t N, + const float alpha, const float *A, const int64_t lda, + const float *B, const int64_t ldb, const float beta, + float *C, const int64_t ldc); +void cblas_ssyrk_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE Trans, const int64_t N, const int64_t K, + const float alpha, const float *A, const int64_t lda, + const float beta, float *C, const int64_t ldc); +void cblas_ssyr2k_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE Trans, const int64_t N, const int64_t K, + const float alpha, const float *A, const int64_t lda, + const float *B, const int64_t ldb, const float beta, + float *C, const int64_t ldc); +void cblas_strmm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, + CBLAS_DIAG Diag, const int64_t M, const int64_t N, + const float alpha, const float *A, const int64_t lda, + float *B, const int64_t ldb); +void cblas_strsm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, + CBLAS_DIAG Diag, const int64_t M, const int64_t N, + const float alpha, const float *A, const int64_t lda, + float *B, const int64_t ldb); + +void cblas_dgemm_64(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, + CBLAS_TRANSPOSE TransB, const int64_t M, const int64_t N, + const int64_t K, const double alpha, const double *A, + const int64_t lda, const double *B, const int64_t ldb, + const double beta, double *C, const int64_t ldc); +void cblas_dsymm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, const int64_t M, const int64_t N, + const double alpha, const double *A, const int64_t lda, + const double *B, const int64_t ldb, const double beta, + double *C, const int64_t ldc); +void cblas_dsyrk_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE Trans, const int64_t N, const int64_t K, + const double alpha, const double *A, const int64_t lda, + const double beta, double *C, const int64_t ldc); +void cblas_dsyr2k_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE Trans, const int64_t N, const int64_t K, + const double alpha, const double *A, const int64_t lda, + const double *B, const int64_t ldb, const double beta, + double *C, const int64_t ldc); +void cblas_dtrmm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, + CBLAS_DIAG Diag, const int64_t M, const int64_t N, + const double alpha, const double *A, const int64_t lda, + double *B, const int64_t ldb); +void cblas_dtrsm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, + CBLAS_DIAG Diag, const int64_t M, const int64_t N, + const double alpha, const double *A, const int64_t lda, + double *B, const int64_t ldb); + +void cblas_cgemm_64(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, + CBLAS_TRANSPOSE TransB, const int64_t M, const int64_t N, + const int64_t K, const void *alpha, const void *A, + const int64_t lda, const void *B, const int64_t ldb, + const void *beta, void *C, const int64_t ldc); +void cblas_csymm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, const int64_t M, const int64_t N, + const void *alpha, const void *A, const int64_t lda, + const void *B, const int64_t ldb, const void *beta, + void *C, const int64_t ldc); +void cblas_csyrk_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE Trans, const int64_t N, const int64_t K, + const void *alpha, const void *A, const int64_t lda, + const void *beta, void *C, const int64_t ldc); +void cblas_csyr2k_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE Trans, const int64_t N, const int64_t K, + const void *alpha, const void *A, const int64_t lda, + const void *B, const int64_t ldb, const void *beta, + void *C, const int64_t ldc); +void cblas_ctrmm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, + CBLAS_DIAG Diag, const int64_t M, const int64_t N, + const void *alpha, const void *A, const int64_t lda, + void *B, const int64_t ldb); +void cblas_ctrsm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, + CBLAS_DIAG Diag, const int64_t M, const int64_t N, + const void *alpha, const void *A, const int64_t lda, + void *B, const int64_t ldb); + +void cblas_zgemm_64(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, + CBLAS_TRANSPOSE TransB, const int64_t M, const int64_t N, + const int64_t K, const void *alpha, const void *A, + const int64_t lda, const void *B, const int64_t ldb, + const void *beta, void *C, const int64_t ldc); +void cblas_zsymm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, const int64_t M, const int64_t N, + const void *alpha, const void *A, const int64_t lda, + const void *B, const int64_t ldb, const void *beta, + void *C, const int64_t ldc); +void cblas_zsyrk_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE Trans, const int64_t N, const int64_t K, + const void *alpha, const void *A, const int64_t lda, + const void *beta, void *C, const int64_t ldc); +void cblas_zsyr2k_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE Trans, const int64_t N, const int64_t K, + const void *alpha, const void *A, const int64_t lda, + const void *B, const int64_t ldb, const void *beta, + void *C, const int64_t ldc); +void cblas_ztrmm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, + CBLAS_DIAG Diag, const int64_t M, const int64_t N, + const void *alpha, const void *A, const int64_t lda, + void *B, const int64_t ldb); +void cblas_ztrsm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, + CBLAS_DIAG Diag, const int64_t M, const int64_t N, + const void *alpha, const void *A, const int64_t lda, + void *B, const int64_t ldb); + + +/* + * Routines with prefixes C and Z only + */ +void cblas_chemm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, const int64_t M, const int64_t N, + const void *alpha, const void *A, const int64_t lda, + const void *B, const int64_t ldb, const void *beta, + void *C, const int64_t ldc); +void cblas_cherk_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE Trans, const int64_t N, const int64_t K, + const float alpha, const void *A, const int64_t lda, + const float beta, void *C, const int64_t ldc); +void cblas_cher2k_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE Trans, const int64_t N, const int64_t K, + const void *alpha, const void *A, const int64_t lda, + const void *B, const int64_t ldb, const float beta, + void *C, const int64_t ldc); + +void cblas_zhemm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side, + CBLAS_UPLO Uplo, const int64_t M, const int64_t N, + const void *alpha, const void *A, const int64_t lda, + const void *B, const int64_t ldb, const void *beta, + void *C, const int64_t ldc); +void cblas_zherk_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE Trans, const int64_t N, const int64_t K, + const double alpha, const void *A, const int64_t lda, + const double beta, void *C, const int64_t ldc); +void cblas_zher2k_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, + CBLAS_TRANSPOSE Trans, const int64_t N, const int64_t K, + const void *alpha, const void *A, const int64_t lda, + const void *B, const int64_t ldb, const double beta, + void *C, const int64_t ldc); + +void +#ifdef HAS_ATTRIBUTE_WEAK_SUPPORT +__attribute__((weak)) +#endif +cblas_xerbla_64(int64_t p, const char *rout, const char *form, ...); + +#ifdef __cplusplus +} +#endif +#endif diff --git a/CBLAS/include/cblas_f77.h b/CBLAS/include/cblas_f77.h index 9e8fbb6da7..b9a1172e29 100644 --- a/CBLAS/include/cblas_f77.h +++ b/CBLAS/include/cblas_f77.h @@ -42,166 +42,180 @@ #define FINT const F77_INT * #define FINT2 F77_INT * +/* + * Integer specific API + */ +#ifndef API_SUFFIX +#ifdef CBLAS_API64 +#define API_SUFFIX(a) a##_64 +#else +#define API_SUFFIX(a) a +#endif +#endif + +#define F77_GLOBAL_SUFFIX(a,b) F77_GLOBAL_SUFFIX_(API_SUFFIX(a),API_SUFFIX(b)) +#define F77_GLOBAL_SUFFIX_(a,b) F77_GLOBAL(a,b) + /* * Level 1 BLAS */ -#define F77_xerbla_base F77_GLOBAL(xerbla,XERBLA) -#define F77_srotg_base F77_GLOBAL(srotg,SROTG) -#define F77_srotmg_base F77_GLOBAL(srotmg,SROTMG) -#define F77_srot_base F77_GLOBAL(srot,SROT) -#define F77_srotm_base F77_GLOBAL(srotm,SROTM) -#define F77_drotg_base F77_GLOBAL(drotg,DROTG) -#define F77_drotmg_base F77_GLOBAL(drotmg,DROTMG) -#define F77_drot_base F77_GLOBAL(drot,DROT) -#define F77_drotm_base F77_GLOBAL(drotm,DROTM) -#define F77_sswap_base F77_GLOBAL(sswap,SSWAP) -#define F77_scopy_base F77_GLOBAL(scopy,SCOPY) -#define F77_saxpy_base F77_GLOBAL(saxpy,SAXPY) -#define F77_isamax_sub_base F77_GLOBAL(isamaxsub,ISAMAXSUB) -#define F77_dswap_base F77_GLOBAL(dswap,DSWAP) -#define F77_dcopy_base F77_GLOBAL(dcopy,DCOPY) -#define F77_daxpy_base F77_GLOBAL(daxpy,DAXPY) -#define F77_idamax_sub_base F77_GLOBAL(idamaxsub,IDAMAXSUB) -#define F77_cswap_base F77_GLOBAL(cswap,CSWAP) -#define F77_ccopy_base F77_GLOBAL(ccopy,CCOPY) -#define F77_caxpy_base F77_GLOBAL(caxpy,CAXPY) -#define F77_icamax_sub_base F77_GLOBAL(icamaxsub,ICAMAXSUB) -#define F77_zswap_base F77_GLOBAL(zswap,ZSWAP) -#define F77_zcopy_base F77_GLOBAL(zcopy,ZCOPY) -#define F77_zaxpy_base F77_GLOBAL(zaxpy,ZAXPY) -#define F77_izamax_sub_base F77_GLOBAL(izamaxsub,IZAMAXSUB) -#define F77_sdot_sub_base F77_GLOBAL(sdotsub,SDOTSUB) -#define F77_ddot_sub_base F77_GLOBAL(ddotsub,DDOTSUB) -#define F77_dsdot_sub_base F77_GLOBAL(dsdotsub,DSDOTSUB) -#define F77_sscal_base F77_GLOBAL(sscal,SSCAL) -#define F77_dscal_base F77_GLOBAL(dscal,DSCAL) -#define F77_cscal_base F77_GLOBAL(cscal,CSCAL) -#define F77_zscal_base F77_GLOBAL(zscal,ZSCAL) -#define F77_csscal_base F77_GLOBAL(csscal,CSSCAL) -#define F77_zdscal_base F77_GLOBAL(zdscal,ZDSCAL) -#define F77_cdotu_sub_base F77_GLOBAL(cdotusub,CDOTUSUB) -#define F77_cdotc_sub_base F77_GLOBAL(cdotcsub,CDOTCSUB) -#define F77_zdotu_sub_base F77_GLOBAL(zdotusub,ZDOTUSUB) -#define F77_zdotc_sub_base F77_GLOBAL(zdotcsub,ZDOTCSUB) -#define F77_snrm2_sub_base F77_GLOBAL(snrm2sub,SNRM2SUB) -#define F77_sasum_sub_base F77_GLOBAL(sasumsub,SASUMSUB) -#define F77_dnrm2_sub_base F77_GLOBAL(dnrm2sub,DNRM2SUB) -#define F77_dasum_sub_base F77_GLOBAL(dasumsub,DASUMSUB) -#define F77_scnrm2_sub_base F77_GLOBAL(scnrm2sub,SCNRM2SUB) -#define F77_scasum_sub_base F77_GLOBAL(scasumsub,SCASUMSUB) -#define F77_dznrm2_sub_base F77_GLOBAL(dznrm2sub,DZNRM2SUB) -#define F77_dzasum_sub_base F77_GLOBAL(dzasumsub,DZASUMSUB) -#define F77_sdsdot_sub_base F77_GLOBAL(sdsdotsub,SDSDOTSUB) -#define F77_crotg_base F77_GLOBAL(crotg, CROTG) -#define F77_csrot_base F77_GLOBAL(csrot, CSROT) -#define F77_zrotg_base F77_GLOBAL(zrotg, ZROTG) -#define F77_zdrot_base F77_GLOBAL(zdrot, ZDROT) -#define F77_scabs1_sub_base F77_GLOBAL(scabs1sub, SCABS1SUB) -#define F77_dcabs1_sub_base F77_GLOBAL(dcabs1sub, DCABS1SUB) +#define F77_xerbla_base F77_GLOBAL_SUFFIX(xerbla,XERBLA) +#define F77_srotg_base F77_GLOBAL_SUFFIX(srotg,SROTG) +#define F77_srotmg_base F77_GLOBAL_SUFFIX(srotmg,SROTMG) +#define F77_srot_base F77_GLOBAL_SUFFIX(srot,SROT) +#define F77_srotm_base F77_GLOBAL_SUFFIX(srotm,SROTM) +#define F77_drotg_base F77_GLOBAL_SUFFIX(drotg,DROTG) +#define F77_drotmg_base F77_GLOBAL_SUFFIX(drotmg,DROTMG) +#define F77_drot_base F77_GLOBAL_SUFFIX(drot,DROT) +#define F77_drotm_base F77_GLOBAL_SUFFIX(drotm,DROTM) +#define F77_sswap_base F77_GLOBAL_SUFFIX(sswap,SSWAP) +#define F77_scopy_base F77_GLOBAL_SUFFIX(scopy,SCOPY) +#define F77_saxpy_base F77_GLOBAL_SUFFIX(saxpy,SAXPY) +#define F77_isamax_sub_base F77_GLOBAL_SUFFIX(isamaxsub,ISAMAXSUB) +#define F77_dswap_base F77_GLOBAL_SUFFIX(dswap,DSWAP) +#define F77_dcopy_base F77_GLOBAL_SUFFIX(dcopy,DCOPY) +#define F77_daxpy_base F77_GLOBAL_SUFFIX(daxpy,DAXPY) +#define F77_idamax_sub_base F77_GLOBAL_SUFFIX(idamaxsub,IDAMAXSUB) +#define F77_cswap_base F77_GLOBAL_SUFFIX(cswap,CSWAP) +#define F77_ccopy_base F77_GLOBAL_SUFFIX(ccopy,CCOPY) +#define F77_caxpy_base F77_GLOBAL_SUFFIX(caxpy,CAXPY) +#define F77_icamax_sub_base F77_GLOBAL_SUFFIX(icamaxsub,ICAMAXSUB) +#define F77_zswap_base F77_GLOBAL_SUFFIX(zswap,ZSWAP) +#define F77_zcopy_base F77_GLOBAL_SUFFIX(zcopy,ZCOPY) +#define F77_zaxpy_base F77_GLOBAL_SUFFIX(zaxpy,ZAXPY) +#define F77_izamax_sub_base F77_GLOBAL_SUFFIX(izamaxsub,IZAMAXSUB) +#define F77_sdot_sub_base F77_GLOBAL_SUFFIX(sdotsub,SDOTSUB) +#define F77_ddot_sub_base F77_GLOBAL_SUFFIX(ddotsub,DDOTSUB) +#define F77_dsdot_sub_base F77_GLOBAL_SUFFIX(dsdotsub,DSDOTSUB) +#define F77_sscal_base F77_GLOBAL_SUFFIX(sscal,SSCAL) +#define F77_dscal_base F77_GLOBAL_SUFFIX(dscal,DSCAL) +#define F77_cscal_base F77_GLOBAL_SUFFIX(cscal,CSCAL) +#define F77_zscal_base F77_GLOBAL_SUFFIX(zscal,ZSCAL) +#define F77_csscal_base F77_GLOBAL_SUFFIX(csscal,CSSCAL) +#define F77_zdscal_base F77_GLOBAL_SUFFIX(zdscal,ZDSCAL) +#define F77_cdotu_sub_base F77_GLOBAL_SUFFIX(cdotusub,CDOTUSUB) +#define F77_cdotc_sub_base F77_GLOBAL_SUFFIX(cdotcsub,CDOTCSUB) +#define F77_zdotu_sub_base F77_GLOBAL_SUFFIX(zdotusub,ZDOTUSUB) +#define F77_zdotc_sub_base F77_GLOBAL_SUFFIX(zdotcsub,ZDOTCSUB) +#define F77_snrm2_sub_base F77_GLOBAL_SUFFIX(snrm2sub,SNRM2SUB) +#define F77_sasum_sub_base F77_GLOBAL_SUFFIX(sasumsub,SASUMSUB) +#define F77_dnrm2_sub_base F77_GLOBAL_SUFFIX(dnrm2sub,DNRM2SUB) +#define F77_dasum_sub_base F77_GLOBAL_SUFFIX(dasumsub,DASUMSUB) +#define F77_scnrm2_sub_base F77_GLOBAL_SUFFIX(scnrm2sub,SCNRM2SUB) +#define F77_scasum_sub_base F77_GLOBAL_SUFFIX(scasumsub,SCASUMSUB) +#define F77_dznrm2_sub_base F77_GLOBAL_SUFFIX(dznrm2sub,DZNRM2SUB) +#define F77_dzasum_sub_base F77_GLOBAL_SUFFIX(dzasumsub,DZASUMSUB) +#define F77_sdsdot_sub_base F77_GLOBAL_SUFFIX(sdsdotsub,SDSDOTSUB) +#define F77_crotg_base F77_GLOBAL_SUFFIX(crotg, CROTG) +#define F77_csrot_base F77_GLOBAL_SUFFIX(csrot, CSROT) +#define F77_zrotg_base F77_GLOBAL_SUFFIX(zrotg, ZROTG) +#define F77_zdrot_base F77_GLOBAL_SUFFIX(zdrot, ZDROT) +#define F77_scabs1_sub_base F77_GLOBAL_SUFFIX(scabs1sub, SCABS1SUB) +#define F77_dcabs1_sub_base F77_GLOBAL_SUFFIX(dcabs1sub, DCABS1SUB) /* * Level 2 BLAS */ -#define F77_ssymv_base F77_GLOBAL(ssymv,SSYMV) -#define F77_ssbmv_base F77_GLOBAL(ssbmv,SSBMV) -#define F77_sspmv_base F77_GLOBAL(sspmv,SSPMV) -#define F77_sger_base F77_GLOBAL(sger,SGER) -#define F77_ssyr_base F77_GLOBAL(ssyr,SSYR) -#define F77_sspr_base F77_GLOBAL(sspr,SSPR) -#define F77_ssyr2_base F77_GLOBAL(ssyr2,SSYR2) -#define F77_sspr2_base F77_GLOBAL(sspr2,SSPR2) -#define F77_dsymv_base F77_GLOBAL(dsymv,DSYMV) -#define F77_dsbmv_base F77_GLOBAL(dsbmv,DSBMV) -#define F77_dspmv_base F77_GLOBAL(dspmv,DSPMV) -#define F77_dger_base F77_GLOBAL(dger,DGER) -#define F77_dsyr_base F77_GLOBAL(dsyr,DSYR) -#define F77_dspr_base F77_GLOBAL(dspr,DSPR) -#define F77_dsyr2_base F77_GLOBAL(dsyr2,DSYR2) -#define F77_dspr2_base F77_GLOBAL(dspr2,DSPR2) -#define F77_chemv_base F77_GLOBAL(chemv,CHEMV) -#define F77_chbmv_base F77_GLOBAL(chbmv,CHBMV) -#define F77_chpmv_base F77_GLOBAL(chpmv,CHPMV) -#define F77_cgeru_base F77_GLOBAL(cgeru,CGERU) -#define F77_cgerc_base F77_GLOBAL(cgerc,CGERC) -#define F77_cher_base F77_GLOBAL(cher,CHER) -#define F77_chpr_base F77_GLOBAL(chpr,CHPR) -#define F77_cher2_base F77_GLOBAL(cher2,CHER2) -#define F77_chpr2_base F77_GLOBAL(chpr2,CHPR2) -#define F77_zhemv_base F77_GLOBAL(zhemv,ZHEMV) -#define F77_zhbmv_base F77_GLOBAL(zhbmv,ZHBMV) -#define F77_zhpmv_base F77_GLOBAL(zhpmv,ZHPMV) -#define F77_zgeru_base F77_GLOBAL(zgeru,ZGERU) -#define F77_zgerc_base F77_GLOBAL(zgerc,ZGERC) -#define F77_zher_base F77_GLOBAL(zher,ZHER) -#define F77_zhpr_base F77_GLOBAL(zhpr,ZHPR) -#define F77_zher2_base F77_GLOBAL(zher2,ZHER2) -#define F77_zhpr2_base F77_GLOBAL(zhpr2,ZHPR2) -#define F77_sgemv_base F77_GLOBAL(sgemv,SGEMV) -#define F77_sgbmv_base F77_GLOBAL(sgbmv,SGBMV) -#define F77_strmv_base F77_GLOBAL(strmv,STRMV) -#define F77_stbmv_base F77_GLOBAL(stbmv,STBMV) -#define F77_stpmv_base F77_GLOBAL(stpmv,STPMV) -#define F77_strsv_base F77_GLOBAL(strsv,STRSV) -#define F77_stbsv_base F77_GLOBAL(stbsv,STBSV) -#define F77_stpsv_base F77_GLOBAL(stpsv,STPSV) -#define F77_dgemv_base F77_GLOBAL(dgemv,DGEMV) -#define F77_dgbmv_base F77_GLOBAL(dgbmv,DGBMV) -#define F77_dtrmv_base F77_GLOBAL(dtrmv,DTRMV) -#define F77_dtbmv_base F77_GLOBAL(dtbmv,DTBMV) -#define F77_dtpmv_base F77_GLOBAL(dtpmv,DTPMV) -#define F77_dtrsv_base F77_GLOBAL(dtrsv,DTRSV) -#define F77_dtbsv_base F77_GLOBAL(dtbsv,DTBSV) -#define F77_dtpsv_base F77_GLOBAL(dtpsv,DTPSV) -#define F77_cgemv_base F77_GLOBAL(cgemv,CGEMV) -#define F77_cgbmv_base F77_GLOBAL(cgbmv,CGBMV) -#define F77_ctrmv_base F77_GLOBAL(ctrmv,CTRMV) -#define F77_ctbmv_base F77_GLOBAL(ctbmv,CTBMV) -#define F77_ctpmv_base F77_GLOBAL(ctpmv,CTPMV) -#define F77_ctrsv_base F77_GLOBAL(ctrsv,CTRSV) -#define F77_ctbsv_base F77_GLOBAL(ctbsv,CTBSV) -#define F77_ctpsv_base F77_GLOBAL(ctpsv,CTPSV) -#define F77_zgemv_base F77_GLOBAL(zgemv,ZGEMV) -#define F77_zgbmv_base F77_GLOBAL(zgbmv,ZGBMV) -#define F77_ztrmv_base F77_GLOBAL(ztrmv,ZTRMV) -#define F77_ztbmv_base F77_GLOBAL(ztbmv,ZTBMV) -#define F77_ztpmv_base F77_GLOBAL(ztpmv,ZTPMV) -#define F77_ztrsv_base F77_GLOBAL(ztrsv,ZTRSV) -#define F77_ztbsv_base F77_GLOBAL(ztbsv,ZTBSV) -#define F77_ztpsv_base F77_GLOBAL(ztpsv,ZTPSV) +#define F77_ssymv_base F77_GLOBAL_SUFFIX(ssymv,SSYMV) +#define F77_ssbmv_base F77_GLOBAL_SUFFIX(ssbmv,SSBMV) +#define F77_sspmv_base F77_GLOBAL_SUFFIX(sspmv,SSPMV) +#define F77_sger_base F77_GLOBAL_SUFFIX(sger,SGER) +#define F77_ssyr_base F77_GLOBAL_SUFFIX(ssyr,SSYR) +#define F77_sspr_base F77_GLOBAL_SUFFIX(sspr,SSPR) +#define F77_ssyr2_base F77_GLOBAL_SUFFIX(ssyr2,SSYR2) +#define F77_sspr2_base F77_GLOBAL_SUFFIX(sspr2,SSPR2) +#define F77_dsymv_base F77_GLOBAL_SUFFIX(dsymv,DSYMV) +#define F77_dsbmv_base F77_GLOBAL_SUFFIX(dsbmv,DSBMV) +#define F77_dspmv_base F77_GLOBAL_SUFFIX(dspmv,DSPMV) +#define F77_dger_base F77_GLOBAL_SUFFIX(dger,DGER) +#define F77_dsyr_base F77_GLOBAL_SUFFIX(dsyr,DSYR) +#define F77_dspr_base F77_GLOBAL_SUFFIX(dspr,DSPR) +#define F77_dsyr2_base F77_GLOBAL_SUFFIX(dsyr2,DSYR2) +#define F77_dspr2_base F77_GLOBAL_SUFFIX(dspr2,DSPR2) +#define F77_chemv_base F77_GLOBAL_SUFFIX(chemv,CHEMV) +#define F77_chbmv_base F77_GLOBAL_SUFFIX(chbmv,CHBMV) +#define F77_chpmv_base F77_GLOBAL_SUFFIX(chpmv,CHPMV) +#define F77_cgeru_base F77_GLOBAL_SUFFIX(cgeru,CGERU) +#define F77_cgerc_base F77_GLOBAL_SUFFIX(cgerc,CGERC) +#define F77_cher_base F77_GLOBAL_SUFFIX(cher,CHER) +#define F77_chpr_base F77_GLOBAL_SUFFIX(chpr,CHPR) +#define F77_cher2_base F77_GLOBAL_SUFFIX(cher2,CHER2) +#define F77_chpr2_base F77_GLOBAL_SUFFIX(chpr2,CHPR2) +#define F77_zhemv_base F77_GLOBAL_SUFFIX(zhemv,ZHEMV) +#define F77_zhbmv_base F77_GLOBAL_SUFFIX(zhbmv,ZHBMV) +#define F77_zhpmv_base F77_GLOBAL_SUFFIX(zhpmv,ZHPMV) +#define F77_zgeru_base F77_GLOBAL_SUFFIX(zgeru,ZGERU) +#define F77_zgerc_base F77_GLOBAL_SUFFIX(zgerc,ZGERC) +#define F77_zher_base F77_GLOBAL_SUFFIX(zher,ZHER) +#define F77_zhpr_base F77_GLOBAL_SUFFIX(zhpr,ZHPR) +#define F77_zher2_base F77_GLOBAL_SUFFIX(zher2,ZHER2) +#define F77_zhpr2_base F77_GLOBAL_SUFFIX(zhpr2,ZHPR2) +#define F77_sgemv_base F77_GLOBAL_SUFFIX(sgemv,SGEMV) +#define F77_sgbmv_base F77_GLOBAL_SUFFIX(sgbmv,SGBMV) +#define F77_strmv_base F77_GLOBAL_SUFFIX(strmv,STRMV) +#define F77_stbmv_base F77_GLOBAL_SUFFIX(stbmv,STBMV) +#define F77_stpmv_base F77_GLOBAL_SUFFIX(stpmv,STPMV) +#define F77_strsv_base F77_GLOBAL_SUFFIX(strsv,STRSV) +#define F77_stbsv_base F77_GLOBAL_SUFFIX(stbsv,STBSV) +#define F77_stpsv_base F77_GLOBAL_SUFFIX(stpsv,STPSV) +#define F77_dgemv_base F77_GLOBAL_SUFFIX(dgemv,DGEMV) +#define F77_dgbmv_base F77_GLOBAL_SUFFIX(dgbmv,DGBMV) +#define F77_dtrmv_base F77_GLOBAL_SUFFIX(dtrmv,DTRMV) +#define F77_dtbmv_base F77_GLOBAL_SUFFIX(dtbmv,DTBMV) +#define F77_dtpmv_base F77_GLOBAL_SUFFIX(dtpmv,DTPMV) +#define F77_dtrsv_base F77_GLOBAL_SUFFIX(dtrsv,DTRSV) +#define F77_dtbsv_base F77_GLOBAL_SUFFIX(dtbsv,DTBSV) +#define F77_dtpsv_base F77_GLOBAL_SUFFIX(dtpsv,DTPSV) +#define F77_cgemv_base F77_GLOBAL_SUFFIX(cgemv,CGEMV) +#define F77_cgbmv_base F77_GLOBAL_SUFFIX(cgbmv,CGBMV) +#define F77_ctrmv_base F77_GLOBAL_SUFFIX(ctrmv,CTRMV) +#define F77_ctbmv_base F77_GLOBAL_SUFFIX(ctbmv,CTBMV) +#define F77_ctpmv_base F77_GLOBAL_SUFFIX(ctpmv,CTPMV) +#define F77_ctrsv_base F77_GLOBAL_SUFFIX(ctrsv,CTRSV) +#define F77_ctbsv_base F77_GLOBAL_SUFFIX(ctbsv,CTBSV) +#define F77_ctpsv_base F77_GLOBAL_SUFFIX(ctpsv,CTPSV) +#define F77_zgemv_base F77_GLOBAL_SUFFIX(zgemv,ZGEMV) +#define F77_zgbmv_base F77_GLOBAL_SUFFIX(zgbmv,ZGBMV) +#define F77_ztrmv_base F77_GLOBAL_SUFFIX(ztrmv,ZTRMV) +#define F77_ztbmv_base F77_GLOBAL_SUFFIX(ztbmv,ZTBMV) +#define F77_ztpmv_base F77_GLOBAL_SUFFIX(ztpmv,ZTPMV) +#define F77_ztrsv_base F77_GLOBAL_SUFFIX(ztrsv,ZTRSV) +#define F77_ztbsv_base F77_GLOBAL_SUFFIX(ztbsv,ZTBSV) +#define F77_ztpsv_base F77_GLOBAL_SUFFIX(ztpsv,ZTPSV) /* * Level 3 BLAS */ -#define F77_chemm_base F77_GLOBAL(chemm,CHEMM) -#define F77_cherk_base F77_GLOBAL(cherk,CHERK) -#define F77_cher2k_base F77_GLOBAL(cher2k,CHER2K) -#define F77_zhemm_base F77_GLOBAL(zhemm,ZHEMM) -#define F77_zherk_base F77_GLOBAL(zherk,ZHERK) -#define F77_zher2k_base F77_GLOBAL(zher2k,ZHER2K) -#define F77_sgemm_base F77_GLOBAL(sgemm,SGEMM) -#define F77_ssymm_base F77_GLOBAL(ssymm,SSYMM) -#define F77_ssyrk_base F77_GLOBAL(ssyrk,SSYRK) -#define F77_ssyr2k_base F77_GLOBAL(ssyr2k,SSYR2K) -#define F77_strmm_base F77_GLOBAL(strmm,STRMM) -#define F77_strsm_base F77_GLOBAL(strsm,STRSM) -#define F77_dgemm_base F77_GLOBAL(dgemm,DGEMM) -#define F77_dsymm_base F77_GLOBAL(dsymm,DSYMM) -#define F77_dsyrk_base F77_GLOBAL(dsyrk,DSYRK) -#define F77_dsyr2k_base F77_GLOBAL(dsyr2k,DSYR2K) -#define F77_dtrmm_base F77_GLOBAL(dtrmm,DTRMM) -#define F77_dtrsm_base F77_GLOBAL(dtrsm,DTRSM) -#define F77_cgemm_base F77_GLOBAL(cgemm,CGEMM) -#define F77_csymm_base F77_GLOBAL(csymm,CSYMM) -#define F77_csyrk_base F77_GLOBAL(csyrk,CSYRK) -#define F77_csyr2k_base F77_GLOBAL(csyr2k,CSYR2K) -#define F77_ctrmm_base F77_GLOBAL(ctrmm,CTRMM) -#define F77_ctrsm_base F77_GLOBAL(ctrsm,CTRSM) -#define F77_zgemm_base F77_GLOBAL(zgemm,ZGEMM) -#define F77_zsymm_base F77_GLOBAL(zsymm,ZSYMM) -#define F77_zsyrk_base F77_GLOBAL(zsyrk,ZSYRK) -#define F77_zsyr2k_base F77_GLOBAL(zsyr2k,ZSYR2K) -#define F77_ztrmm_base F77_GLOBAL(ztrmm,ZTRMM) -#define F77_ztrsm_base F77_GLOBAL(ztrsm,ZTRSM) +#define F77_chemm_base F77_GLOBAL_SUFFIX(chemm,CHEMM) +#define F77_cherk_base F77_GLOBAL_SUFFIX(cherk,CHERK) +#define F77_cher2k_base F77_GLOBAL_SUFFIX(cher2k,CHER2K) +#define F77_zhemm_base F77_GLOBAL_SUFFIX(zhemm,ZHEMM) +#define F77_zherk_base F77_GLOBAL_SUFFIX(zherk,ZHERK) +#define F77_zher2k_base F77_GLOBAL_SUFFIX(zher2k,ZHER2K) +#define F77_sgemm_base F77_GLOBAL_SUFFIX(sgemm,SGEMM) +#define F77_ssymm_base F77_GLOBAL_SUFFIX(ssymm,SSYMM) +#define F77_ssyrk_base F77_GLOBAL_SUFFIX(ssyrk,SSYRK) +#define F77_ssyr2k_base F77_GLOBAL_SUFFIX(ssyr2k,SSYR2K) +#define F77_strmm_base F77_GLOBAL_SUFFIX(strmm,STRMM) +#define F77_strsm_base F77_GLOBAL_SUFFIX(strsm,STRSM) +#define F77_dgemm_base F77_GLOBAL_SUFFIX(dgemm,DGEMM) +#define F77_dsymm_base F77_GLOBAL_SUFFIX(dsymm,DSYMM) +#define F77_dsyrk_base F77_GLOBAL_SUFFIX(dsyrk,DSYRK) +#define F77_dsyr2k_base F77_GLOBAL_SUFFIX(dsyr2k,DSYR2K) +#define F77_dtrmm_base F77_GLOBAL_SUFFIX(dtrmm,DTRMM) +#define F77_dtrsm_base F77_GLOBAL_SUFFIX(dtrsm,DTRSM) +#define F77_cgemm_base F77_GLOBAL_SUFFIX(cgemm,CGEMM) +#define F77_csymm_base F77_GLOBAL_SUFFIX(csymm,CSYMM) +#define F77_csyrk_base F77_GLOBAL_SUFFIX(csyrk,CSYRK) +#define F77_csyr2k_base F77_GLOBAL_SUFFIX(csyr2k,CSYR2K) +#define F77_ctrmm_base F77_GLOBAL_SUFFIX(ctrmm,CTRMM) +#define F77_ctrsm_base F77_GLOBAL_SUFFIX(ctrsm,CTRSM) +#define F77_zgemm_base F77_GLOBAL_SUFFIX(zgemm,ZGEMM) +#define F77_zsymm_base F77_GLOBAL_SUFFIX(zsymm,ZSYMM) +#define F77_zsyrk_base F77_GLOBAL_SUFFIX(zsyrk,ZSYRK) +#define F77_zsyr2k_base F77_GLOBAL_SUFFIX(zsyr2k,ZSYR2K) +#define F77_ztrmm_base F77_GLOBAL_SUFFIX(ztrmm,ZTRMM) +#define F77_ztrsm_base F77_GLOBAL_SUFFIX(ztrsm,ZTRSM) /* * Level 1 Fortran variadic definitions diff --git a/CBLAS/src/CMakeLists.txt b/CBLAS/src/CMakeLists.txt index a8152297a9..750cc2738c 100644 --- a/CBLAS/src/CMakeLists.txt +++ b/CBLAS/src/CMakeLists.txt @@ -117,12 +117,49 @@ if(BUILD_COMPLEX16) endif() list(REMOVE_DUPLICATES SOURCES) -add_library(${CBLASLIB} ${SOURCES}) +add_library(${CBLASLIB}_obj OBJECT ${SOURCES}) +set_target_properties(${CBLASLIB}_obj PROPERTIES POSITION_INDEPENDENT_CODE ON) + +if(BUILD_INDEX64_EXT_API) + # 64bit Integer Interface + set(SOURCES_64_C) + set(SOURCES_64_F) + list(APPEND SOURCES_64_C ${SOURCES}) + list(APPEND SOURCES_64_F ${SOURCES}) + list(FILTER SOURCES_64_C EXCLUDE REGEX "\.f$") + list(FILTER SOURCES_64_F INCLUDE REGEX "\.f$") + list(REMOVE_ITEM SOURCES_64_C cblas_globals.c) + #Add suffix to all Fortran functions via macros + set(COPT_64_F) + foreach(F IN LISTS SOURCES_64_F) + file(STRINGS ${F} ${F}.lst) + list(FILTER ${F}.lst INCLUDE REGEX "subroutine|external") + foreach(FUNC IN LISTS ${F}.lst) + string(REGEX REPLACE "[ ]*(subroutine|external)[ ]*" "" FUNC ${FUNC}) + string(REGEX REPLACE "[(][a-zA-Z0-9, ]*[)]" "" FUNC ${FUNC}) + list(APPEND COPT_64_F "-D${FUNC}=${FUNC}_64") + endforeach() + endforeach() + add_library(${CBLASLIB}_64_cobj OBJECT ${SOURCES_64_C}) + add_library(${CBLASLIB}_64_fobj OBJECT ${SOURCES_64_F}) + set_target_properties(${CBLASLIB}_64_cobj ${CBLASLIB}_64_fobj PROPERTIES + POSITION_INDEPENDENT_CODE ON + Fortran_PREPROCESS ON) + target_compile_options(${CBLASLIB}_64_cobj PRIVATE -DWeirdNEC -DCBLAS_API64) + target_compile_options(${CBLASLIB}_64_fobj PRIVATE ${FOPT_ILP64} ${COPT_64_F}) +endif() + +add_library(${CBLASLIB} + $ + $<$: $> + $<$: $>) + set_target_properties( ${CBLASLIB} PROPERTIES LINKER_LANGUAGE C VERSION ${LAPACK_VERSION} SOVERSION ${LAPACK_MAJOR_VERSION} + POSITION_INDEPENDENT_CODE ON ) if(HAS_ATTRIBUTE_WEAK_SUPPORT) target_compile_definitions(${CBLASLIB} PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) diff --git a/CBLAS/src/cblas_caxpy.c b/CBLAS/src/cblas_caxpy.c index d4288f7423..f38ee4cb62 100644 --- a/CBLAS/src/cblas_caxpy.c +++ b/CBLAS/src/cblas_caxpy.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_caxpy( const CBLAS_INT N, const void *alpha, const void *X, +void API_SUFFIX(cblas_caxpy)( const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_ccopy.c b/CBLAS/src/cblas_ccopy.c index cae561ae3d..04ee03f860 100644 --- a/CBLAS/src/cblas_ccopy.c +++ b/CBLAS/src/cblas_ccopy.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ccopy( const CBLAS_INT N, const void *X, +void API_SUFFIX(cblas_ccopy)( const CBLAS_INT N, const void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_cdotc_sub.c b/CBLAS/src/cblas_cdotc_sub.c index 81520ebd18..cd7958bda0 100644 --- a/CBLAS/src/cblas_cdotc_sub.c +++ b/CBLAS/src/cblas_cdotc_sub.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_cdotc_sub( const CBLAS_INT N, const void *X, const CBLAS_INT incX, +void API_SUFFIX(cblas_cdotc_sub)( const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotc) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_cdotu_sub.c b/CBLAS/src/cblas_cdotu_sub.c index 0f7ded90b9..e513fed057 100644 --- a/CBLAS/src/cblas_cdotu_sub.c +++ b/CBLAS/src/cblas_cdotu_sub.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_cdotu_sub( const CBLAS_INT N, const void *X, const CBLAS_INT incX, +void API_SUFFIX(cblas_cdotu_sub)( const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotu) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_cgbmv.c b/CBLAS/src/cblas_cgbmv.c index c2d9b212f7..28abf9493b 100644 --- a/CBLAS/src/cblas_cgbmv.c +++ b/CBLAS/src/cblas_cgbmv.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_cgbmv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_cgbmv)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const void *alpha, const void *A, const CBLAS_INT lda, @@ -51,7 +51,7 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -131,7 +131,7 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, } else { - cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -159,7 +159,7 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, } } } - else cblas_xerbla(1, "cblas_cgbmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_cgbmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; } diff --git a/CBLAS/src/cblas_cgemm.c b/CBLAS/src/cblas_cgemm.c index 0ad99267d2..fe4b599a19 100644 --- a/CBLAS/src/cblas_cgemm.c +++ b/CBLAS/src/cblas_cgemm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, +void API_SUFFIX(cblas_cgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, @@ -47,7 +47,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransB == CblasNoTrans ) TB='N'; else { - cblas_xerbla(3, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB); + API_SUFFIX(cblas_xerbla)(3, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -79,7 +79,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransA == CblasNoTrans ) TB='N'; else { - cblas_xerbla(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -89,7 +89,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransB == CblasNoTrans ) TA='N'; else { - cblas_xerbla(2, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB); + API_SUFFIX(cblas_xerbla)(2, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, F77_cgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, alpha, B, &F77_ldb, A, &F77_lda, beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_cgemm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_cgemm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_cgemv.c b/CBLAS/src/cblas_cgemv.c index 1147242707..011bd60db0 100644 --- a/CBLAS/src/cblas_cgemv.c +++ b/CBLAS/src/cblas_cgemv.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_cgemv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_cgemv)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, @@ -50,7 +50,7 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -126,7 +126,7 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, } else { - cblas_xerbla(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -155,7 +155,7 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, } } } - else cblas_xerbla(1, "cblas_cgemv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_cgemv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_cgerc.c b/CBLAS/src/cblas_cgerc.c index a558417e64..905e32ae48 100644 --- a/CBLAS/src/cblas_cgerc.c +++ b/CBLAS/src/cblas_cgerc.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_cgerc(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, +void API_SUFFIX(cblas_cgerc)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda) { @@ -77,7 +77,7 @@ void cblas_cgerc(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N if(Y!=y) free(y); - } else cblas_xerbla(1, "cblas_cgerc", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_cgerc", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_cgeru.c b/CBLAS/src/cblas_cgeru.c index 6cca83e6fc..ea5b74bc4a 100644 --- a/CBLAS/src/cblas_cgeru.c +++ b/CBLAS/src/cblas_cgeru.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_cgeru(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, +void API_SUFFIX(cblas_cgeru)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda) { @@ -38,7 +38,7 @@ void cblas_cgeru(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N F77_cgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A, &F77_lda); } - else cblas_xerbla(1, "cblas_cgeru","Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_cgeru","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_chbmv.c b/CBLAS/src/cblas_chbmv.c index 13e3920ee7..9b3c53d27b 100644 --- a/CBLAS/src/cblas_chbmv.c +++ b/CBLAS/src/cblas_chbmv.c @@ -9,7 +9,7 @@ #include "cblas_f77.h" #include #include -void cblas_chbmv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_chbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,const CBLAS_INT N,const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, @@ -46,7 +46,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_chbmv","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_chbmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -120,7 +120,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_chbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_chbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -133,7 +133,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, } else { - cblas_xerbla(1, "cblas_chbmv","Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_chbmv","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_chemm.c b/CBLAS/src/cblas_chemm.c index 9ccb18a3af..4dd7b5c1ad 100644 --- a/CBLAS/src/cblas_chemm.c +++ b/CBLAS/src/cblas_chemm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_chemm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, @@ -45,7 +45,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_chemm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_chemm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_chemm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_chemm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -85,7 +85,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -99,7 +99,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_chemm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_chemm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_chemm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_chemv.c b/CBLAS/src/cblas_chemv.c index 8c4eadf101..29a224b027 100644 --- a/CBLAS/src/cblas_chemv.c +++ b/CBLAS/src/cblas_chemv.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_chemv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_chemv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, @@ -46,7 +46,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_chemv","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_chemv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -121,7 +121,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_chemv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_chemv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -134,7 +134,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, } else { - cblas_xerbla(1, "cblas_chemv","Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_chemv","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_cher.c b/CBLAS/src/cblas_cher.c index d1cb2068b7..a87f9f60cc 100644 --- a/CBLAS/src/cblas_cher.c +++ b/CBLAS/src/cblas_cher.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_cher)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const void *X, const CBLAS_INT incX ,void *A, const CBLAS_INT lda) { @@ -41,7 +41,7 @@ void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_cher","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_cher","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_cher","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_cher","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_cher(F77_UL, &F77_N, &alpha, x, &F77_incX, A, &F77_lda); } else { - cblas_xerbla(1, "cblas_cher","Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_cher","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_cher2.c b/CBLAS/src/cblas_cher2.c index ff03216d74..25fe871aa0 100644 --- a/CBLAS/src/cblas_cher2.c +++ b/CBLAS/src/cblas_cher2.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_cher2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda) { @@ -43,7 +43,7 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_cher2","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_cher2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_cher2","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_cher2","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -136,7 +136,7 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, &F77_incX, A, &F77_lda); } else { - cblas_xerbla(1, "cblas_cher2","Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_cher2","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_cher2k.c b/CBLAS/src/cblas_cher2k.c index a1452a9efe..31c81ac8ab 100644 --- a/CBLAS/src/cblas_cher2k.c +++ b/CBLAS/src/cblas_cher2k.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_cher2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const float beta, @@ -49,7 +49,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - cblas_xerbla(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -90,7 +90,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='C'; else { - cblas_xerbla(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -104,7 +104,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, ALPHA[1]= -alp[1]; F77_cher2k(F77_UL,F77_TR, &F77_N, &F77_K, ALPHA, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_cher2k", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_cher2k", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_cherk.c b/CBLAS/src/cblas_cherk.c index 0395408dc8..4ac61bab26 100644 --- a/CBLAS/src/cblas_cherk.c +++ b/CBLAS/src/cblas_cherk.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_cherk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const void *A, const CBLAS_INT lda, const float beta, void *C, const CBLAS_INT ldc) @@ -43,7 +43,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(2, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - cblas_xerbla(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -74,7 +74,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -84,7 +84,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='C'; else { - cblas_xerbla(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -98,7 +98,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_cherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, &beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_cherk", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_cherk", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_chpmv.c b/CBLAS/src/cblas_chpmv.c index f30dafc1bf..06573105fe 100644 --- a/CBLAS/src/cblas_chpmv.c +++ b/CBLAS/src/cblas_chpmv.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_chpmv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_chpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,const CBLAS_INT N, const void *alpha, const void *AP, const void *X, const CBLAS_INT incX, const void *beta, @@ -44,7 +44,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_chpmv","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_chpmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -119,7 +119,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_chpmv","Illegal Uplo setting, %d\n", Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_chpmv","Illegal Uplo setting, %d\n", Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -133,7 +133,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, } else { - cblas_xerbla(1, "cblas_chpmv","Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_chpmv","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_chpr.c b/CBLAS/src/cblas_chpr.c index f2a410270a..5ec037ce40 100644 --- a/CBLAS/src/cblas_chpr.c +++ b/CBLAS/src/cblas_chpr.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_chpr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const void *X, const CBLAS_INT incX, void *A) { @@ -40,7 +40,7 @@ void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_chpr","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_chpr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_chpr","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_chpr","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(1, "cblas_chpr","Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_chpr","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_chpr2.c b/CBLAS/src/cblas_chpr2.c index 4ed87677f4..03ec322052 100644 --- a/CBLAS/src/cblas_chpr2.c +++ b/CBLAS/src/cblas_chpr2.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_chpr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N,const void *alpha, const void *X, const CBLAS_INT incX,const void *Y, const CBLAS_INT incY, void *Ap) @@ -43,7 +43,7 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_chpr2","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_chpr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -61,7 +61,7 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_chpr2","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_chpr2","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -134,7 +134,7 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_chpr2(F77_UL, &F77_N, alpha, y, &F77_incY, x, &F77_incX, Ap); } else { - cblas_xerbla(1, "cblas_chpr2","Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_chpr2","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_crotg.c b/CBLAS/src/cblas_crotg.c index 36ca354b0c..7f489ccdce 100644 --- a/CBLAS/src/cblas_crotg.c +++ b/CBLAS/src/cblas_crotg.c @@ -6,7 +6,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_crotg(void *a, void *b, float *c, void *s) +void API_SUFFIX(cblas_crotg)(void *a, void *b, float *c, void *s) { F77_crotg(a,b,c,s); } diff --git a/CBLAS/src/cblas_cscal.c b/CBLAS/src/cblas_cscal.c index 63574ac97b..6e35d5885a 100644 --- a/CBLAS/src/cblas_cscal.c +++ b/CBLAS/src/cblas_cscal.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_cscal( const CBLAS_INT N, const void *alpha, void *X, +void API_SUFFIX(cblas_cscal)( const CBLAS_INT N, const void *alpha, void *X, const CBLAS_INT incX) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_csrot.c b/CBLAS/src/cblas_csrot.c index 39963c034a..4f6164029a 100644 --- a/CBLAS/src/cblas_csrot.c +++ b/CBLAS/src/cblas_csrot.c @@ -6,7 +6,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_csrot(const CBLAS_INT N, void *X, const CBLAS_INT incX, +void API_SUFFIX(cblas_csrot)(const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY, const float c, const float s) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_csscal.c b/CBLAS/src/cblas_csscal.c index 19ba383fea..df6952d070 100644 --- a/CBLAS/src/cblas_csscal.c +++ b/CBLAS/src/cblas_csscal.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_csscal( const CBLAS_INT N, const float alpha, void *X, +void API_SUFFIX(cblas_csscal)( const CBLAS_INT N, const float alpha, void *X, const CBLAS_INT incX) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_cswap.c b/CBLAS/src/cblas_cswap.c index 7f45e54b53..8a2bfe5c0f 100644 --- a/CBLAS/src/cblas_cswap.c +++ b/CBLAS/src/cblas_cswap.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_cswap( const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, +void API_SUFFIX(cblas_cswap)( const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_csymm.c b/CBLAS/src/cblas_csymm.c index c277e38f4c..15827e7fca 100644 --- a/CBLAS/src/cblas_csymm.c +++ b/CBLAS/src/cblas_csymm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_csymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, @@ -45,7 +45,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_csymm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_csymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_csymm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_csymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -85,7 +85,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -99,7 +99,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_csymm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_csymm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_csymm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_csyr2k.c b/CBLAS/src/cblas_csyr2k.c index ba960ea414..e564a9043a 100644 --- a/CBLAS/src/cblas_csyr2k.c +++ b/CBLAS/src/cblas_csyr2k.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_csyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, @@ -46,7 +46,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(2, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -57,7 +57,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - cblas_xerbla(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -88,7 +88,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - cblas_xerbla(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_csyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_csyr2k", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_csyr2k", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_csyrk.c b/CBLAS/src/cblas_csyrk.c index 1e720f0827..21c32d0c3c 100644 --- a/CBLAS/src/cblas_csyrk.c +++ b/CBLAS/src/cblas_csyrk.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_csyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *beta, void *C, const CBLAS_INT ldc) @@ -44,7 +44,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(2, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - cblas_xerbla(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -86,7 +86,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - cblas_xerbla(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -100,7 +100,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_csyrk(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_csyrk", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_csyrk", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ctbmv.c b/CBLAS/src/cblas_ctbmv.c index 5a0571b9bd..d86697b100 100644 --- a/CBLAS/src/cblas_ctbmv.c +++ b/CBLAS/src/cblas_ctbmv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ctbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX) @@ -43,7 +43,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ctbmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctbmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -151,7 +151,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else cblas_xerbla(1, "cblas_ctbmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ctbmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ctbsv.c b/CBLAS/src/cblas_ctbsv.c index 8faef87850..5aaaabdf25 100644 --- a/CBLAS/src/cblas_ctbsv.c +++ b/CBLAS/src/cblas_ctbsv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ctbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX) @@ -43,7 +43,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -118,7 +118,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -128,7 +128,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -155,7 +155,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else cblas_xerbla(1, "cblas_ctbsv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ctbsv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ctpmv.c b/CBLAS/src/cblas_ctpmv.c index 6e8d7cc8e7..97a45d383b 100644 --- a/CBLAS/src/cblas_ctpmv.c +++ b/CBLAS/src/cblas_ctpmv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ctpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX) { @@ -40,7 +40,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -50,7 +50,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -110,7 +110,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -120,7 +120,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -145,7 +145,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else cblas_xerbla(1, "cblas_ctpmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ctpmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ctpsv.c b/CBLAS/src/cblas_ctpsv.c index 08091d255a..4b9be145af 100644 --- a/CBLAS/src/cblas_ctpsv.c +++ b/CBLAS/src/cblas_ctpsv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ctpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX) { @@ -40,7 +40,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -50,7 +50,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -150,7 +150,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else cblas_xerbla(1, "cblas_ctpsv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ctpsv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ctrmm.c b/CBLAS/src/cblas_ctrmm.c index 46a98bb845..75dee5b864 100644 --- a/CBLAS/src/cblas_ctrmm.c +++ b/CBLAS/src/cblas_ctrmm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_ctrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, @@ -45,7 +45,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -73,7 +73,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else cblas_xerbla(5, "cblas_ctrmm", + else API_SUFFIX(cblas_xerbla)(5, "cblas_ctrmm", "Illegal Diag setting, %d\n", Diag); #ifdef F77_CHAR @@ -91,7 +91,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -112,7 +112,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -122,7 +122,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_ctrmm", "Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_ctrmm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -137,7 +137,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_ctrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb); } - else cblas_xerbla(1, "cblas_ctrmm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ctrmm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ctrmv.c b/CBLAS/src/cblas_ctrmv.c index 8fcb79a3f1..32dabd786e 100644 --- a/CBLAS/src/cblas_ctrmv.c +++ b/CBLAS/src/cblas_ctrmv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ctrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX) @@ -43,7 +43,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -113,7 +113,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -123,7 +123,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -148,7 +148,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else cblas_xerbla(1, "cblas_ctrmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ctrmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ctrsm.c b/CBLAS/src/cblas_ctrsm.c index 9e42f9aa00..7d492f2ab4 100644 --- a/CBLAS/src/cblas_ctrsm.c +++ b/CBLAS/src/cblas_ctrsm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_ctrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, @@ -46,7 +46,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -56,7 +56,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -67,7 +67,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -77,7 +77,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -100,7 +100,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -110,7 +110,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -121,7 +121,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -131,7 +131,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -148,7 +148,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_ctrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb); } - else cblas_xerbla(1, "cblas_ctrsm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ctrsm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ctrsv.c b/CBLAS/src/cblas_ctrsv.c index e0447d3009..41a9440472 100644 --- a/CBLAS/src/cblas_ctrsv.c +++ b/CBLAS/src/cblas_ctrsv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ctrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX) @@ -42,7 +42,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -52,7 +52,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -61,7 +61,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -81,7 +81,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -149,7 +149,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else cblas_xerbla(1, "cblas_ctrsv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ctrsv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dasum.c b/CBLAS/src/cblas_dasum.c index 67e257a7f2..3b7abd06a6 100644 --- a/CBLAS/src/cblas_dasum.c +++ b/CBLAS/src/cblas_dasum.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dasum( const CBLAS_INT N, const double *X, const CBLAS_INT incX) +double API_SUFFIX(cblas_dasum)( const CBLAS_INT N, const double *X, const CBLAS_INT incX) { double asum; #ifdef F77_INT diff --git a/CBLAS/src/cblas_daxpy.c b/CBLAS/src/cblas_daxpy.c index 1b38e0a936..9ab57c79d3 100644 --- a/CBLAS/src/cblas_daxpy.c +++ b/CBLAS/src/cblas_daxpy.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_daxpy( const CBLAS_INT N, const double alpha, const double *X, +void API_SUFFIX(cblas_daxpy)( const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_dcabs1.c b/CBLAS/src/cblas_dcabs1.c index 27902e8e40..35e127ddf1 100644 --- a/CBLAS/src/cblas_dcabs1.c +++ b/CBLAS/src/cblas_dcabs1.c @@ -6,7 +6,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dcabs1(const void *c) +double API_SUFFIX(cblas_dcabs1)(const void *c) { double cabs1 = 0.0; F77_dcabs1_sub(c, &cabs1); diff --git a/CBLAS/src/cblas_dcopy.c b/CBLAS/src/cblas_dcopy.c index 6eaed67ab1..0eec047bea 100644 --- a/CBLAS/src/cblas_dcopy.c +++ b/CBLAS/src/cblas_dcopy.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dcopy( const CBLAS_INT N, const double *X, +void API_SUFFIX(cblas_dcopy)( const CBLAS_INT N, const double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_ddot.c b/CBLAS/src/cblas_ddot.c index c2035a0a7c..54afaadc25 100644 --- a/CBLAS/src/cblas_ddot.c +++ b/CBLAS/src/cblas_ddot.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_ddot( const CBLAS_INT N, const double *X, +double API_SUFFIX(cblas_ddot)( const CBLAS_INT N, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY) { double dot; diff --git a/CBLAS/src/cblas_dgbmv.c b/CBLAS/src/cblas_dgbmv.c index ef2eeff18c..a0fc8d7aa1 100644 --- a/CBLAS/src/cblas_dgbmv.c +++ b/CBLAS/src/cblas_dgbmv.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dgbmv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_dgbmv)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const double alpha, const double *A, const CBLAS_INT lda, @@ -45,7 +45,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -64,7 +64,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, F77_dgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha, A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY); } - else cblas_xerbla(1, "cblas_dgbmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dgbmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; } diff --git a/CBLAS/src/cblas_dgemm.c b/CBLAS/src/cblas_dgemm.c index 1dce9cf3e8..bee9aa8a68 100644 --- a/CBLAS/src/cblas_dgemm.c +++ b/CBLAS/src/cblas_dgemm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, +void API_SUFFIX(cblas_dgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double *B, const CBLAS_INT ldb, @@ -47,7 +47,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransB == CblasNoTrans ) TB='N'; else { - cblas_xerbla(3, "cblas_dgemm","Illegal TransB setting, %d\n", TransB); + API_SUFFIX(cblas_xerbla)(3, "cblas_dgemm","Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -79,7 +79,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransA == CblasNoTrans ) TB='N'; else { - cblas_xerbla(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -89,7 +89,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransB == CblasNoTrans ) TA='N'; else { - cblas_xerbla(2, "cblas_dgemm","Illegal TransB setting, %d\n", TransB); + API_SUFFIX(cblas_xerbla)(2, "cblas_dgemm","Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, F77_dgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, &alpha, B, &F77_ldb, A, &F77_lda, &beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_dgemm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dgemm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dgemv.c b/CBLAS/src/cblas_dgemv.c index c5d10b791e..80edd756b0 100644 --- a/CBLAS/src/cblas_dgemv.c +++ b/CBLAS/src/cblas_dgemv.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dgemv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_dgemv)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, @@ -41,7 +41,7 @@ void cblas_dgemv(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void cblas_dgemv(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -71,7 +71,7 @@ void cblas_dgemv(const CBLAS_LAYOUT layout, F77_dgemv(F77_TA, &F77_N, &F77_M, &alpha, A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY); } - else cblas_xerbla(1, "cblas_dgemv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dgemv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dger.c b/CBLAS/src/cblas_dger.c index fa69dcbb20..8e5d687791 100644 --- a/CBLAS/src/cblas_dger.c +++ b/CBLAS/src/cblas_dger.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dger(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, +void API_SUFFIX(cblas_dger)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A, const CBLAS_INT lda) { @@ -40,7 +40,7 @@ void cblas_dger(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, &F77_lda); } - else cblas_xerbla(1, "cblas_dger", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dger", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dnrm2.c b/CBLAS/src/cblas_dnrm2.c index 48bb1657dd..3fafa48e5c 100644 --- a/CBLAS/src/cblas_dnrm2.c +++ b/CBLAS/src/cblas_dnrm2.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dnrm2( const CBLAS_INT N, const double *X, const CBLAS_INT incX) +double API_SUFFIX(cblas_dnrm2)( const CBLAS_INT N, const double *X, const CBLAS_INT incX) { double nrm2; #ifdef F77_INT diff --git a/CBLAS/src/cblas_drot.c b/CBLAS/src/cblas_drot.c index 0ecdcb316c..410aece4d6 100644 --- a/CBLAS/src/cblas_drot.c +++ b/CBLAS/src/cblas_drot.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_drot(const CBLAS_INT N, double *X, const CBLAS_INT incX, +void API_SUFFIX(cblas_drot)(const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY, const double c, const double s) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_drotg.c b/CBLAS/src/cblas_drotg.c index a433f4844f..01e5c202ac 100644 --- a/CBLAS/src/cblas_drotg.c +++ b/CBLAS/src/cblas_drotg.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_drotg( double *a, double *b, double *c, double *s) +void API_SUFFIX(cblas_drotg)( double *a, double *b, double *c, double *s) { F77_drotg(a,b,c,s); } diff --git a/CBLAS/src/cblas_drotm.c b/CBLAS/src/cblas_drotm.c index 70ac6c1cd9..a9646d775f 100644 --- a/CBLAS/src/cblas_drotm.c +++ b/CBLAS/src/cblas_drotm.c @@ -1,6 +1,6 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_drotm( const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, +void API_SUFFIX(cblas_drotm)( const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY, const double *P) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_drotmg.c b/CBLAS/src/cblas_drotmg.c index ad33ba4fd2..f04042ee9b 100644 --- a/CBLAS/src/cblas_drotmg.c +++ b/CBLAS/src/cblas_drotmg.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_drotmg( double *d1, double *d2, double *b1, +void API_SUFFIX(cblas_drotmg)( double *d1, double *d2, double *b1, const double b2, double *p) { F77_drotmg(d1,d2,b1,&b2,p); diff --git a/CBLAS/src/cblas_dsbmv.c b/CBLAS/src/cblas_dsbmv.c index 1502142c11..7bccfae362 100644 --- a/CBLAS/src/cblas_dsbmv.c +++ b/CBLAS/src/cblas_dsbmv.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dsbmv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_dsbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, @@ -41,7 +41,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_dsbmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dsbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -70,7 +70,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha, A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY); } - else cblas_xerbla(1, "cblas_dsbmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dsbmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dscal.c b/CBLAS/src/cblas_dscal.c index b0ecfd4c2c..b5b0d44dfc 100644 --- a/CBLAS/src/cblas_dscal.c +++ b/CBLAS/src/cblas_dscal.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dscal( const CBLAS_INT N, const double alpha, double *X, +void API_SUFFIX(cblas_dscal)( const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT incX) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_dsdot.c b/CBLAS/src/cblas_dsdot.c index 7141c6f729..f3ce05d244 100644 --- a/CBLAS/src/cblas_dsdot.c +++ b/CBLAS/src/cblas_dsdot.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dsdot( const CBLAS_INT N, const float *X, +double API_SUFFIX(cblas_dsdot)( const CBLAS_INT N, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY) { double dot; diff --git a/CBLAS/src/cblas_dspmv.c b/CBLAS/src/cblas_dspmv.c index 864a8883df..14a9a8d31a 100644 --- a/CBLAS/src/cblas_dspmv.c +++ b/CBLAS/src/cblas_dspmv.c @@ -10,7 +10,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dspmv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_dspmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *AP, const double *X, const CBLAS_INT incX, const double beta, @@ -40,7 +40,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_dspmv","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_dspmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_dspmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dspmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -69,7 +69,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, F77_dspmv(F77_UL, &F77_N, &alpha, AP, X,&F77_incX, &beta, Y, &F77_incY); } - else cblas_xerbla(1, "cblas_dspmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dspmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dspr.c b/CBLAS/src/cblas_dspr.c index 5140bc0771..ef33968519 100644 --- a/CBLAS/src/cblas_dspr.c +++ b/CBLAS/src/cblas_dspr.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_dspr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, double *Ap) { @@ -36,7 +36,7 @@ void cblas_dspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void cblas_dspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - cblas_xerbla(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -63,7 +63,7 @@ void cblas_dspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_UL = C2F_CHAR(&UL); #endif F77_dspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap); - } else cblas_xerbla(1, "cblas_dspr", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_dspr", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dspr2.c b/CBLAS/src/cblas_dspr2.c index 07cde29cfe..e18c6672f1 100644 --- a/CBLAS/src/cblas_dspr2.c +++ b/CBLAS/src/cblas_dspr2.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_dspr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A) { @@ -36,7 +36,7 @@ void cblas_dspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void cblas_dspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - cblas_xerbla(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -63,7 +63,7 @@ void cblas_dspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_UL = C2F_CHAR(&UL); #endif F77_dspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A); - } else cblas_xerbla(1, "cblas_dspr2", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_dspr2", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dswap.c b/CBLAS/src/cblas_dswap.c index 7a586f2f67..e78fd2face 100644 --- a/CBLAS/src/cblas_dswap.c +++ b/CBLAS/src/cblas_dswap.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dswap( const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, +void API_SUFFIX(cblas_dswap)( const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_dsymm.c b/CBLAS/src/cblas_dsymm.c index 54a549867a..3bab6f659e 100644 --- a/CBLAS/src/cblas_dsymm.c +++ b/CBLAS/src/cblas_dsymm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_dsymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, const double *B, const CBLAS_INT ldb, const double beta, @@ -45,7 +45,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_dsymm","Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_dsymm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_dsymm","Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_dsymm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -85,7 +85,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -99,7 +99,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_dsymm(F77_SD, F77_UL, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_dsymm","Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dsymm","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dsymv.c b/CBLAS/src/cblas_dsymv.c index 327a02e6f8..18607d3637 100644 --- a/CBLAS/src/cblas_dsymv.c +++ b/CBLAS/src/cblas_dsymv.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dsymv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_dsymv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, @@ -40,7 +40,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_dsymv","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_dsymv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_dsymv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dsymv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -69,7 +69,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, F77_dsymv(F77_UL, &F77_N, &alpha, A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY); } - else cblas_xerbla(1, "cblas_dsymv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dsymv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dsyr.c b/CBLAS/src/cblas_dsyr.c index d58c301735..383d41419c 100644 --- a/CBLAS/src/cblas_dsyr.c +++ b/CBLAS/src/cblas_dsyr.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dsyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_dsyr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, double *A, const CBLAS_INT lda) { @@ -37,7 +37,7 @@ void cblas_dsyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void cblas_dsyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - cblas_xerbla(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -64,7 +64,7 @@ void cblas_dsyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_UL = C2F_CHAR(&UL); #endif F77_dsyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda); - } else cblas_xerbla(1, "cblas_dsyr", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_dsyr", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dsyr2.c b/CBLAS/src/cblas_dsyr2.c index 96ae1f80f0..db85bf5216 100644 --- a/CBLAS/src/cblas_dsyr2.c +++ b/CBLAS/src/cblas_dsyr2.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dsyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_dsyr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A, const CBLAS_INT lda) @@ -40,7 +40,7 @@ void cblas_dsyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void cblas_dsyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - cblas_xerbla(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -69,7 +69,7 @@ void cblas_dsyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #endif F77_dsyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A, &F77_lda); - } else cblas_xerbla(1, "cblas_dsyr2", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_dsyr2", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dsyr2k.c b/CBLAS/src/cblas_dsyr2k.c index 3de741dd8e..85e01b2714 100644 --- a/CBLAS/src/cblas_dsyr2k.c +++ b/CBLAS/src/cblas_dsyr2k.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_dsyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double *B, const CBLAS_INT ldb, const double beta, @@ -46,7 +46,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(2, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -57,7 +57,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - cblas_xerbla(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -88,7 +88,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - cblas_xerbla(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_dsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_dsyr2k","Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dsyr2k","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dsyrk.c b/CBLAS/src/cblas_dsyrk.c index 835b9eedb7..dfca582148 100644 --- a/CBLAS/src/cblas_dsyrk.c +++ b/CBLAS/src/cblas_dsyrk.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_dsyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double beta, double *C, const CBLAS_INT ldc) @@ -44,7 +44,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(2, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - cblas_xerbla(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -86,7 +86,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - cblas_xerbla(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -100,7 +100,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_dsyrk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, &beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_dsyrk","Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dsyrk","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dtbmv.c b/CBLAS/src/cblas_dtbmv.c index badcc20189..dea9165d96 100644 --- a/CBLAS/src/cblas_dtbmv.c +++ b/CBLAS/src/cblas_dtbmv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_dtbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX) @@ -41,7 +41,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -51,7 +51,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_dtbmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtbmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -91,7 +91,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -116,7 +116,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, &F77_incX); } - else cblas_xerbla(1, "cblas_dtbmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dtbmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; } diff --git a/CBLAS/src/cblas_dtbsv.c b/CBLAS/src/cblas_dtbsv.c index afead06808..fefca5bd43 100644 --- a/CBLAS/src/cblas_dtbsv.c +++ b/CBLAS/src/cblas_dtbsv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_dtbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX) @@ -41,7 +41,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -51,7 +51,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -91,7 +91,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -115,7 +115,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_dtbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X, &F77_incX); } - else cblas_xerbla(1, "cblas_dtbsv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dtbsv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dtpmv.c b/CBLAS/src/cblas_dtpmv.c index 94381aff4f..bd502fea96 100644 --- a/CBLAS/src/cblas_dtpmv.c +++ b/CBLAS/src/cblas_dtpmv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_dtpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const double *Ap, double *X, const CBLAS_INT incX) { @@ -38,7 +38,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -48,7 +48,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -57,7 +57,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -87,7 +87,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -97,7 +97,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -110,7 +110,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_dtpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX); } - else cblas_xerbla(1, "cblas_dtpmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dtpmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dtpsv.c b/CBLAS/src/cblas_dtpsv.c index 53181b253f..c7894ca744 100644 --- a/CBLAS/src/cblas_dtpsv.c +++ b/CBLAS/src/cblas_dtpsv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_dtpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const double *Ap, double *X, const CBLAS_INT incX) { @@ -38,7 +38,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -48,7 +48,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -57,7 +57,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -87,7 +87,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -97,7 +97,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -111,7 +111,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_dtpsv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX); } - else cblas_xerbla(1, "cblas_dtpsv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dtpsv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dtrmm.c b/CBLAS/src/cblas_dtrmm.c index c2ea08a5ba..1421d5d158 100644 --- a/CBLAS/src/cblas_dtrmm.c +++ b/CBLAS/src/cblas_dtrmm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_dtrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, @@ -45,7 +45,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -96,7 +96,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -106,7 +106,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -117,7 +117,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -127,7 +127,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -141,7 +141,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, #endif F77_dtrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb); } - else cblas_xerbla(1, "cblas_dtrmm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dtrmm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dtrmv.c b/CBLAS/src/cblas_dtrmv.c index f2ec535b75..6ee99a5d81 100644 --- a/CBLAS/src/cblas_dtrmv.c +++ b/CBLAS/src/cblas_dtrmv.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_dtrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX) @@ -43,7 +43,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -93,7 +93,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -103,7 +103,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -115,7 +115,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #endif F77_dtrmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X, &F77_incX); - } else cblas_xerbla(1, "cblas_dtrmv", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_dtrmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dtrsm.c b/CBLAS/src/cblas_dtrsm.c index 5fe185d251..a53a8a0609 100644 --- a/CBLAS/src/cblas_dtrsm.c +++ b/CBLAS/src/cblas_dtrsm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_dtrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, @@ -46,7 +46,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower) UL='L'; else { - cblas_xerbla(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -66,7 +66,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit) DI='N'; else { - cblas_xerbla(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -99,7 +99,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -109,7 +109,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower) UL='U'; else { - cblas_xerbla(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -120,7 +120,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -130,7 +130,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit) DI='N'; else { - cblas_xerbla(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -146,7 +146,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_dtrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb); } - else cblas_xerbla(1, "cblas_dtrsm","Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dtrsm","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dtrsv.c b/CBLAS/src/cblas_dtrsv.c index 51b49da14d..527d3c255d 100644 --- a/CBLAS/src/cblas_dtrsv.c +++ b/CBLAS/src/cblas_dtrsv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_dtrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX) @@ -41,7 +41,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -51,7 +51,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -91,7 +91,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_dtrsv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X, &F77_incX); } - else cblas_xerbla(1, "cblas_dtrsv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_dtrsv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_dzasum.c b/CBLAS/src/cblas_dzasum.c index b68879860b..d306ac6dce 100644 --- a/CBLAS/src/cblas_dzasum.c +++ b/CBLAS/src/cblas_dzasum.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dzasum( const CBLAS_INT N, const void *X, const CBLAS_INT incX) +double API_SUFFIX(cblas_dzasum)( const CBLAS_INT N, const void *X, const CBLAS_INT incX) { double asum; #ifdef F77_INT diff --git a/CBLAS/src/cblas_dznrm2.c b/CBLAS/src/cblas_dznrm2.c index f815e15327..92ba052418 100644 --- a/CBLAS/src/cblas_dznrm2.c +++ b/CBLAS/src/cblas_dznrm2.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dznrm2( const CBLAS_INT N, const void *X, const CBLAS_INT incX) +double API_SUFFIX(cblas_dznrm2)( const CBLAS_INT N, const void *X, const CBLAS_INT incX) { double nrm2; #ifdef F77_INT diff --git a/CBLAS/src/cblas_icamax.c b/CBLAS/src/cblas_icamax.c index 66a12cdab8..8fc0c592b2 100644 --- a/CBLAS/src/cblas_icamax.c +++ b/CBLAS/src/cblas_icamax.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -CBLAS_INDEX cblas_icamax( const CBLAS_INT N, const void *X, const CBLAS_INT incX) +CBLAS_INDEX API_SUFFIX(cblas_icamax)( const CBLAS_INT N, const void *X, const CBLAS_INT incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_iamax; diff --git a/CBLAS/src/cblas_idamax.c b/CBLAS/src/cblas_idamax.c index db016c7cf7..4d7599f9c5 100644 --- a/CBLAS/src/cblas_idamax.c +++ b/CBLAS/src/cblas_idamax.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -CBLAS_INDEX cblas_idamax( const CBLAS_INT N, const double *X, const CBLAS_INT incX) +CBLAS_INDEX API_SUFFIX(cblas_idamax)( const CBLAS_INT N, const double *X, const CBLAS_INT incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_iamax; diff --git a/CBLAS/src/cblas_isamax.c b/CBLAS/src/cblas_isamax.c index 0898a82701..8b0f29a3bd 100644 --- a/CBLAS/src/cblas_isamax.c +++ b/CBLAS/src/cblas_isamax.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -CBLAS_INDEX cblas_isamax( const CBLAS_INT N, const float *X, const CBLAS_INT incX) +CBLAS_INDEX API_SUFFIX(cblas_isamax)( const CBLAS_INT N, const float *X, const CBLAS_INT incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_iamax; diff --git a/CBLAS/src/cblas_izamax.c b/CBLAS/src/cblas_izamax.c index c173e9d44e..20ca0cdb7b 100644 --- a/CBLAS/src/cblas_izamax.c +++ b/CBLAS/src/cblas_izamax.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -CBLAS_INDEX cblas_izamax( const CBLAS_INT N, const void *X, const CBLAS_INT incX) +CBLAS_INDEX API_SUFFIX(cblas_izamax)( const CBLAS_INT N, const void *X, const CBLAS_INT incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_iamax; diff --git a/CBLAS/src/cblas_sasum.c b/CBLAS/src/cblas_sasum.c index 091561ed5e..fcdfbc01b2 100644 --- a/CBLAS/src/cblas_sasum.c +++ b/CBLAS/src/cblas_sasum.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_sasum( const CBLAS_INT N, const float *X, const CBLAS_INT incX) +float API_SUFFIX(cblas_sasum)( const CBLAS_INT N, const float *X, const CBLAS_INT incX) { float asum; #ifdef F77_INT diff --git a/CBLAS/src/cblas_saxpy.c b/CBLAS/src/cblas_saxpy.c index 2c56f499d6..8d1541d8a2 100644 --- a/CBLAS/src/cblas_saxpy.c +++ b/CBLAS/src/cblas_saxpy.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_saxpy( const CBLAS_INT N, const float alpha, const float *X, +void API_SUFFIX(cblas_saxpy)( const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_scabs1.c b/CBLAS/src/cblas_scabs1.c index 8aaf0b9af9..5899603d9a 100644 --- a/CBLAS/src/cblas_scabs1.c +++ b/CBLAS/src/cblas_scabs1.c @@ -6,7 +6,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_scabs1(const void *c) +float API_SUFFIX(cblas_scabs1)(const void *c) { float cabs1 = 0.0; F77_scabs1_sub(c, &cabs1); diff --git a/CBLAS/src/cblas_scasum.c b/CBLAS/src/cblas_scasum.c index 1f84efefd0..feda02d751 100644 --- a/CBLAS/src/cblas_scasum.c +++ b/CBLAS/src/cblas_scasum.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_scasum( const CBLAS_INT N, const void *X, const CBLAS_INT incX) +float API_SUFFIX(cblas_scasum)( const CBLAS_INT N, const void *X, const CBLAS_INT incX) { float asum; #ifdef F77_INT diff --git a/CBLAS/src/cblas_scnrm2.c b/CBLAS/src/cblas_scnrm2.c index fd66915371..a1825816c0 100644 --- a/CBLAS/src/cblas_scnrm2.c +++ b/CBLAS/src/cblas_scnrm2.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_scnrm2( const CBLAS_INT N, const void *X, const CBLAS_INT incX) +float API_SUFFIX(cblas_scnrm2)( const CBLAS_INT N, const void *X, const CBLAS_INT incX) { float nrm2; #ifdef F77_INT diff --git a/CBLAS/src/cblas_scopy.c b/CBLAS/src/cblas_scopy.c index 24d3bf5860..7f3dcdcc9f 100644 --- a/CBLAS/src/cblas_scopy.c +++ b/CBLAS/src/cblas_scopy.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_scopy( const CBLAS_INT N, const float *X, +void API_SUFFIX(cblas_scopy)( const CBLAS_INT N, const float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_sdot.c b/CBLAS/src/cblas_sdot.c index a263ae3c42..76e56353a0 100644 --- a/CBLAS/src/cblas_sdot.c +++ b/CBLAS/src/cblas_sdot.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_sdot( const CBLAS_INT N, const float *X, +float API_SUFFIX(cblas_sdot)( const CBLAS_INT N, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY) { float dot; diff --git a/CBLAS/src/cblas_sdsdot.c b/CBLAS/src/cblas_sdsdot.c index 48694f921e..113dd57b65 100644 --- a/CBLAS/src/cblas_sdsdot.c +++ b/CBLAS/src/cblas_sdsdot.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_sdsdot( const CBLAS_INT N, const float alpha, const float *X, +float API_SUFFIX(cblas_sdsdot)( const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY) { float dot; diff --git a/CBLAS/src/cblas_sgbmv.c b/CBLAS/src/cblas_sgbmv.c index 3889e5f6d6..e530260e67 100644 --- a/CBLAS/src/cblas_sgbmv.c +++ b/CBLAS/src/cblas_sgbmv.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_sgbmv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_sgbmv)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const float alpha, const float *A, const CBLAS_INT lda, @@ -46,7 +46,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, F77_sgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha, A ,&F77_lda, X, &F77_incX, &beta, Y, &F77_incY); } - else cblas_xerbla(1, "cblas_sgbmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_sgbmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_sgemm.c b/CBLAS/src/cblas_sgemm.c index 99708a7d7f..a7b21fb58b 100644 --- a/CBLAS/src/cblas_sgemm.c +++ b/CBLAS/src/cblas_sgemm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, +void API_SUFFIX(cblas_sgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, @@ -46,7 +46,7 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(2, "cblas_sgemm", + API_SUFFIX(cblas_xerbla)(2, "cblas_sgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -58,7 +58,7 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransB == CblasNoTrans ) TB='N'; else { - cblas_xerbla(3, "cblas_sgemm", + API_SUFFIX(cblas_xerbla)(3, "cblas_sgemm", "Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -79,7 +79,7 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransA == CblasNoTrans ) TB='N'; else { - cblas_xerbla(2, "cblas_sgemm", + API_SUFFIX(cblas_xerbla)(2, "cblas_sgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -90,7 +90,7 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransB == CblasNoTrans ) TA='N'; else { - cblas_xerbla(2, "cblas_sgemm", + API_SUFFIX(cblas_xerbla)(2, "cblas_sgemm", "Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -103,7 +103,7 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, F77_sgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, &alpha, B, &F77_ldb, A, &F77_lda, &beta, C, &F77_ldc); } else - cblas_xerbla(1, "cblas_sgemm", + API_SUFFIX(cblas_xerbla)(1, "cblas_sgemm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_sgemv.c b/CBLAS/src/cblas_sgemv.c index 14beeb3414..5c95151f9e 100644 --- a/CBLAS/src/cblas_sgemv.c +++ b/CBLAS/src/cblas_sgemv.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_sgemv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_sgemv)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, @@ -42,7 +42,7 @@ void cblas_sgemv(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(2, "cblas_sgemv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_sgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; } @@ -60,7 +60,7 @@ void cblas_sgemv(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(2, "cblas_sgemv", "Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_sgemv", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -71,7 +71,7 @@ void cblas_sgemv(const CBLAS_LAYOUT layout, F77_sgemv(F77_TA, &F77_N, &F77_M, &alpha, A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY); } - else cblas_xerbla(1, "cblas_sgemv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_sgemv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_sger.c b/CBLAS/src/cblas_sger.c index ddcdb1d670..b456a31ad1 100644 --- a/CBLAS/src/cblas_sger.c +++ b/CBLAS/src/cblas_sger.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_sger(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, +void API_SUFFIX(cblas_sger)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda) { @@ -39,7 +39,7 @@ void cblas_sger(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, F77_sger( &F77_N, &F77_M, &alpha, Y, &F77_incY, X, &F77_incX, A, &F77_lda); } - else cblas_xerbla(1, "cblas_sger", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_sger", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_snrm2.c b/CBLAS/src/cblas_snrm2.c index a2c482bf13..d1c70be8fd 100644 --- a/CBLAS/src/cblas_snrm2.c +++ b/CBLAS/src/cblas_snrm2.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_snrm2( const CBLAS_INT N, const float *X, const CBLAS_INT incX) +float API_SUFFIX(cblas_snrm2)( const CBLAS_INT N, const float *X, const CBLAS_INT incX) { float nrm2; #ifdef F77_INT diff --git a/CBLAS/src/cblas_srot.c b/CBLAS/src/cblas_srot.c index 57fd38bbf7..61c4c75042 100644 --- a/CBLAS/src/cblas_srot.c +++ b/CBLAS/src/cblas_srot.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_srot( const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, +void API_SUFFIX(cblas_srot)( const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY, const float c, const float s) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_srotg.c b/CBLAS/src/cblas_srotg.c index 4584a29c9a..b96ed1c5c4 100644 --- a/CBLAS/src/cblas_srotg.c +++ b/CBLAS/src/cblas_srotg.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_srotg( float *a, float *b, float *c, float *s) +void API_SUFFIX(cblas_srotg)( float *a, float *b, float *c, float *s) { F77_srotg(a,b,c,s); } diff --git a/CBLAS/src/cblas_srotm.c b/CBLAS/src/cblas_srotm.c index 7de0970ce0..04e3c6438b 100644 --- a/CBLAS/src/cblas_srotm.c +++ b/CBLAS/src/cblas_srotm.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_srotm( const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, +void API_SUFFIX(cblas_srotm)( const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY, const float *P) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_srotmg.c b/CBLAS/src/cblas_srotmg.c index 1d84054a02..6290a6207d 100644 --- a/CBLAS/src/cblas_srotmg.c +++ b/CBLAS/src/cblas_srotmg.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_srotmg( float *d1, float *d2, float *b1, +void API_SUFFIX(cblas_srotmg)( float *d1, float *d2, float *b1, const float b2, float *p) { F77_srotmg(d1,d2,b1,&b2,p); diff --git a/CBLAS/src/cblas_ssbmv.c b/CBLAS/src/cblas_ssbmv.c index eab4f7bcd7..1c85cff6ae 100644 --- a/CBLAS/src/cblas_ssbmv.c +++ b/CBLAS/src/cblas_ssbmv.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ssbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ssbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY) @@ -41,7 +41,7 @@ void cblas_ssbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ssbmv","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_ssbmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void cblas_ssbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ssbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ssbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -69,7 +69,7 @@ void cblas_ssbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_ssbmv(F77_UL, &F77_N, &F77_K, &alpha, A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY); } - else cblas_xerbla(1, "cblas_ssbmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ssbmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_sscal.c b/CBLAS/src/cblas_sscal.c index ad5af245ef..98aecd7133 100644 --- a/CBLAS/src/cblas_sscal.c +++ b/CBLAS/src/cblas_sscal.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_sscal( const CBLAS_INT N, const float alpha, float *X, +void API_SUFFIX(cblas_sscal)( const CBLAS_INT N, const float alpha, float *X, const CBLAS_INT incX) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_sspmv.c b/CBLAS/src/cblas_sspmv.c index bd9de77e23..05e37e8f52 100644 --- a/CBLAS/src/cblas_sspmv.c +++ b/CBLAS/src/cblas_sspmv.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_sspmv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_sspmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *AP, const float *X, const CBLAS_INT incX, const float beta, @@ -38,7 +38,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_sspmv","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_sspmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -56,7 +56,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_sspmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_sspmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -67,7 +67,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, F77_sspmv(F77_UL, &F77_N, &alpha, AP, X,&F77_incX, &beta, Y, &F77_incY); } - else cblas_xerbla(1, "cblas_sspmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_sspmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; } diff --git a/CBLAS/src/cblas_sspr.c b/CBLAS/src/cblas_sspr.c index c24501ed99..de4750f167 100644 --- a/CBLAS/src/cblas_sspr.c +++ b/CBLAS/src/cblas_sspr.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_sspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_sspr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *Ap) { @@ -38,7 +38,7 @@ void cblas_sspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -56,7 +56,7 @@ void cblas_sspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - cblas_xerbla(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void cblas_sspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_UL = C2F_CHAR(&UL); #endif F77_sspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap); - } else cblas_xerbla(1, "cblas_sspr", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_sspr", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_sspr2.c b/CBLAS/src/cblas_sspr2.c index 88b3bbc705..1a0e4f5205 100644 --- a/CBLAS/src/cblas_sspr2.c +++ b/CBLAS/src/cblas_sspr2.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_sspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_sspr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A) { @@ -38,7 +38,7 @@ void cblas_sspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -56,7 +56,7 @@ void cblas_sspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - cblas_xerbla(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void cblas_sspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_UL = C2F_CHAR(&UL); #endif F77_sspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A); - } else cblas_xerbla(1, "cblas_sspr2", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_sspr2", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; } diff --git a/CBLAS/src/cblas_sswap.c b/CBLAS/src/cblas_sswap.c index 222993786d..cc5a633b09 100644 --- a/CBLAS/src/cblas_sswap.c +++ b/CBLAS/src/cblas_sswap.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_sswap( const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, +void API_SUFFIX(cblas_sswap)( const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_ssymm.c b/CBLAS/src/cblas_ssymm.c index b70c09c46b..6d347f5333 100644 --- a/CBLAS/src/cblas_ssymm.c +++ b/CBLAS/src/cblas_ssymm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_ssymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, @@ -45,7 +45,7 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_ssymm", + API_SUFFIX(cblas_xerbla)(2, "cblas_ssymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -56,7 +56,7 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_ssymm", + API_SUFFIX(cblas_xerbla)(3, "cblas_ssymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -76,7 +76,7 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_ssymm", + API_SUFFIX(cblas_xerbla)(2, "cblas_ssymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -87,7 +87,7 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_ssymm", + API_SUFFIX(cblas_xerbla)(3, "cblas_ssymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -100,7 +100,7 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, #endif F77_ssymm(F77_SD, F77_UL, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc); - } else cblas_xerbla(1, "cblas_ssymm", + } else API_SUFFIX(cblas_xerbla)(1, "cblas_ssymm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_ssymv.c b/CBLAS/src/cblas_ssymv.c index 6a005c5487..ecd72a12fb 100644 --- a/CBLAS/src/cblas_ssymv.c +++ b/CBLAS/src/cblas_ssymv.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_ssymv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_ssymv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, @@ -40,7 +40,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ssymv","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_ssymv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ssymv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ssymv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -69,7 +69,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, F77_ssymv(F77_UL, &F77_N, &alpha, A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY); } - else cblas_xerbla(1, "cblas_ssymv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ssymv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ssyr.c b/CBLAS/src/cblas_ssyr.c index 8b960fa99f..2311a47094 100644 --- a/CBLAS/src/cblas_ssyr.c +++ b/CBLAS/src/cblas_ssyr.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ssyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ssyr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *A, const CBLAS_INT lda) { @@ -36,7 +36,7 @@ void cblas_ssyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void cblas_ssyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - cblas_xerbla(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -63,7 +63,7 @@ void cblas_ssyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_UL = C2F_CHAR(&UL); #endif F77_ssyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda); - } else cblas_xerbla(1, "cblas_ssyr", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_ssyr", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ssyr2.c b/CBLAS/src/cblas_ssyr2.c index 09512808ae..facf1bed87 100644 --- a/CBLAS/src/cblas_ssyr2.c +++ b/CBLAS/src/cblas_ssyr2.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_ssyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ssyr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda) @@ -40,7 +40,7 @@ void cblas_ssyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void cblas_ssyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - cblas_xerbla(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -69,7 +69,7 @@ void cblas_ssyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #endif F77_ssyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A, &F77_lda); - } else cblas_xerbla(1, "cblas_ssyr2", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_ssyr2", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ssyr2k.c b/CBLAS/src/cblas_ssyr2k.c index 1a375e5df3..ca471b8fac 100644 --- a/CBLAS/src/cblas_ssyr2k.c +++ b/CBLAS/src/cblas_ssyr2k.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ssyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, @@ -46,7 +46,7 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(2, "cblas_ssyr2k", + API_SUFFIX(cblas_xerbla)(2, "cblas_ssyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -58,7 +58,7 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - cblas_xerbla(3, "cblas_ssyr2k", + API_SUFFIX(cblas_xerbla)(3, "cblas_ssyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -79,7 +79,7 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_ssyr2k", + API_SUFFIX(cblas_xerbla)(3, "cblas_ssyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -90,7 +90,7 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - cblas_xerbla(3, "cblas_ssyr2k", + API_SUFFIX(cblas_xerbla)(3, "cblas_ssyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -103,7 +103,7 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #endif F77_ssyr2k(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc); - } else cblas_xerbla(1, "cblas_ssyr2k", + } else API_SUFFIX(cblas_xerbla)(1, "cblas_ssyr2k", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_ssyrk.c b/CBLAS/src/cblas_ssyrk.c index 3a2373dd6a..bf9b985087 100644 --- a/CBLAS/src/cblas_ssyrk.c +++ b/CBLAS/src/cblas_ssyrk.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ssyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float beta, float *C, const CBLAS_INT ldc) @@ -44,7 +44,7 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(2, "cblas_ssyrk", + API_SUFFIX(cblas_xerbla)(2, "cblas_ssyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -56,7 +56,7 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - cblas_xerbla(3, "cblas_ssyrk", + API_SUFFIX(cblas_xerbla)(3, "cblas_ssyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -77,7 +77,7 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_ssyrk", + API_SUFFIX(cblas_xerbla)(3, "cblas_ssyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -88,7 +88,7 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - cblas_xerbla(3, "cblas_ssyrk", + API_SUFFIX(cblas_xerbla)(3, "cblas_ssyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -101,7 +101,7 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #endif F77_ssyrk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, &beta, C, &F77_ldc); - } else cblas_xerbla(1, "cblas_ssyrk", + } else API_SUFFIX(cblas_xerbla)(1, "cblas_ssyrk", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_stbmv.c b/CBLAS/src/cblas_stbmv.c index d89dbdd43c..9005e747d6 100644 --- a/CBLAS/src/cblas_stbmv.c +++ b/CBLAS/src/cblas_stbmv.c @@ -7,7 +7,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_stbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX) @@ -41,7 +41,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -51,7 +51,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_stbmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_stbmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -91,7 +91,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(4, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -115,7 +115,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_stbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X, &F77_incX); } - else cblas_xerbla(1, "cblas_stbmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_stbmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_stbsv.c b/CBLAS/src/cblas_stbsv.c index 296db6f953..c6ef05f8e5 100644 --- a/CBLAS/src/cblas_stbsv.c +++ b/CBLAS/src/cblas_stbsv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_stbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX) @@ -41,7 +41,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -51,7 +51,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -91,7 +91,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -115,7 +115,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_stbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X, &F77_incX); } - else cblas_xerbla(1, "cblas_stbsv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_stbsv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_stpmv.c b/CBLAS/src/cblas_stpmv.c index 22f9f6b6fd..bcc5f215d4 100644 --- a/CBLAS/src/cblas_stpmv.c +++ b/CBLAS/src/cblas_stpmv.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_stpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX) { @@ -39,7 +39,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -49,7 +49,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -77,7 +77,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -88,7 +88,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -98,7 +98,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -111,7 +111,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_stpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX); } - else cblas_xerbla(1, "cblas_stpmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_stpmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_stpsv.c b/CBLAS/src/cblas_stpsv.c index aa3cec9a3b..c729fdbb2f 100644 --- a/CBLAS/src/cblas_stpsv.c +++ b/CBLAS/src/cblas_stpsv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_stpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX) { @@ -38,7 +38,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -48,7 +48,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -57,7 +57,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -87,7 +87,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -97,7 +97,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -111,7 +111,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_stpsv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX); } - else cblas_xerbla(1, "cblas_stpsv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_stpsv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_strmm.c b/CBLAS/src/cblas_strmm.c index 658e46f42f..49133e5c4e 100644 --- a/CBLAS/src/cblas_strmm.c +++ b/CBLAS/src/cblas_strmm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_strmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, @@ -45,7 +45,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_strmm","Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_strmm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_strmm","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_strmm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_strmm","Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_strmm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_strmm", "Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_strmm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -96,7 +96,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_strmm","Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_strmm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -106,7 +106,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_strmm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_strmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -117,7 +117,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_strmm", "Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_strmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -127,7 +127,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_strmm","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_strmm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -141,7 +141,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_strmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb); } - else cblas_xerbla(1, "cblas_strmm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_strmm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_strmv.c b/CBLAS/src/cblas_strmv.c index 57f1841b89..bd7c14d3ad 100644 --- a/CBLAS/src/cblas_strmv.c +++ b/CBLAS/src/cblas_strmv.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_strmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX) @@ -42,7 +42,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -52,7 +52,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -61,7 +61,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -81,7 +81,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -92,7 +92,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -115,7 +115,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_strmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X, &F77_incX); } - else cblas_xerbla(1, "cblas_strmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_strmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_strsm.c b/CBLAS/src/cblas_strsm.c index b5811758c8..e883be1dfb 100644 --- a/CBLAS/src/cblas_strsm.c +++ b/CBLAS/src/cblas_strsm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_strsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, @@ -46,7 +46,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_strsm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_strsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -74,7 +74,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -94,7 +94,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_strsm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_strsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -103,7 +103,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -113,7 +113,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -122,7 +122,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -136,7 +136,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_strsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb); } - else cblas_xerbla(1, "cblas_strsm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_strsm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_strsv.c b/CBLAS/src/cblas_strsv.c index cb1b7cbf7c..a98c692dfd 100644 --- a/CBLAS/src/cblas_strsv.c +++ b/CBLAS/src/cblas_strsv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_strsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX) @@ -41,7 +41,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -51,7 +51,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -91,7 +91,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - cblas_xerbla(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_strsv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X, &F77_incX); } - else cblas_xerbla(1, "cblas_strsv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_strsv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_xerbla.c b/CBLAS/src/cblas_xerbla.c index 3643618ef5..f353153a42 100644 --- a/CBLAS/src/cblas_xerbla.c +++ b/CBLAS/src/cblas_xerbla.c @@ -9,7 +9,7 @@ void #ifdef HAS_ATTRIBUTE_WEAK_SUPPORT __attribute__((weak)) #endif -cblas_xerbla(CBLAS_INT info, const char *rout, const char *form, ...) +API_SUFFIX(cblas_xerbla)(CBLAS_INT info, const char *rout, const char *form, ...) { extern int RowMajorStrg; char empty[1] = ""; diff --git a/CBLAS/src/cblas_zaxpy.c b/CBLAS/src/cblas_zaxpy.c index 5ea07904c7..0612cb3fbc 100644 --- a/CBLAS/src/cblas_zaxpy.c +++ b/CBLAS/src/cblas_zaxpy.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zaxpy( const CBLAS_INT N, const void *alpha, const void *X, +void API_SUFFIX(cblas_zaxpy)( const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_zcopy.c b/CBLAS/src/cblas_zcopy.c index 8524cbed8a..b02d509802 100644 --- a/CBLAS/src/cblas_zcopy.c +++ b/CBLAS/src/cblas_zcopy.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zcopy( const CBLAS_INT N, const void *X, +void API_SUFFIX(cblas_zcopy)( const CBLAS_INT N, const void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_zdotc_sub.c b/CBLAS/src/cblas_zdotc_sub.c index 0e9f35dec4..45d87bbf64 100644 --- a/CBLAS/src/cblas_zdotc_sub.c +++ b/CBLAS/src/cblas_zdotc_sub.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zdotc_sub( const CBLAS_INT N, const void *X, const CBLAS_INT incX, +void API_SUFFIX(cblas_zdotc_sub)( const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotc) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_zdotu_sub.c b/CBLAS/src/cblas_zdotu_sub.c index cf575bcd7c..d6766e64bd 100644 --- a/CBLAS/src/cblas_zdotu_sub.c +++ b/CBLAS/src/cblas_zdotu_sub.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zdotu_sub( const CBLAS_INT N, const void *X, const CBLAS_INT incX, +void API_SUFFIX(cblas_zdotu_sub)( const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotu) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_zdrot.c b/CBLAS/src/cblas_zdrot.c index bf0d5c69db..d208a3034e 100644 --- a/CBLAS/src/cblas_zdrot.c +++ b/CBLAS/src/cblas_zdrot.c @@ -6,7 +6,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zdrot(const CBLAS_INT N, void *X, const CBLAS_INT incX, +void API_SUFFIX(cblas_zdrot)(const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY, const double c, const double s) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_zdscal.c b/CBLAS/src/cblas_zdscal.c index a365b02af0..0bebcdfd9e 100644 --- a/CBLAS/src/cblas_zdscal.c +++ b/CBLAS/src/cblas_zdscal.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zdscal( const CBLAS_INT N, const double alpha, void *X, +void API_SUFFIX(cblas_zdscal)( const CBLAS_INT N, const double alpha, void *X, const CBLAS_INT incX) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_zgbmv.c b/CBLAS/src/cblas_zgbmv.c index 0d0b3427f0..2aa8e08611 100644 --- a/CBLAS/src/cblas_zgbmv.c +++ b/CBLAS/src/cblas_zgbmv.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_zgbmv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_zgbmv)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const void *alpha, const void *A, const CBLAS_INT lda, @@ -51,7 +51,7 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -131,7 +131,7 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, } else { - cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -159,7 +159,7 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, } } } - else cblas_xerbla(1, "cblas_zgbmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_zgbmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zgemm.c b/CBLAS/src/cblas_zgemm.c index 38c9cfb60f..3aaf59abc7 100644 --- a/CBLAS/src/cblas_zgemm.c +++ b/CBLAS/src/cblas_zgemm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, +void API_SUFFIX(cblas_zgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, @@ -47,7 +47,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransB == CblasNoTrans ) TB='N'; else { - cblas_xerbla(3, "cblas_zgemm","Illegal TransB setting, %d\n", TransB); + API_SUFFIX(cblas_xerbla)(3, "cblas_zgemm","Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -79,7 +79,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransA == CblasNoTrans ) TB='N'; else { - cblas_xerbla(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -89,7 +89,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, else if ( TransB == CblasNoTrans ) TA='N'; else { - cblas_xerbla(2, "cblas_zgemm","Illegal TransB setting, %d\n", TransB); + API_SUFFIX(cblas_xerbla)(2, "cblas_zgemm","Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, F77_zgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, alpha, B, &F77_ldb, A, &F77_lda, beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_zgemm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_zgemm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zgemv.c b/CBLAS/src/cblas_zgemv.c index c3d8a9f5d0..b5a3db4998 100644 --- a/CBLAS/src/cblas_zgemv.c +++ b/CBLAS/src/cblas_zgemv.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_zgemv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_zgemv)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, @@ -49,7 +49,7 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -128,7 +128,7 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, } else { - cblas_xerbla(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -157,7 +157,7 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, } } } - else cblas_xerbla(1, "cblas_zgemv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_zgemv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zgerc.c b/CBLAS/src/cblas_zgerc.c index 0e3f8afcb5..e168289591 100644 --- a/CBLAS/src/cblas_zgerc.c +++ b/CBLAS/src/cblas_zgerc.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_zgerc(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, +void API_SUFFIX(cblas_zgerc)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda) { @@ -77,7 +77,7 @@ void cblas_zgerc(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N if(Y!=y) free(y); - } else cblas_xerbla(1, "cblas_zgerc", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_zgerc", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zgeru.c b/CBLAS/src/cblas_zgeru.c index 424f1f3e70..d1a128ca2f 100644 --- a/CBLAS/src/cblas_zgeru.c +++ b/CBLAS/src/cblas_zgeru.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zgeru(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, +void API_SUFFIX(cblas_zgeru)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda) { @@ -37,7 +37,7 @@ void cblas_zgeru(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N F77_zgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A, &F77_lda); } - else cblas_xerbla(1, "cblas_zgeru", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_zgeru", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zhbmv.c b/CBLAS/src/cblas_zhbmv.c index c97ae7cddd..81fefe5bb7 100644 --- a/CBLAS/src/cblas_zhbmv.c +++ b/CBLAS/src/cblas_zhbmv.c @@ -9,7 +9,7 @@ #include "cblas_f77.h" #include #include -void cblas_zhbmv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_zhbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,const CBLAS_INT N,const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, @@ -46,7 +46,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_zhbmv","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_zhbmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -120,7 +120,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_zhbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_zhbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -133,7 +133,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, } else { - cblas_xerbla(1, "cblas_zhbmv","Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_zhbmv","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zhemm.c b/CBLAS/src/cblas_zhemm.c index be41d471af..98fb7084db 100644 --- a/CBLAS/src/cblas_zhemm.c +++ b/CBLAS/src/cblas_zhemm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_zhemm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, @@ -45,7 +45,7 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -85,7 +85,7 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -99,7 +99,7 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_zhemm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_zhemm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_zhemm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zhemv.c b/CBLAS/src/cblas_zhemv.c index c123ba25f3..0eb2023c3b 100644 --- a/CBLAS/src/cblas_zhemv.c +++ b/CBLAS/src/cblas_zhemv.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_zhemv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_zhemv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, @@ -46,7 +46,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_zhemv","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_zhemv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -121,7 +121,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_zhemv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_zhemv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -134,7 +134,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, } else { - cblas_xerbla(1, "cblas_zhemv","Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_zhemv","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zher.c b/CBLAS/src/cblas_zher.c index 196d735fd5..c3e0933db2 100644 --- a/CBLAS/src/cblas_zher.c +++ b/CBLAS/src/cblas_zher.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_zher)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const void *X, const CBLAS_INT incX ,void *A, const CBLAS_INT lda) { @@ -41,7 +41,7 @@ void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_zher","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_zher","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_zher","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_zher","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -100,7 +100,7 @@ void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else x = (double *) X; F77_zher(F77_UL, &F77_N, &alpha, x, &F77_incX, A, &F77_lda); - } else cblas_xerbla(1, "cblas_zher", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_zher", "Illegal layout setting, %d\n", layout); if(X!=x) free(x); diff --git a/CBLAS/src/cblas_zher2.c b/CBLAS/src/cblas_zher2.c index 6cf2f7d776..1b948a2a8b 100644 --- a/CBLAS/src/cblas_zher2.c +++ b/CBLAS/src/cblas_zher2.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_zher2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda) { @@ -43,7 +43,7 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_zher2", "Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_zher2", "Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_zher2", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_zher2", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -137,7 +137,7 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(1, "cblas_zher2", "Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_zher2", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zher2k.c b/CBLAS/src/cblas_zher2k.c index 2c741ae07c..b6a2142e86 100644 --- a/CBLAS/src/cblas_zher2k.c +++ b/CBLAS/src/cblas_zher2k.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_zher2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const double beta, @@ -49,7 +49,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - cblas_xerbla(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -90,7 +90,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='C'; else { - cblas_xerbla(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -103,7 +103,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, ALPHA[0]= *alp; ALPHA[1]= -alp[1]; F77_zher2k(F77_UL,F77_TR, &F77_N, &F77_K, ALPHA, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc); - } else cblas_xerbla(1, "cblas_zher2k", "Illegal layout setting, %d\n", layout); + } else API_SUFFIX(cblas_xerbla)(1, "cblas_zher2k", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zherk.c b/CBLAS/src/cblas_zherk.c index 52a7bc222f..8d9ab9e3c2 100644 --- a/CBLAS/src/cblas_zherk.c +++ b/CBLAS/src/cblas_zherk.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_zherk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const void *A, const CBLAS_INT lda, const double beta, void *C, const CBLAS_INT ldc) @@ -43,7 +43,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(2, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - cblas_xerbla(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -74,7 +74,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -84,7 +84,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='C'; else { - cblas_xerbla(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -98,7 +98,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_zherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, &beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_zherk", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_zherk", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zhpmv.c b/CBLAS/src/cblas_zhpmv.c index 325e9fc8ad..43a423621f 100644 --- a/CBLAS/src/cblas_zhpmv.c +++ b/CBLAS/src/cblas_zhpmv.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_zhpmv(const CBLAS_LAYOUT layout, +void API_SUFFIX(cblas_zhpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,const CBLAS_INT N, const void *alpha, const void *AP, const void *X, const CBLAS_INT incX, const void *beta, @@ -44,7 +44,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_zhpmv","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_zhpmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -119,7 +119,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_zhpmv","Illegal Uplo setting, %d\n", Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_zhpmv","Illegal Uplo setting, %d\n", Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -133,7 +133,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, } else { - cblas_xerbla(1, "cblas_zhpmv","Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_zhpmv","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zhpr.c b/CBLAS/src/cblas_zhpr.c index a938df595d..57b1aa5c38 100644 --- a/CBLAS/src/cblas_zhpr.c +++ b/CBLAS/src/cblas_zhpr.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_zhpr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const void *X, const CBLAS_INT incX, void *A) { @@ -40,7 +40,7 @@ void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_zhpr","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_zhpr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_zhpr","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_zhpr","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(1, "cblas_zhpr","Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_zhpr","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zhpr2.c b/CBLAS/src/cblas_zhpr2.c index c26d7d9253..1ad034e962 100644 --- a/CBLAS/src/cblas_zhpr2.c +++ b/CBLAS/src/cblas_zhpr2.c @@ -9,7 +9,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_zhpr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N,const void *alpha, const void *X, const CBLAS_INT incX,const void *Y, const CBLAS_INT incY, void *Ap) @@ -43,7 +43,7 @@ void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - cblas_xerbla(2, "cblas_zhpr2","Illegal Uplo setting, %d\n",Uplo ); + API_SUFFIX(cblas_xerbla)(2, "cblas_zhpr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -61,7 +61,7 @@ void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_zhpr2","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_zhpr2","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -135,7 +135,7 @@ void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(1, "cblas_zhpr2","Illegal layout setting, %d\n", layout); + API_SUFFIX(cblas_xerbla)(1, "cblas_zhpr2","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zrotg.c b/CBLAS/src/cblas_zrotg.c index 94ca0bede0..07d9af0deb 100644 --- a/CBLAS/src/cblas_zrotg.c +++ b/CBLAS/src/cblas_zrotg.c @@ -6,7 +6,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zrotg(void *a, void *b, double *c, void *s) +void API_SUFFIX(cblas_zrotg)(void *a, void *b, double *c, void *s) { F77_zrotg(a,b,c,s); } diff --git a/CBLAS/src/cblas_zscal.c b/CBLAS/src/cblas_zscal.c index b93886fcdf..1c146dfd8a 100644 --- a/CBLAS/src/cblas_zscal.c +++ b/CBLAS/src/cblas_zscal.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zscal( const CBLAS_INT N, const void *alpha, void *X, +void API_SUFFIX(cblas_zscal)( const CBLAS_INT N, const void *alpha, void *X, const CBLAS_INT incX) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_zswap.c b/CBLAS/src/cblas_zswap.c index 9cf8691482..d1aa9fa5ef 100644 --- a/CBLAS/src/cblas_zswap.c +++ b/CBLAS/src/cblas_zswap.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zswap( const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, +void API_SUFFIX(cblas_zswap)( const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY) { #ifdef F77_INT diff --git a/CBLAS/src/cblas_zsymm.c b/CBLAS/src/cblas_zsymm.c index f66e2470e4..a2550d3878 100644 --- a/CBLAS/src/cblas_zsymm.c +++ b/CBLAS/src/cblas_zsymm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_zsymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, @@ -45,7 +45,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -85,7 +85,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -99,7 +99,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_zsymm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_zsymm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_zsymm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zsyr2k.c b/CBLAS/src/cblas_zsyr2k.c index 3c490268d3..3223229d71 100644 --- a/CBLAS/src/cblas_zsyr2k.c +++ b/CBLAS/src/cblas_zsyr2k.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_zsyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, @@ -46,7 +46,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(2, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -57,7 +57,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - cblas_xerbla(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -88,7 +88,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - cblas_xerbla(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_zsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_zsyr2k", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_zsyr2k", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zsyrk.c b/CBLAS/src/cblas_zsyrk.c index 2d5f3394bf..4f5b6b325c 100644 --- a/CBLAS/src/cblas_zsyrk.c +++ b/CBLAS/src/cblas_zsyrk.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_zsyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *beta, void *C, const CBLAS_INT ldc) @@ -44,7 +44,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(2, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - cblas_xerbla(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -86,7 +86,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - cblas_xerbla(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans); + API_SUFFIX(cblas_xerbla)(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -100,7 +100,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_zsyrk(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, beta, C, &F77_ldc); } - else cblas_xerbla(1, "cblas_zsyrk", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_zsyrk", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ztbmv.c b/CBLAS/src/cblas_ztbmv.c index 437f40c882..3b6f17e236 100644 --- a/CBLAS/src/cblas_ztbmv.c +++ b/CBLAS/src/cblas_ztbmv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ztbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX) @@ -43,7 +43,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ztbmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztbmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -151,7 +151,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else cblas_xerbla(1, "cblas_ztbmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ztbmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ztbsv.c b/CBLAS/src/cblas_ztbsv.c index 1e286bf90d..ea6b4d3b08 100644 --- a/CBLAS/src/cblas_ztbsv.c +++ b/CBLAS/src/cblas_ztbsv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ztbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX) @@ -43,7 +43,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -118,7 +118,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -128,7 +128,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -155,7 +155,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else cblas_xerbla(1, "cblas_ztbsv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ztbsv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ztpmv.c b/CBLAS/src/cblas_ztpmv.c index 7b65e3cd2f..119b6bcdd3 100644 --- a/CBLAS/src/cblas_ztpmv.c +++ b/CBLAS/src/cblas_ztpmv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ztpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX) { @@ -40,7 +40,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -50,7 +50,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -110,7 +110,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -120,7 +120,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -145,7 +145,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else cblas_xerbla(1, "cblas_ztpmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ztpmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ztpsv.c b/CBLAS/src/cblas_ztpsv.c index 142f971a53..d907d2f706 100644 --- a/CBLAS/src/cblas_ztpsv.c +++ b/CBLAS/src/cblas_ztpsv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ztpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX) { @@ -40,7 +40,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -50,7 +50,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -150,7 +150,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else cblas_xerbla(1, "cblas_ztpsv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ztpsv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ztrmm.c b/CBLAS/src/cblas_ztrmm.c index a34e710675..4b93f8e3a6 100644 --- a/CBLAS/src/cblas_ztrmm.c +++ b/CBLAS/src/cblas_ztrmm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_ztrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, @@ -45,7 +45,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -96,7 +96,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -106,7 +106,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -117,7 +117,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -127,7 +127,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -142,7 +142,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_ztrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb); } - else cblas_xerbla(1, "cblas_ztrmm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ztrmm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ztrmv.c b/CBLAS/src/cblas_ztrmv.c index fff888005e..f28fb19db4 100644 --- a/CBLAS/src/cblas_ztrmv.c +++ b/CBLAS/src/cblas_ztrmv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ztrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX) @@ -43,7 +43,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -149,7 +149,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else cblas_xerbla(1, "cblas_ztrmv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ztrmv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ztrsm.c b/CBLAS/src/cblas_ztrsm.c index f34b5631b6..f6d777e2ff 100644 --- a/CBLAS/src/cblas_ztrsm.c +++ b/CBLAS/src/cblas_ztrsm.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void API_SUFFIX(cblas_ztrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, @@ -46,7 +46,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - cblas_xerbla(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -56,7 +56,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - cblas_xerbla(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -67,7 +67,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -77,7 +77,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -100,7 +100,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - cblas_xerbla(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -110,7 +110,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - cblas_xerbla(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -121,7 +121,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - cblas_xerbla(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -131,7 +131,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - cblas_xerbla(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -148,7 +148,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_ztrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb); } - else cblas_xerbla(1, "cblas_ztrsm", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ztrsm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_ztrsv.c b/CBLAS/src/cblas_ztrsv.c index 1822bc8053..bbdbd8ff1a 100644 --- a/CBLAS/src/cblas_ztrsv.c +++ b/CBLAS/src/cblas_ztrsv.c @@ -7,7 +7,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void API_SUFFIX(cblas_ztrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX) @@ -42,7 +42,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - cblas_xerbla(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -52,7 +52,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -61,7 +61,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -81,7 +81,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - cblas_xerbla(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo); + API_SUFFIX(cblas_xerbla)(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA); + API_SUFFIX(cblas_xerbla)(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - cblas_xerbla(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag); + API_SUFFIX(cblas_xerbla)(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -149,7 +149,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else cblas_xerbla(1, "cblas_ztrsv", "Illegal layout setting, %d\n", layout); + else API_SUFFIX(cblas_xerbla)(1, "cblas_ztrsv", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/xerbla.c b/CBLAS/src/xerbla.c index fbe4415042..06ac7cfa12 100644 --- a/CBLAS/src/xerbla.c +++ b/CBLAS/src/xerbla.c @@ -40,7 +40,7 @@ F77_xerbla_base { for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]); rout[XerblaStrLen+6] = '\0'; - cblas_xerbla(*info+1,rout,""); + API_SUFFIX(cblas_xerbla)(*info+1,rout,""); } else { diff --git a/CMAKE/CheckLAPACKCompilerFlags.cmake b/CMAKE/CheckLAPACKCompilerFlags.cmake index 079ad1e4c1..11a5461927 100644 --- a/CMAKE/CheckLAPACKCompilerFlags.cmake +++ b/CMAKE/CheckLAPACKCompilerFlags.cmake @@ -15,33 +15,35 @@ macro( CheckLAPACKCompilerFlags ) set( FPE_EXIT FALSE ) # FORTRAN ILP default -if ( FORTRAN_ILP ) - if( CMAKE_Fortran_COMPILER_ID STREQUAL "Intel" ) - if ( WIN32 ) - set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} /integer-size:64") - else () - set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -integer-size 64") - endif() - elseif( (CMAKE_Fortran_COMPILER_ID STREQUAL "VisualAge" ) OR # CMake 2.6 - (CMAKE_Fortran_COMPILER_ID STREQUAL "XL" ) ) # CMake 2.8 - set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -qintsize=8") - elseif( CMAKE_Fortran_COMPILER_ID STREQUAL "NAG" ) - if ( WIN32 ) - set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} /i8") - else () - set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -i8") - endif() +set(FOPT_ILP64) +if( CMAKE_Fortran_COMPILER_ID STREQUAL "Intel" ) + if ( WIN32 ) + set(FOPT_ILP64 /integer-size:64) + else () + set(FOPT_ILP64 -integer-size 64) + endif() +elseif( (CMAKE_Fortran_COMPILER_ID STREQUAL "VisualAge" ) OR # CMake 2.6 + (CMAKE_Fortran_COMPILER_ID STREQUAL "XL" ) ) # CMake 2.8 + set(FOPT_ILP64 -qintsize=8) +elseif( CMAKE_Fortran_COMPILER_ID STREQUAL "NAG" ) + if ( WIN32 ) + set(FOPT_ILP64 /i8) + else () + set(FOPT_ILP64 -i8) + endif() +else() + set(CPE_ENV $ENV{PE_ENV}) + if(CPE_ENV STREQUAL "CRAY") + set(FOPT_ILP64 -sinteger64) + elseif(CPE_ENV STREQUAL "NVIDIA") + set(FOPT_ILP64 -i8) else() - set(CPE_ENV $ENV{PE_ENV}) - if(CPE_ENV STREQUAL "CRAY") - set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -sinteger64") - elseif(CPE_ENV STREQUAL "NVIDIA") - set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -i8") - else() - set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -fdefault-integer-8") - endif() + set(FOPT_ILP64 -fdefault-integer-8) endif() endif() +if ( FORTRAN_ILP ) + set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} ${FOPT_ILP64}") +endif() # GNU Fortran if( CMAKE_Fortran_COMPILER_ID STREQUAL "GNU" ) diff --git a/CMakeLists.txt b/CMakeLists.txt index 7ecf8a5094..df253f0e18 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -99,6 +99,8 @@ else() set(LAPACKELIB "lapacke") set(TMGLIB "tmglib") endif() +# By default build standard API and extended _64 API +option(BUILD_INDEX64_EXT_API "Build Index-64 API as extended API with _64 suffix" ON) include(GNUInstallDirs) From b48dd0df137b458e0e27ca8cd739cd5255bb08e5 Mon Sep 17 00:00:00 2001 From: Maria Kraynyuk Date: Thu, 22 Jun 2023 15:56:15 -0700 Subject: [PATCH 2/2] Make blas dependency public for cblas --- CBLAS/src/CMakeLists.txt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/CBLAS/src/CMakeLists.txt b/CBLAS/src/CMakeLists.txt index 750cc2738c..16eed8bfab 100644 --- a/CBLAS/src/CMakeLists.txt +++ b/CBLAS/src/CMakeLists.txt @@ -168,5 +168,5 @@ target_include_directories(${CBLASLIB} PUBLIC $ $ ) -target_link_libraries(${CBLASLIB} PRIVATE ${BLAS_LIBRARIES}) +target_link_libraries(${CBLASLIB} PUBLIC ${BLAS_LIBRARIES}) lapack_install_library(${CBLASLIB})