diff --git a/BLAS/SRC/CMakeLists.txt b/BLAS/SRC/CMakeLists.txt index 8b9e1397d8..4e5894f4d0 100644 --- a/BLAS/SRC/CMakeLists.txt +++ b/BLAS/SRC/CMakeLists.txt @@ -109,35 +109,7 @@ if(BUILD_COMPLEX16) endif() list(REMOVE_DUPLICATES 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} - $ - $<$: $>) - +add_library(${BLASLIB} ${SOURCES}) set_target_properties( ${BLASLIB} PROPERTIES VERSION ${LAPACK_VERSION} diff --git a/BLAS/SRC/cgbmv.f b/BLAS/SRC/cgbmv.f index 49a635d634..42a1da0335 100644 --- a/BLAS/SRC/cgbmv.f +++ b/BLAS/SRC/cgbmv.f @@ -183,8 +183,7 @@ *> \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 7d3d8d8dab..baefe21e8b 100644 --- a/BLAS/SRC/cgemm.f +++ b/BLAS/SRC/cgemm.f @@ -183,8 +183,7 @@ *> \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 db3826fc67..5d66dda3d5 100644 --- a/BLAS/SRC/chemm.f +++ b/BLAS/SRC/chemm.f @@ -238,11 +238,9 @@ 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 831bdef693..ff6a6bf05b 100644 --- a/BLAS/SRC/csymm.f +++ b/BLAS/SRC/csymm.f @@ -236,11 +236,9 @@ 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 cc07f6c32b..c0be8f4ea5 100644 --- a/BLAS/SRC/ctbmv.f +++ b/BLAS/SRC/ctbmv.f @@ -223,12 +223,10 @@ 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 f1f7076174..b3600e4636 100644 --- a/BLAS/SRC/ctbsv.f +++ b/BLAS/SRC/ctbsv.f @@ -226,12 +226,10 @@ 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 1a37753c69..b4651a2a39 100644 --- a/BLAS/SRC/ctpmv.f +++ b/BLAS/SRC/ctpmv.f @@ -179,12 +179,10 @@ 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 b5cab53a88..d306cc2380 100644 --- a/BLAS/SRC/ctpsv.f +++ b/BLAS/SRC/ctpsv.f @@ -181,12 +181,10 @@ 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 a015fe990d..2597372136 100644 --- a/BLAS/SRC/ctrmm.f +++ b/BLAS/SRC/ctrmm.f @@ -233,8 +233,7 @@ 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 1c312946f8..2404b3deb1 100644 --- a/BLAS/SRC/ctrmv.f +++ b/BLAS/SRC/ctrmv.f @@ -184,12 +184,10 @@ 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 b59a831ce9..7da6cfe59a 100644 --- a/BLAS/SRC/ctrsm.f +++ b/BLAS/SRC/ctrsm.f @@ -236,8 +236,7 @@ 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 77704c9637..de0640e4bd 100644 --- a/BLAS/SRC/ctrsv.f +++ b/BLAS/SRC/ctrsv.f @@ -186,12 +186,10 @@ 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 d31ea24ca9..4c8f088b00 100644 --- a/BLAS/SRC/dgbmv.f +++ b/BLAS/SRC/dgbmv.f @@ -181,8 +181,7 @@ *> \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 6814603357..8c1b4f2066 100644 --- a/BLAS/SRC/dgemm.f +++ b/BLAS/SRC/dgemm.f @@ -183,8 +183,7 @@ *> \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 0ddffec7b7..683e79f6ad 100644 --- a/BLAS/SRC/dsymm.f +++ b/BLAS/SRC/dsymm.f @@ -234,8 +234,7 @@ 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 443415e05e..646fb9bf55 100644 --- a/BLAS/SRC/dtbmv.f +++ b/BLAS/SRC/dtbmv.f @@ -223,12 +223,10 @@ 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 002ed590a8..d4ab7c65ac 100644 --- a/BLAS/SRC/dtbsv.f +++ b/BLAS/SRC/dtbsv.f @@ -226,12 +226,10 @@ 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 48b3035551..32ab147f77 100644 --- a/BLAS/SRC/dtpmv.f +++ b/BLAS/SRC/dtpmv.f @@ -176,12 +176,10 @@ 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 3246ac21dd..853d0dab0c 100644 --- a/BLAS/SRC/dtpsv.f +++ b/BLAS/SRC/dtpsv.f @@ -178,12 +178,10 @@ 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 16b1d48e25..b2cc0a1fa8 100644 --- a/BLAS/SRC/dtrmm.f +++ b/BLAS/SRC/dtrmm.f @@ -230,8 +230,7 @@ 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 3ecd67ae25..e8af8e6136 100644 --- a/BLAS/SRC/dtrmv.f +++ b/BLAS/SRC/dtrmv.f @@ -184,12 +184,10 @@ 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 53bac55b4a..fa8080bc92 100644 --- a/BLAS/SRC/dtrsm.f +++ b/BLAS/SRC/dtrsm.f @@ -234,8 +234,7 @@ 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 bf1e760c1b..d8ea9fa898 100644 --- a/BLAS/SRC/dtrsv.f +++ b/BLAS/SRC/dtrsv.f @@ -180,12 +180,10 @@ 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 a79a833f7e..b5211eec99 100644 --- a/BLAS/SRC/sgbmv.f +++ b/BLAS/SRC/sgbmv.f @@ -181,8 +181,7 @@ *> \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 0757ee4859..d25a152116 100644 --- a/BLAS/SRC/sgemm.f +++ b/BLAS/SRC/sgemm.f @@ -183,8 +183,7 @@ *> \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 bfa8d16336..3147bd619e 100644 --- a/BLAS/SRC/ssymm.f +++ b/BLAS/SRC/ssymm.f @@ -234,11 +234,9 @@ 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 31c8dcb5f9..09273a1b1b 100644 --- a/BLAS/SRC/stbmv.f +++ b/BLAS/SRC/stbmv.f @@ -223,12 +223,10 @@ 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 8f9aeef6c7..5f37cf7195 100644 --- a/BLAS/SRC/stbsv.f +++ b/BLAS/SRC/stbsv.f @@ -226,12 +226,10 @@ 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 d56e90b312..9e77c1e70d 100644 --- a/BLAS/SRC/stpmv.f +++ b/BLAS/SRC/stpmv.f @@ -176,12 +176,10 @@ 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 2c91d626e4..40b1ffb2c7 100644 --- a/BLAS/SRC/stpsv.f +++ b/BLAS/SRC/stpsv.f @@ -178,12 +178,10 @@ 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 e353e28df4..9aa2ac260c 100644 --- a/BLAS/SRC/strmm.f +++ b/BLAS/SRC/strmm.f @@ -230,8 +230,7 @@ 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 0982b51c81..6f5a3e8fd4 100644 --- a/BLAS/SRC/strmv.f +++ b/BLAS/SRC/strmv.f @@ -184,12 +184,10 @@ 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 006c16e81d..6e97c52d86 100644 --- a/BLAS/SRC/strsm.f +++ b/BLAS/SRC/strsm.f @@ -234,8 +234,7 @@ 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 435082b147..e228ea90c1 100644 --- a/BLAS/SRC/strsv.f +++ b/BLAS/SRC/strsv.f @@ -186,12 +186,10 @@ 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 90b6cef3d0..0bca54eb9e 100644 --- a/BLAS/SRC/zgbmv.f +++ b/BLAS/SRC/zgbmv.f @@ -183,8 +183,7 @@ *> \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 4727310a30..0b712f1b73 100644 --- a/BLAS/SRC/zgemm.f +++ b/BLAS/SRC/zgemm.f @@ -183,8 +183,7 @@ *> \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 bed14cb9a4..9ebbab2c77 100644 --- a/BLAS/SRC/zhemm.f +++ b/BLAS/SRC/zhemm.f @@ -238,11 +238,9 @@ 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 da491f1aee..3ec8a8db7a 100644 --- a/BLAS/SRC/zsymm.f +++ b/BLAS/SRC/zsymm.f @@ -236,11 +236,9 @@ 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 347a71af86..6be39d04e1 100644 --- a/BLAS/SRC/ztbmv.f +++ b/BLAS/SRC/ztbmv.f @@ -223,12 +223,10 @@ 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 bbc8cef968..41b540774a 100644 --- a/BLAS/SRC/ztbsv.f +++ b/BLAS/SRC/ztbsv.f @@ -226,12 +226,10 @@ 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 27ae4d8a81..363fd5a2ac 100644 --- a/BLAS/SRC/ztpmv.f +++ b/BLAS/SRC/ztpmv.f @@ -179,12 +179,10 @@ 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 a29a26dba4..c6f24d0b27 100644 --- a/BLAS/SRC/ztpsv.f +++ b/BLAS/SRC/ztpsv.f @@ -181,12 +181,10 @@ 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 4b7deb1199..c59c367cee 100644 --- a/BLAS/SRC/ztrmm.f +++ b/BLAS/SRC/ztrmm.f @@ -233,8 +233,7 @@ 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 e50bfdb089..e8314facb7 100644 --- a/BLAS/SRC/ztrmv.f +++ b/BLAS/SRC/ztrmv.f @@ -184,12 +184,10 @@ 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 aed1eabf8b..7f7eb52f3e 100644 --- a/BLAS/SRC/ztrsm.f +++ b/BLAS/SRC/ztrsm.f @@ -236,8 +236,7 @@ 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 8b41871cdf..0bb9cbe745 100644 --- a/BLAS/SRC/ztrsv.f +++ b/BLAS/SRC/ztrsv.f @@ -186,12 +186,10 @@ 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 61042430ee..74f7d8bb83 100644 --- a/CBLAS/examples/CMakeLists.txt +++ b/CBLAS/examples/CMakeLists.txt @@ -6,14 +6,3 @@ 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 deleted file mode 100644 index b8066db270..0000000000 --- a/CBLAS/examples/cblas_example1_64.c +++ /dev/null @@ -1,69 +0,0 @@ -/* 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 deleted file mode 100644 index f3d59a81f0..0000000000 --- a/CBLAS/examples/cblas_example2_64.c +++ /dev/null @@ -1,74 +0,0 @@ -/* 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 0fd5e586ed..059bca0096 100644 --- a/CBLAS/include/CMakeLists.txt +++ b/CBLAS/include/CMakeLists.txt @@ -1,4 +1,4 @@ -set(CBLAS_INCLUDE cblas.h cblas_f77.h cblas_64.h) +set(CBLAS_INCLUDE cblas.h cblas_f77.h) file(COPY ${CBLAS_INCLUDE} DESTINATION ${LAPACK_BINARY_DIR}/include) diff --git a/CBLAS/include/cblas.h b/CBLAS/include/cblas.h index 171ff1d609..124baf17e8 100644 --- a/CBLAS/include/cblas.h +++ b/CBLAS/include/cblas.h @@ -46,19 +46,6 @@ 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 deleted file mode 100644 index 3901ecf446..0000000000 --- a/CBLAS/include/cblas_64.h +++ /dev/null @@ -1,584 +0,0 @@ -#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 b9a1172e29..9e8fbb6da7 100644 --- a/CBLAS/include/cblas_f77.h +++ b/CBLAS/include/cblas_f77.h @@ -42,180 +42,166 @@ #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_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) +#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) /* * Level 2 BLAS */ -#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) +#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) /* * Level 3 BLAS */ -#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) +#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) /* * Level 1 Fortran variadic definitions diff --git a/CBLAS/src/CMakeLists.txt b/CBLAS/src/CMakeLists.txt index fbadd5259c..a8152297a9 100644 --- a/CBLAS/src/CMakeLists.txt +++ b/CBLAS/src/CMakeLists.txt @@ -117,41 +117,7 @@ if(BUILD_COMPLEX16) endif() list(REMOVE_DUPLICATES SOURCES) -add_library(${CBLASLIB}_obj OBJECT ${SOURCES}) -target_compile_options(${CBLASLIB}_obj PRIVATE -fPIC) - -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) - list(APPEND COPT_64_F -cpp) - 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}) - target_compile_options(${CBLASLIB}_64_cobj PRIVATE -DWeirdNEC -DCBLAS_API64 -fPIC) - target_compile_options(${CBLASLIB}_64_fobj PRIVATE -fPIC ${FOPT_ILP64} ${COPT_64_F}) -endif() - -add_library(${CBLASLIB} - $ - $<$: $> - $<$: $>) - +add_library(${CBLASLIB} ${SOURCES}) set_target_properties( ${CBLASLIB} PROPERTIES LINKER_LANGUAGE C diff --git a/CBLAS/src/cblas_caxpy.c b/CBLAS/src/cblas_caxpy.c index f38ee4cb62..d4288f7423 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 API_SUFFIX(cblas_caxpy)( const CBLAS_INT N, const void *alpha, const void *X, +void 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 04ee03f860..cae561ae3d 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 API_SUFFIX(cblas_ccopy)( const CBLAS_INT N, const void *X, +void 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 cd7958bda0..81520ebd18 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 API_SUFFIX(cblas_cdotc_sub)( const CBLAS_INT N, const void *X, const CBLAS_INT incX, +void 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 e513fed057..0f7ded90b9 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 API_SUFFIX(cblas_cdotu_sub)( const CBLAS_INT N, const void *X, const CBLAS_INT incX, +void 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 28abf9493b..c2d9b212f7 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 API_SUFFIX(cblas_cgbmv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_cgbmv)(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -131,7 +131,7 @@ void API_SUFFIX(cblas_cgbmv)(const CBLAS_LAYOUT layout, } else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -159,7 +159,7 @@ void API_SUFFIX(cblas_cgbmv)(const CBLAS_LAYOUT layout, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_cgbmv", "Illegal layout setting, %d\n", layout); + else 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 fe4b599a19..0ad99267d2 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 API_SUFFIX(cblas_cgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, +void 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 API_SUFFIX(cblas_cgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void API_SUFFIX(cblas_cgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransB == CblasNoTrans ) TB='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB); + cblas_xerbla(3, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -79,7 +79,7 @@ void API_SUFFIX(cblas_cgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransA == CblasNoTrans ) TB='N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -89,7 +89,7 @@ void API_SUFFIX(cblas_cgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransB == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB); + cblas_xerbla(2, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void API_SUFFIX(cblas_cgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr F77_cgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, alpha, B, &F77_ldb, A, &F77_lda, beta, C, &F77_ldc); } - else API_SUFFIX(cblas_xerbla)(1, "cblas_cgemm", "Illegal layout setting, %d\n", layout); + else 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 011bd60db0..1147242707 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 API_SUFFIX(cblas_cgemv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_cgemv)(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -126,7 +126,7 @@ void API_SUFFIX(cblas_cgemv)(const CBLAS_LAYOUT layout, } else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -155,7 +155,7 @@ void API_SUFFIX(cblas_cgemv)(const CBLAS_LAYOUT layout, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_cgemv", "Illegal layout setting, %d\n", layout); + else 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 905e32ae48..a558417e64 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 API_SUFFIX(cblas_cgerc)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, +void 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 API_SUFFIX(cblas_cgerc)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const if(Y!=y) free(y); - } else API_SUFFIX(cblas_xerbla)(1, "cblas_cgerc", "Illegal layout setting, %d\n", layout); + } else 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 ea5b74bc4a..6cca83e6fc 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 API_SUFFIX(cblas_cgeru)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, +void 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 API_SUFFIX(cblas_cgeru)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const F77_cgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A, &F77_lda); } - else API_SUFFIX(cblas_xerbla)(1, "cblas_cgeru","Illegal layout setting, %d\n", layout); + else 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 9b3c53d27b..13e3920ee7 100644 --- a/CBLAS/src/cblas_chbmv.c +++ b/CBLAS/src/cblas_chbmv.c @@ -9,7 +9,7 @@ #include "cblas_f77.h" #include #include -void API_SUFFIX(cblas_chbmv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_chbmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_chbmv","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_chbmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -120,7 +120,7 @@ void API_SUFFIX(cblas_chbmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_chbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_chbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -133,7 +133,7 @@ void API_SUFFIX(cblas_chbmv)(const CBLAS_LAYOUT layout, } else { - API_SUFFIX(cblas_xerbla)(1, "cblas_chbmv","Illegal layout setting, %d\n", layout); + 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 4dd7b5c1ad..9ccb18a3af 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 API_SUFFIX(cblas_chemm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_chemm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_chemm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_chemm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void API_SUFFIX(cblas_chemm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void API_SUFFIX(cblas_chemm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_chemm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_chemm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -85,7 +85,7 @@ void API_SUFFIX(cblas_chemm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -99,7 +99,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_chemm", "Illegal layout setting, %d\n", layout); + else 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 29a224b027..8c4eadf101 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 API_SUFFIX(cblas_chemv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_chemv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_chemv","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_chemv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -121,7 +121,7 @@ void API_SUFFIX(cblas_chemv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_chemv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_chemv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -134,7 +134,7 @@ void API_SUFFIX(cblas_chemv)(const CBLAS_LAYOUT layout, } else { - API_SUFFIX(cblas_xerbla)(1, "cblas_chemv","Illegal layout setting, %d\n", layout); + 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 a87f9f60cc..d1cb2068b7 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 API_SUFFIX(cblas_cher)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_cher)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cher","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_cher","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void API_SUFFIX(cblas_cher)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cher","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_cher","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void API_SUFFIX(cblas_cher)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_cher(F77_UL, &F77_N, &alpha, x, &F77_incX, A, &F77_lda); } else { - API_SUFFIX(cblas_xerbla)(1, "cblas_cher","Illegal layout setting, %d\n", layout); + 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 25fe871aa0..ff03216d74 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 API_SUFFIX(cblas_cher2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_cher2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cher2","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_cher2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void API_SUFFIX(cblas_cher2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cher2","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_cher2","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -136,7 +136,7 @@ void API_SUFFIX(cblas_cher2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, &F77_incX, A, &F77_lda); } else { - API_SUFFIX(cblas_xerbla)(1, "cblas_cher2","Illegal layout setting, %d\n", layout); + 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 31c81ac8ab..a1452a9efe 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 API_SUFFIX(cblas_cher2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_cher2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void API_SUFFIX(cblas_cher2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void API_SUFFIX(cblas_cher2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -90,7 +90,7 @@ void API_SUFFIX(cblas_cher2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -104,7 +104,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_cher2k", "Illegal layout setting, %d\n", layout); + else 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 4ac61bab26..0395408dc8 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 API_SUFFIX(cblas_cherk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_cherk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void API_SUFFIX(cblas_cherk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -74,7 +74,7 @@ void API_SUFFIX(cblas_cherk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -84,7 +84,7 @@ void API_SUFFIX(cblas_cherk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -98,7 +98,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_cherk", "Illegal layout setting, %d\n", layout); + else 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 06573105fe..f30dafc1bf 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 API_SUFFIX(cblas_chpmv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_chpmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_chpmv","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_chpmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -119,7 +119,7 @@ void API_SUFFIX(cblas_chpmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_chpmv","Illegal Uplo setting, %d\n", Uplo ); + cblas_xerbla(2, "cblas_chpmv","Illegal Uplo setting, %d\n", Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -133,7 +133,7 @@ void API_SUFFIX(cblas_chpmv)(const CBLAS_LAYOUT layout, } else { - API_SUFFIX(cblas_xerbla)(1, "cblas_chpmv","Illegal layout setting, %d\n", layout); + 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 5ec037ce40..f2a410270a 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 API_SUFFIX(cblas_chpr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_chpr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_chpr","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_chpr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void API_SUFFIX(cblas_chpr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_chpr","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_chpr","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void API_SUFFIX(cblas_chpr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(1, "cblas_chpr","Illegal layout setting, %d\n", layout); + 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 03ec322052..4ed87677f4 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 API_SUFFIX(cblas_chpr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_chpr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_chpr2","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_chpr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -61,7 +61,7 @@ void API_SUFFIX(cblas_chpr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_chpr2","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_chpr2","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -134,7 +134,7 @@ void API_SUFFIX(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 { - API_SUFFIX(cblas_xerbla)(1, "cblas_chpr2","Illegal layout setting, %d\n", layout); + 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 7f489ccdce..36ca354b0c 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 API_SUFFIX(cblas_crotg)(void *a, void *b, float *c, void *s) +void 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 6e35d5885a..63574ac97b 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 API_SUFFIX(cblas_cscal)( const CBLAS_INT N, const void *alpha, void *X, +void 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 4f6164029a..39963c034a 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 API_SUFFIX(cblas_csrot)(const CBLAS_INT N, void *X, const CBLAS_INT incX, +void 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 df6952d070..19ba383fea 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 API_SUFFIX(cblas_csscal)( const CBLAS_INT N, const float alpha, void *X, +void 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 8a2bfe5c0f..7f45e54b53 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 API_SUFFIX(cblas_cswap)( const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, +void 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 15827e7fca..c277e38f4c 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 API_SUFFIX(cblas_csymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_csymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_csymm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_csymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void API_SUFFIX(cblas_csymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void API_SUFFIX(cblas_csymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_csymm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_csymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -85,7 +85,7 @@ void API_SUFFIX(cblas_csymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -99,7 +99,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_csymm", "Illegal layout setting, %d\n", layout); + else 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 e564a9043a..ba960ea414 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 API_SUFFIX(cblas_csyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_csyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -57,7 +57,7 @@ void API_SUFFIX(cblas_csyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void API_SUFFIX(cblas_csyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -88,7 +88,7 @@ void API_SUFFIX(cblas_csyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_csyr2k", "Illegal layout setting, %d\n", layout); + else 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 21c32d0c3c..1e720f0827 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 API_SUFFIX(cblas_csyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_csyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void API_SUFFIX(cblas_csyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void API_SUFFIX(cblas_csyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -86,7 +86,7 @@ void API_SUFFIX(cblas_csyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -100,7 +100,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_csyrk", "Illegal layout setting, %d\n", layout); + else 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 d86697b100..5a0571b9bd 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 API_SUFFIX(cblas_ctbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ctbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void API_SUFFIX(cblas_ctbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void API_SUFFIX(cblas_ctbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctbmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ctbmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void API_SUFFIX(cblas_ctbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void API_SUFFIX(cblas_ctbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void API_SUFFIX(cblas_ctbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(4, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -151,7 +151,7 @@ void API_SUFFIX(cblas_ctbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ctbmv", "Illegal layout setting, %d\n", layout); + else 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 5aaaabdf25..8faef87850 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 API_SUFFIX(cblas_ctbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ctbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void API_SUFFIX(cblas_ctbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void API_SUFFIX(cblas_ctbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void API_SUFFIX(cblas_ctbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -118,7 +118,7 @@ void API_SUFFIX(cblas_ctbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -128,7 +128,7 @@ void API_SUFFIX(cblas_ctbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -155,7 +155,7 @@ void API_SUFFIX(cblas_ctbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ctbsv", "Illegal layout setting, %d\n", layout); + else 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 97a45d383b..6e8d7cc8e7 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 API_SUFFIX(cblas_ctpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ctpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -50,7 +50,7 @@ void API_SUFFIX(cblas_ctpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void API_SUFFIX(cblas_ctpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void API_SUFFIX(cblas_ctpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -110,7 +110,7 @@ void API_SUFFIX(cblas_ctpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -120,7 +120,7 @@ void API_SUFFIX(cblas_ctpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -145,7 +145,7 @@ void API_SUFFIX(cblas_ctpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ctpmv", "Illegal layout setting, %d\n", layout); + else 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 4b9be145af..08091d255a 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 API_SUFFIX(cblas_ctpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ctpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -50,7 +50,7 @@ void API_SUFFIX(cblas_ctpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void API_SUFFIX(cblas_ctpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void API_SUFFIX(cblas_ctpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void API_SUFFIX(cblas_ctpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void API_SUFFIX(cblas_ctpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -150,7 +150,7 @@ void API_SUFFIX(cblas_ctpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ctpsv", "Illegal layout setting, %d\n", layout); + else 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 75dee5b864..46a98bb845 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 API_SUFFIX(cblas_ctrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_ctrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void API_SUFFIX(cblas_ctrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void API_SUFFIX(cblas_ctrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -73,7 +73,7 @@ void API_SUFFIX(cblas_ctrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else API_SUFFIX(cblas_xerbla)(5, "cblas_ctrmm", + else cblas_xerbla(5, "cblas_ctrmm", "Illegal Diag setting, %d\n", Diag); #ifdef F77_CHAR @@ -91,7 +91,7 @@ void API_SUFFIX(cblas_ctrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void API_SUFFIX(cblas_ctrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -112,7 +112,7 @@ void API_SUFFIX(cblas_ctrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -122,7 +122,7 @@ void API_SUFFIX(cblas_ctrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_ctrmm", "Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_ctrmm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -137,7 +137,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_ctrmm", "Illegal layout setting, %d\n", layout); + else 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 32dabd786e..8fcb79a3f1 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 API_SUFFIX(cblas_ctrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ctrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void API_SUFFIX(cblas_ctrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void API_SUFFIX(cblas_ctrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void API_SUFFIX(cblas_ctrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -113,7 +113,7 @@ void API_SUFFIX(cblas_ctrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -123,7 +123,7 @@ void API_SUFFIX(cblas_ctrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -148,7 +148,7 @@ void API_SUFFIX(cblas_ctrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ctrmv", "Illegal layout setting, %d\n", layout); + else 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 7d492f2ab4..9e42f9aa00 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 API_SUFFIX(cblas_ctrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_ctrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -56,7 +56,7 @@ void API_SUFFIX(cblas_ctrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -67,7 +67,7 @@ void API_SUFFIX(cblas_ctrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -77,7 +77,7 @@ void API_SUFFIX(cblas_ctrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -100,7 +100,7 @@ void API_SUFFIX(cblas_ctrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -110,7 +110,7 @@ void API_SUFFIX(cblas_ctrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -121,7 +121,7 @@ void API_SUFFIX(cblas_ctrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -131,7 +131,7 @@ void API_SUFFIX(cblas_ctrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -148,7 +148,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_ctrsm", "Illegal layout setting, %d\n", layout); + else 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 41a9440472..e0447d3009 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 API_SUFFIX(cblas_ctrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ctrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -52,7 +52,7 @@ void API_SUFFIX(cblas_ctrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -61,7 +61,7 @@ void API_SUFFIX(cblas_ctrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -81,7 +81,7 @@ void API_SUFFIX(cblas_ctrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void API_SUFFIX(cblas_ctrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void API_SUFFIX(cblas_ctrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -149,7 +149,7 @@ void API_SUFFIX(cblas_ctrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ctrsv", "Illegal layout setting, %d\n", layout); + else 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 3b7abd06a6..67e257a7f2 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 API_SUFFIX(cblas_dasum)( const CBLAS_INT N, const double *X, const CBLAS_INT incX) +double 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 9ab57c79d3..1b38e0a936 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 API_SUFFIX(cblas_daxpy)( const CBLAS_INT N, const double alpha, const double *X, +void 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 35e127ddf1..27902e8e40 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 API_SUFFIX(cblas_dcabs1)(const void *c) +double 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 0eec047bea..6eaed67ab1 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 API_SUFFIX(cblas_dcopy)( const CBLAS_INT N, const double *X, +void 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 54afaadc25..c2035a0a7c 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 API_SUFFIX(cblas_ddot)( const CBLAS_INT N, const double *X, +double 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 a0fc8d7aa1..ef2eeff18c 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 API_SUFFIX(cblas_dgbmv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_dgbmv)(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -64,7 +64,7 @@ void API_SUFFIX(cblas_dgbmv)(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dgbmv", "Illegal layout setting, %d\n", layout); + else 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 bee9aa8a68..1dce9cf3e8 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 API_SUFFIX(cblas_dgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, +void 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 API_SUFFIX(cblas_dgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void API_SUFFIX(cblas_dgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransB == CblasNoTrans ) TB='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dgemm","Illegal TransB setting, %d\n", TransB); + cblas_xerbla(3, "cblas_dgemm","Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -79,7 +79,7 @@ void API_SUFFIX(cblas_dgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransA == CblasNoTrans ) TB='N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -89,7 +89,7 @@ void API_SUFFIX(cblas_dgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransB == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dgemm","Illegal TransB setting, %d\n", TransB); + cblas_xerbla(2, "cblas_dgemm","Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void API_SUFFIX(cblas_dgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr F77_dgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, &alpha, B, &F77_ldb, A, &F77_lda, &beta, C, &F77_ldc); } - else API_SUFFIX(cblas_xerbla)(1, "cblas_dgemm", "Illegal layout setting, %d\n", layout); + else 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 80edd756b0..c5d10b791e 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 API_SUFFIX(cblas_dgemv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_dgemv)(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void API_SUFFIX(cblas_dgemv)(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -71,7 +71,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dgemv", "Illegal layout setting, %d\n", layout); + else 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 8e5d687791..fa69dcbb20 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 API_SUFFIX(cblas_dger)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, +void 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 API_SUFFIX(cblas_dger)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const &F77_lda); } - else API_SUFFIX(cblas_xerbla)(1, "cblas_dger", "Illegal layout setting, %d\n", layout); + else 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 3fafa48e5c..48bb1657dd 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 API_SUFFIX(cblas_dnrm2)( const CBLAS_INT N, const double *X, const CBLAS_INT incX) +double 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 410aece4d6..0ecdcb316c 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 API_SUFFIX(cblas_drot)(const CBLAS_INT N, double *X, const CBLAS_INT incX, +void 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 01e5c202ac..a433f4844f 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 API_SUFFIX(cblas_drotg)( double *a, double *b, double *c, double *s) +void 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 a9646d775f..70ac6c1cd9 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 API_SUFFIX(cblas_drotm)( const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, +void 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 f04042ee9b..ad33ba4fd2 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 API_SUFFIX(cblas_drotmg)( double *d1, double *d2, double *b1, +void 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 7bccfae362..1502142c11 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 API_SUFFIX(cblas_dsbmv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_dsbmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dsbmv","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void API_SUFFIX(cblas_dsbmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dsbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -70,7 +70,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dsbmv", "Illegal layout setting, %d\n", layout); + else 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 b5b0d44dfc..b0ecfd4c2c 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 API_SUFFIX(cblas_dscal)( const CBLAS_INT N, const double alpha, double *X, +void 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 f3ce05d244..7141c6f729 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 API_SUFFIX(cblas_dsdot)( const CBLAS_INT N, const float *X, +double 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 14a9a8d31a..864a8883df 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 API_SUFFIX(cblas_dspmv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_dspmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dspmv","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_dspmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void API_SUFFIX(cblas_dspmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dspmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dspmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -69,7 +69,7 @@ void API_SUFFIX(cblas_dspmv)(const CBLAS_LAYOUT layout, F77_dspmv(F77_UL, &F77_N, &alpha, AP, X,&F77_incX, &beta, Y, &F77_incY); } - else API_SUFFIX(cblas_xerbla)(1, "cblas_dspmv", "Illegal layout setting, %d\n", layout); + else 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 ef33968519..5140bc0771 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 API_SUFFIX(cblas_dspr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_dspr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void API_SUFFIX(cblas_dspr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -63,7 +63,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dspr", "Illegal layout setting, %d\n", layout); + } else 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 e18c6672f1..07cde29cfe 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 API_SUFFIX(cblas_dspr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_dspr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void API_SUFFIX(cblas_dspr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -63,7 +63,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dspr2", "Illegal layout setting, %d\n", layout); + } else 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 e78fd2face..7a586f2f67 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 API_SUFFIX(cblas_dswap)( const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, +void 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 3bab6f659e..54a549867a 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 API_SUFFIX(cblas_dsymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_dsymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dsymm","Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_dsymm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void API_SUFFIX(cblas_dsymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void API_SUFFIX(cblas_dsymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dsymm","Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_dsymm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -85,7 +85,7 @@ void API_SUFFIX(cblas_dsymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -99,7 +99,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dsymm","Illegal layout setting, %d\n", layout); + else 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 18607d3637..327a02e6f8 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 API_SUFFIX(cblas_dsymv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_dsymv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dsymv","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_dsymv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void API_SUFFIX(cblas_dsymv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dsymv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dsymv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -69,7 +69,7 @@ void API_SUFFIX(cblas_dsymv)(const CBLAS_LAYOUT layout, F77_dsymv(F77_UL, &F77_N, &alpha, A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY); } - else API_SUFFIX(cblas_xerbla)(1, "cblas_dsymv", "Illegal layout setting, %d\n", layout); + else 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 383d41419c..d58c301735 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 API_SUFFIX(cblas_dsyr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_dsyr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void API_SUFFIX(cblas_dsyr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -64,7 +64,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dsyr", "Illegal layout setting, %d\n", layout); + } else 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 db85bf5216..96ae1f80f0 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 API_SUFFIX(cblas_dsyr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_dsyr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void API_SUFFIX(cblas_dsyr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -69,7 +69,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dsyr2", "Illegal layout setting, %d\n", layout); + } else 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 85e01b2714..3de741dd8e 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 API_SUFFIX(cblas_dsyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_dsyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -57,7 +57,7 @@ void API_SUFFIX(cblas_dsyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void API_SUFFIX(cblas_dsyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -88,7 +88,7 @@ void API_SUFFIX(cblas_dsyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dsyr2k","Illegal layout setting, %d\n", layout); + else 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 dfca582148..835b9eedb7 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 API_SUFFIX(cblas_dsyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_dsyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void API_SUFFIX(cblas_dsyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void API_SUFFIX(cblas_dsyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -86,7 +86,7 @@ void API_SUFFIX(cblas_dsyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -100,7 +100,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dsyrk","Illegal layout setting, %d\n", layout); + else 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 dea9165d96..badcc20189 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 API_SUFFIX(cblas_dtbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_dtbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -51,7 +51,7 @@ void API_SUFFIX(cblas_dtbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void API_SUFFIX(cblas_dtbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtbmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_dtbmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void API_SUFFIX(cblas_dtbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -91,7 +91,7 @@ void API_SUFFIX(cblas_dtbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void API_SUFFIX(cblas_dtbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(4, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -116,7 +116,7 @@ void API_SUFFIX(cblas_dtbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, &F77_incX); } - else API_SUFFIX(cblas_xerbla)(1, "cblas_dtbmv", "Illegal layout setting, %d\n", layout); + else 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 fefca5bd43..afead06808 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 API_SUFFIX(cblas_dtbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_dtbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -51,7 +51,7 @@ void API_SUFFIX(cblas_dtbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void API_SUFFIX(cblas_dtbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void API_SUFFIX(cblas_dtbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -91,7 +91,7 @@ void API_SUFFIX(cblas_dtbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void API_SUFFIX(cblas_dtbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -115,7 +115,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dtbsv", "Illegal layout setting, %d\n", layout); + else 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 bd502fea96..94381aff4f 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 API_SUFFIX(cblas_dtpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_dtpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -48,7 +48,7 @@ void API_SUFFIX(cblas_dtpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -57,7 +57,7 @@ void API_SUFFIX(cblas_dtpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void API_SUFFIX(cblas_dtpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -87,7 +87,7 @@ void API_SUFFIX(cblas_dtpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -97,7 +97,7 @@ void API_SUFFIX(cblas_dtpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -110,7 +110,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dtpmv", "Illegal layout setting, %d\n", layout); + else 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 c7894ca744..53181b253f 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 API_SUFFIX(cblas_dtpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_dtpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -48,7 +48,7 @@ void API_SUFFIX(cblas_dtpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -57,7 +57,7 @@ void API_SUFFIX(cblas_dtpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void API_SUFFIX(cblas_dtpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -87,7 +87,7 @@ void API_SUFFIX(cblas_dtpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -97,7 +97,7 @@ void API_SUFFIX(cblas_dtpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -111,7 +111,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dtpsv", "Illegal layout setting, %d\n", layout); + else 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 1421d5d158..c2ea08a5ba 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 API_SUFFIX(cblas_dtrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_dtrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void API_SUFFIX(cblas_dtrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void API_SUFFIX(cblas_dtrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void API_SUFFIX(cblas_dtrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -96,7 +96,7 @@ void API_SUFFIX(cblas_dtrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -106,7 +106,7 @@ void API_SUFFIX(cblas_dtrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -117,7 +117,7 @@ void API_SUFFIX(cblas_dtrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -127,7 +127,7 @@ void API_SUFFIX(cblas_dtrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -141,7 +141,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dtrmm", "Illegal layout setting, %d\n", layout); + else 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 6ee99a5d81..f2ec535b75 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 API_SUFFIX(cblas_dtrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_dtrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void API_SUFFIX(cblas_dtrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void API_SUFFIX(cblas_dtrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void API_SUFFIX(cblas_dtrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -93,7 +93,7 @@ void API_SUFFIX(cblas_dtrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -103,7 +103,7 @@ void API_SUFFIX(cblas_dtrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -115,7 +115,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dtrmv", "Illegal layout setting, %d\n", layout); + } else 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 a53a8a0609..5fe185d251 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 API_SUFFIX(cblas_dtrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_dtrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void API_SUFFIX(cblas_dtrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -66,7 +66,7 @@ void API_SUFFIX(cblas_dtrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void API_SUFFIX(cblas_dtrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -99,7 +99,7 @@ void API_SUFFIX(cblas_dtrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -109,7 +109,7 @@ void API_SUFFIX(cblas_dtrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -120,7 +120,7 @@ void API_SUFFIX(cblas_dtrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -130,7 +130,7 @@ void API_SUFFIX(cblas_dtrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -146,7 +146,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dtrsm","Illegal layout setting, %d\n", layout); + else 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 527d3c255d..51b49da14d 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 API_SUFFIX(cblas_dtrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_dtrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -51,7 +51,7 @@ void API_SUFFIX(cblas_dtrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void API_SUFFIX(cblas_dtrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void API_SUFFIX(cblas_dtrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -91,7 +91,7 @@ void API_SUFFIX(cblas_dtrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void API_SUFFIX(cblas_dtrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_dtrsv", "Illegal layout setting, %d\n", layout); + else 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 d306ac6dce..b68879860b 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 API_SUFFIX(cblas_dzasum)( const CBLAS_INT N, const void *X, const CBLAS_INT incX) +double 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 92ba052418..f815e15327 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 API_SUFFIX(cblas_dznrm2)( const CBLAS_INT N, const void *X, const CBLAS_INT incX) +double 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 8fc0c592b2..66a12cdab8 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 API_SUFFIX(cblas_icamax)( const CBLAS_INT N, const void *X, const CBLAS_INT incX) +CBLAS_INDEX 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 4d7599f9c5..db016c7cf7 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 API_SUFFIX(cblas_idamax)( const CBLAS_INT N, const double *X, const CBLAS_INT incX) +CBLAS_INDEX 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 8b0f29a3bd..0898a82701 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 API_SUFFIX(cblas_isamax)( const CBLAS_INT N, const float *X, const CBLAS_INT incX) +CBLAS_INDEX 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 20ca0cdb7b..c173e9d44e 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 API_SUFFIX(cblas_izamax)( const CBLAS_INT N, const void *X, const CBLAS_INT incX) +CBLAS_INDEX 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 fcdfbc01b2..091561ed5e 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 API_SUFFIX(cblas_sasum)( const CBLAS_INT N, const float *X, const CBLAS_INT incX) +float 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 8d1541d8a2..2c56f499d6 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 API_SUFFIX(cblas_saxpy)( const CBLAS_INT N, const float alpha, const float *X, +void 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 5899603d9a..8aaf0b9af9 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 API_SUFFIX(cblas_scabs1)(const void *c) +float 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 feda02d751..1f84efefd0 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 API_SUFFIX(cblas_scasum)( const CBLAS_INT N, const void *X, const CBLAS_INT incX) +float 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 a1825816c0..fd66915371 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 API_SUFFIX(cblas_scnrm2)( const CBLAS_INT N, const void *X, const CBLAS_INT incX) +float 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 7f3dcdcc9f..24d3bf5860 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 API_SUFFIX(cblas_scopy)( const CBLAS_INT N, const float *X, +void 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 76e56353a0..a263ae3c42 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 API_SUFFIX(cblas_sdot)( const CBLAS_INT N, const float *X, +float 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 113dd57b65..48694f921e 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 API_SUFFIX(cblas_sdsdot)( const CBLAS_INT N, const float alpha, const float *X, +float 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 e530260e67..3889e5f6d6 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 API_SUFFIX(cblas_sgbmv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_sgbmv)(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void API_SUFFIX(cblas_sgbmv)(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_sgbmv", "Illegal layout setting, %d\n", layout); + else 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 a7b21fb58b..99708a7d7f 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 API_SUFFIX(cblas_sgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, +void 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 API_SUFFIX(cblas_sgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sgemm", + cblas_xerbla(2, "cblas_sgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -58,7 +58,7 @@ void API_SUFFIX(cblas_sgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransB == CblasNoTrans ) TB='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_sgemm", + cblas_xerbla(3, "cblas_sgemm", "Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -79,7 +79,7 @@ void API_SUFFIX(cblas_sgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransA == CblasNoTrans ) TB='N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sgemm", + cblas_xerbla(2, "cblas_sgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -90,7 +90,7 @@ void API_SUFFIX(cblas_sgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransB == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sgemm", + cblas_xerbla(2, "cblas_sgemm", "Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -103,7 +103,7 @@ void API_SUFFIX(cblas_sgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr F77_sgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, &alpha, B, &F77_ldb, A, &F77_lda, &beta, C, &F77_ldc); } else - API_SUFFIX(cblas_xerbla)(1, "cblas_sgemm", + 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 5c95151f9e..14beeb3414 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 API_SUFFIX(cblas_sgemv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_sgemv)(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sgemv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_sgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; } @@ -60,7 +60,7 @@ void API_SUFFIX(cblas_sgemv)(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sgemv", "Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_sgemv", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -71,7 +71,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_sgemv", "Illegal layout setting, %d\n", layout); + else 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 b456a31ad1..ddcdb1d670 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 API_SUFFIX(cblas_sger)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, +void 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 API_SUFFIX(cblas_sger)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const F77_sger( &F77_N, &F77_M, &alpha, Y, &F77_incY, X, &F77_incX, A, &F77_lda); } - else API_SUFFIX(cblas_xerbla)(1, "cblas_sger", "Illegal layout setting, %d\n", layout); + else 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 d1c70be8fd..a2c482bf13 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 API_SUFFIX(cblas_snrm2)( const CBLAS_INT N, const float *X, const CBLAS_INT incX) +float 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 61c4c75042..57fd38bbf7 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 API_SUFFIX(cblas_srot)( const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, +void 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 b96ed1c5c4..4584a29c9a 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 API_SUFFIX(cblas_srotg)( float *a, float *b, float *c, float *s) +void 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 04e3c6438b..7de0970ce0 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 API_SUFFIX(cblas_srotm)( const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, +void 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 6290a6207d..1d84054a02 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 API_SUFFIX(cblas_srotmg)( float *d1, float *d2, float *b1, +void 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 1c85cff6ae..eab4f7bcd7 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 API_SUFFIX(cblas_ssbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ssbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ssbmv","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_ssbmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void API_SUFFIX(cblas_ssbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ssbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ssbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -69,7 +69,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_ssbmv", "Illegal layout setting, %d\n", layout); + else 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 98aecd7133..ad5af245ef 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 API_SUFFIX(cblas_sscal)( const CBLAS_INT N, const float alpha, float *X, +void 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 05e37e8f52..bd9de77e23 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 API_SUFFIX(cblas_sspmv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_sspmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sspmv","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_sspmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -56,7 +56,7 @@ void API_SUFFIX(cblas_sspmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sspmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_sspmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -67,7 +67,7 @@ void API_SUFFIX(cblas_sspmv)(const CBLAS_LAYOUT layout, F77_sspmv(F77_UL, &F77_N, &alpha, AP, X,&F77_incX, &beta, Y, &F77_incY); } - else API_SUFFIX(cblas_xerbla)(1, "cblas_sspmv", "Illegal layout setting, %d\n", layout); + else 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 de4750f167..c24501ed99 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 API_SUFFIX(cblas_sspr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_sspr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -56,7 +56,7 @@ void API_SUFFIX(cblas_sspr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_sspr", "Illegal layout setting, %d\n", layout); + } else 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 1a0e4f5205..88b3bbc705 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 API_SUFFIX(cblas_sspr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_sspr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -56,7 +56,7 @@ void API_SUFFIX(cblas_sspr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_sspr2", "Illegal layout setting, %d\n", layout); + } else 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 cc5a633b09..222993786d 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 API_SUFFIX(cblas_sswap)( const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, +void 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 6d347f5333..b70c09c46b 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 API_SUFFIX(cblas_ssymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_ssymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ssymm", + cblas_xerbla(2, "cblas_ssymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -56,7 +56,7 @@ void API_SUFFIX(cblas_ssymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ssymm", + cblas_xerbla(3, "cblas_ssymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -76,7 +76,7 @@ void API_SUFFIX(cblas_ssymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ssymm", + cblas_xerbla(2, "cblas_ssymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -87,7 +87,7 @@ void API_SUFFIX(cblas_ssymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ssymm", + cblas_xerbla(3, "cblas_ssymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -100,7 +100,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_ssymm", + } else 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 ecd72a12fb..6a005c5487 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 API_SUFFIX(cblas_ssymv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_ssymv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ssymv","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_ssymv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void API_SUFFIX(cblas_ssymv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ssymv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ssymv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -69,7 +69,7 @@ void API_SUFFIX(cblas_ssymv)(const CBLAS_LAYOUT layout, F77_ssymv(F77_UL, &F77_N, &alpha, A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY); } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ssymv", "Illegal layout setting, %d\n", layout); + else 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 2311a47094..8b960fa99f 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 API_SUFFIX(cblas_ssyr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ssyr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void API_SUFFIX(cblas_ssyr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -63,7 +63,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_ssyr", "Illegal layout setting, %d\n", layout); + } else 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 facf1bed87..09512808ae 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 API_SUFFIX(cblas_ssyr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ssyr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void API_SUFFIX(cblas_ssyr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -69,7 +69,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_ssyr2", "Illegal layout setting, %d\n", layout); + } else 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 ca471b8fac..1a375e5df3 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 API_SUFFIX(cblas_ssyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ssyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ssyr2k", + cblas_xerbla(2, "cblas_ssyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -58,7 +58,7 @@ void API_SUFFIX(cblas_ssyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ssyr2k", + cblas_xerbla(3, "cblas_ssyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -79,7 +79,7 @@ void API_SUFFIX(cblas_ssyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ssyr2k", + cblas_xerbla(3, "cblas_ssyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -90,7 +90,7 @@ void API_SUFFIX(cblas_ssyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ssyr2k", + cblas_xerbla(3, "cblas_ssyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -103,7 +103,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_ssyr2k", + } else 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 bf9b985087..3a2373dd6a 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 API_SUFFIX(cblas_ssyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ssyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ssyrk", + cblas_xerbla(2, "cblas_ssyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -56,7 +56,7 @@ void API_SUFFIX(cblas_ssyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ssyrk", + cblas_xerbla(3, "cblas_ssyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -77,7 +77,7 @@ void API_SUFFIX(cblas_ssyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ssyrk", + cblas_xerbla(3, "cblas_ssyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -88,7 +88,7 @@ void API_SUFFIX(cblas_ssyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ssyrk", + cblas_xerbla(3, "cblas_ssyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -101,7 +101,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_ssyrk", + } else 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 9005e747d6..d89dbdd43c 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 API_SUFFIX(cblas_stbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_stbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -51,7 +51,7 @@ void API_SUFFIX(cblas_stbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void API_SUFFIX(cblas_stbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_stbmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_stbmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void API_SUFFIX(cblas_stbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -91,7 +91,7 @@ void API_SUFFIX(cblas_stbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void API_SUFFIX(cblas_stbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(4, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -115,7 +115,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_stbmv", "Illegal layout setting, %d\n", layout); + else 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 c6ef05f8e5..296db6f953 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 API_SUFFIX(cblas_stbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_stbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -51,7 +51,7 @@ void API_SUFFIX(cblas_stbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void API_SUFFIX(cblas_stbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void API_SUFFIX(cblas_stbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -91,7 +91,7 @@ void API_SUFFIX(cblas_stbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void API_SUFFIX(cblas_stbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -115,7 +115,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_stbsv", "Illegal layout setting, %d\n", layout); + else 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 bcc5f215d4..22f9f6b6fd 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 API_SUFFIX(cblas_stpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_stpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -49,7 +49,7 @@ void API_SUFFIX(cblas_stpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void API_SUFFIX(cblas_stpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -77,7 +77,7 @@ void API_SUFFIX(cblas_stpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -88,7 +88,7 @@ void API_SUFFIX(cblas_stpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -98,7 +98,7 @@ void API_SUFFIX(cblas_stpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -111,7 +111,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_stpmv", "Illegal layout setting, %d\n", layout); + else 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 c729fdbb2f..aa3cec9a3b 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 API_SUFFIX(cblas_stpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_stpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -48,7 +48,7 @@ void API_SUFFIX(cblas_stpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -57,7 +57,7 @@ void API_SUFFIX(cblas_stpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void API_SUFFIX(cblas_stpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -87,7 +87,7 @@ void API_SUFFIX(cblas_stpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -97,7 +97,7 @@ void API_SUFFIX(cblas_stpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -111,7 +111,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_stpsv", "Illegal layout setting, %d\n", layout); + else 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 49133e5c4e..658e46f42f 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 API_SUFFIX(cblas_strmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_strmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_strmm","Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_strmm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void API_SUFFIX(cblas_strmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_strmm","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_strmm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void API_SUFFIX(cblas_strmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_strmm","Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_strmm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void API_SUFFIX(cblas_strmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_strmm", "Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_strmm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -96,7 +96,7 @@ void API_SUFFIX(cblas_strmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_strmm","Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_strmm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -106,7 +106,7 @@ void API_SUFFIX(cblas_strmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_strmm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_strmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -117,7 +117,7 @@ void API_SUFFIX(cblas_strmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_strmm", "Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_strmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -127,7 +127,7 @@ void API_SUFFIX(cblas_strmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_strmm","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_strmm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -141,7 +141,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_strmm", "Illegal layout setting, %d\n", layout); + else 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 bd7c14d3ad..57f1841b89 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 API_SUFFIX(cblas_strmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_strmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -52,7 +52,7 @@ void API_SUFFIX(cblas_strmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -61,7 +61,7 @@ void API_SUFFIX(cblas_strmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -81,7 +81,7 @@ void API_SUFFIX(cblas_strmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -92,7 +92,7 @@ void API_SUFFIX(cblas_strmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void API_SUFFIX(cblas_strmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -115,7 +115,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_strmv", "Illegal layout setting, %d\n", layout); + else 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 e883be1dfb..b5811758c8 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 API_SUFFIX(cblas_strsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_strsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_strsm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_strsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void API_SUFFIX(cblas_strsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void API_SUFFIX(cblas_strsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -74,7 +74,7 @@ void API_SUFFIX(cblas_strsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -94,7 +94,7 @@ void API_SUFFIX(cblas_strsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_strsm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_strsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -103,7 +103,7 @@ void API_SUFFIX(cblas_strsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -113,7 +113,7 @@ void API_SUFFIX(cblas_strsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -122,7 +122,7 @@ void API_SUFFIX(cblas_strsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -136,7 +136,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_strsm", "Illegal layout setting, %d\n", layout); + else 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 a98c692dfd..cb1b7cbf7c 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 API_SUFFIX(cblas_strsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_strsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -51,7 +51,7 @@ void API_SUFFIX(cblas_strsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void API_SUFFIX(cblas_strsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void API_SUFFIX(cblas_strsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -91,7 +91,7 @@ void API_SUFFIX(cblas_strsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void API_SUFFIX(cblas_strsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_strsv", "Illegal layout setting, %d\n", layout); + else 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 f353153a42..3643618ef5 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 -API_SUFFIX(cblas_xerbla)(CBLAS_INT info, const char *rout, const char *form, ...) +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 0612cb3fbc..5ea07904c7 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 API_SUFFIX(cblas_zaxpy)( const CBLAS_INT N, const void *alpha, const void *X, +void 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 b02d509802..8524cbed8a 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 API_SUFFIX(cblas_zcopy)( const CBLAS_INT N, const void *X, +void 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 45d87bbf64..0e9f35dec4 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 API_SUFFIX(cblas_zdotc_sub)( const CBLAS_INT N, const void *X, const CBLAS_INT incX, +void 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 d6766e64bd..cf575bcd7c 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 API_SUFFIX(cblas_zdotu_sub)( const CBLAS_INT N, const void *X, const CBLAS_INT incX, +void 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 d208a3034e..bf0d5c69db 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 API_SUFFIX(cblas_zdrot)(const CBLAS_INT N, void *X, const CBLAS_INT incX, +void 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 0bebcdfd9e..a365b02af0 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 API_SUFFIX(cblas_zdscal)( const CBLAS_INT N, const double alpha, void *X, +void 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 2aa8e08611..0d0b3427f0 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 API_SUFFIX(cblas_zgbmv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_zgbmv)(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -131,7 +131,7 @@ void API_SUFFIX(cblas_zgbmv)(const CBLAS_LAYOUT layout, } else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -159,7 +159,7 @@ void API_SUFFIX(cblas_zgbmv)(const CBLAS_LAYOUT layout, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_zgbmv", "Illegal layout setting, %d\n", layout); + else 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 3aaf59abc7..38c9cfb60f 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 API_SUFFIX(cblas_zgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, +void 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 API_SUFFIX(cblas_zgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void API_SUFFIX(cblas_zgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransB == CblasNoTrans ) TB='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zgemm","Illegal TransB setting, %d\n", TransB); + cblas_xerbla(3, "cblas_zgemm","Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -79,7 +79,7 @@ void API_SUFFIX(cblas_zgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransA == CblasNoTrans ) TB='N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -89,7 +89,7 @@ void API_SUFFIX(cblas_zgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr else if ( TransB == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zgemm","Illegal TransB setting, %d\n", TransB); + cblas_xerbla(2, "cblas_zgemm","Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void API_SUFFIX(cblas_zgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr F77_zgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, alpha, B, &F77_ldb, A, &F77_lda, beta, C, &F77_ldc); } - else API_SUFFIX(cblas_xerbla)(1, "cblas_zgemm", "Illegal layout setting, %d\n", layout); + else 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 b5a3db4998..c3d8a9f5d0 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 API_SUFFIX(cblas_zgemv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_zgemv)(const CBLAS_LAYOUT layout, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -128,7 +128,7 @@ void API_SUFFIX(cblas_zgemv)(const CBLAS_LAYOUT layout, } else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -157,7 +157,7 @@ void API_SUFFIX(cblas_zgemv)(const CBLAS_LAYOUT layout, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_zgemv", "Illegal layout setting, %d\n", layout); + else 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 e168289591..0e3f8afcb5 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 API_SUFFIX(cblas_zgerc)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, +void 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 API_SUFFIX(cblas_zgerc)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const if(Y!=y) free(y); - } else API_SUFFIX(cblas_xerbla)(1, "cblas_zgerc", "Illegal layout setting, %d\n", layout); + } else 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 d1a128ca2f..424f1f3e70 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 API_SUFFIX(cblas_zgeru)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, +void 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 API_SUFFIX(cblas_zgeru)(const CBLAS_LAYOUT layout, const CBLAS_INT M, const F77_zgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A, &F77_lda); } - else API_SUFFIX(cblas_xerbla)(1, "cblas_zgeru", "Illegal layout setting, %d\n", layout); + else 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 81fefe5bb7..c97ae7cddd 100644 --- a/CBLAS/src/cblas_zhbmv.c +++ b/CBLAS/src/cblas_zhbmv.c @@ -9,7 +9,7 @@ #include "cblas_f77.h" #include #include -void API_SUFFIX(cblas_zhbmv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_zhbmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zhbmv","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_zhbmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -120,7 +120,7 @@ void API_SUFFIX(cblas_zhbmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zhbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_zhbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -133,7 +133,7 @@ void API_SUFFIX(cblas_zhbmv)(const CBLAS_LAYOUT layout, } else { - API_SUFFIX(cblas_xerbla)(1, "cblas_zhbmv","Illegal layout setting, %d\n", layout); + 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 98fb7084db..be41d471af 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 API_SUFFIX(cblas_zhemm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_zhemm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void API_SUFFIX(cblas_zhemm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void API_SUFFIX(cblas_zhemm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -85,7 +85,7 @@ void API_SUFFIX(cblas_zhemm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -99,7 +99,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_zhemm", "Illegal layout setting, %d\n", layout); + else 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 0eb2023c3b..c123ba25f3 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 API_SUFFIX(cblas_zhemv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_zhemv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zhemv","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_zhemv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -121,7 +121,7 @@ void API_SUFFIX(cblas_zhemv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zhemv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_zhemv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -134,7 +134,7 @@ void API_SUFFIX(cblas_zhemv)(const CBLAS_LAYOUT layout, } else { - API_SUFFIX(cblas_xerbla)(1, "cblas_zhemv","Illegal layout setting, %d\n", layout); + 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 c3e0933db2..196d735fd5 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 API_SUFFIX(cblas_zher)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_zher)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zher","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_zher","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void API_SUFFIX(cblas_zher)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zher","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_zher","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -100,7 +100,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_zher", "Illegal layout setting, %d\n", layout); + } else 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 1b948a2a8b..6cf2f7d776 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 API_SUFFIX(cblas_zher2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_zher2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zher2", "Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_zher2", "Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void API_SUFFIX(cblas_zher2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zher2", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_zher2", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -137,7 +137,7 @@ void API_SUFFIX(cblas_zher2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(1, "cblas_zher2", "Illegal layout setting, %d\n", layout); + 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 b6a2142e86..2c741ae07c 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 API_SUFFIX(cblas_zher2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_zher2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -60,7 +60,7 @@ void API_SUFFIX(cblas_zher2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -80,7 +80,7 @@ void API_SUFFIX(cblas_zher2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -90,7 +90,7 @@ void API_SUFFIX(cblas_zher2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -103,7 +103,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_zher2k", "Illegal layout setting, %d\n", layout); + } else 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 8d9ab9e3c2..52a7bc222f 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 API_SUFFIX(cblas_zherk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_zherk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void API_SUFFIX(cblas_zherk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -74,7 +74,7 @@ void API_SUFFIX(cblas_zherk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -84,7 +84,7 @@ void API_SUFFIX(cblas_zherk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -98,7 +98,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_zherk", "Illegal layout setting, %d\n", layout); + else 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 43a423621f..325e9fc8ad 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 API_SUFFIX(cblas_zhpmv)(const CBLAS_LAYOUT layout, +void 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 API_SUFFIX(cblas_zhpmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zhpmv","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_zhpmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -119,7 +119,7 @@ void API_SUFFIX(cblas_zhpmv)(const CBLAS_LAYOUT layout, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zhpmv","Illegal Uplo setting, %d\n", Uplo ); + cblas_xerbla(2, "cblas_zhpmv","Illegal Uplo setting, %d\n", Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -133,7 +133,7 @@ void API_SUFFIX(cblas_zhpmv)(const CBLAS_LAYOUT layout, } else { - API_SUFFIX(cblas_xerbla)(1, "cblas_zhpmv","Illegal layout setting, %d\n", layout); + 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 57b1aa5c38..a938df595d 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 API_SUFFIX(cblas_zhpr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_zhpr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zhpr","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_zhpr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -58,7 +58,7 @@ void API_SUFFIX(cblas_zhpr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zhpr","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_zhpr","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -102,7 +102,7 @@ void API_SUFFIX(cblas_zhpr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(1, "cblas_zhpr","Illegal layout setting, %d\n", layout); + 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 1ad034e962..c26d7d9253 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 API_SUFFIX(cblas_zhpr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_zhpr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasUpper) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zhpr2","Illegal Uplo setting, %d\n",Uplo ); + cblas_xerbla(2, "cblas_zhpr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -61,7 +61,7 @@ void API_SUFFIX(cblas_zhpr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zhpr2","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_zhpr2","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -135,7 +135,7 @@ void API_SUFFIX(cblas_zhpr2)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(1, "cblas_zhpr2","Illegal layout setting, %d\n", layout); + 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 07d9af0deb..94ca0bede0 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 API_SUFFIX(cblas_zrotg)(void *a, void *b, double *c, void *s) +void 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 1c146dfd8a..b93886fcdf 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 API_SUFFIX(cblas_zscal)( const CBLAS_INT N, const void *alpha, void *X, +void 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 d1aa9fa5ef..9cf8691482 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 API_SUFFIX(cblas_zswap)( const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, +void 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 a2550d3878..f66e2470e4 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 API_SUFFIX(cblas_zsymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_zsymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void API_SUFFIX(cblas_zsymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void API_SUFFIX(cblas_zsymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -85,7 +85,7 @@ void API_SUFFIX(cblas_zsymm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -99,7 +99,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_zsymm", "Illegal layout setting, %d\n", layout); + else 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 3223229d71..3c490268d3 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 API_SUFFIX(cblas_zsyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_zsyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -57,7 +57,7 @@ void API_SUFFIX(cblas_zsyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void API_SUFFIX(cblas_zsyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -88,7 +88,7 @@ void API_SUFFIX(cblas_zsyr2k)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -101,7 +101,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_zsyr2k", "Illegal layout setting, %d\n", layout); + else 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 4f5b6b325c..2d5f3394bf 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 API_SUFFIX(cblas_zsyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_zsyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -55,7 +55,7 @@ void API_SUFFIX(cblas_zsyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='N'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -76,7 +76,7 @@ void API_SUFFIX(cblas_zsyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -86,7 +86,7 @@ void API_SUFFIX(cblas_zsyrk)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if ( Trans == CblasNoTrans ) TR='T'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans); + cblas_xerbla(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -100,7 +100,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_zsyrk", "Illegal layout setting, %d\n", layout); + else 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 3b6f17e236..437f40c882 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 API_SUFFIX(cblas_ztbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ztbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void API_SUFFIX(cblas_ztbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void API_SUFFIX(cblas_ztbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztbmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ztbmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void API_SUFFIX(cblas_ztbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void API_SUFFIX(cblas_ztbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void API_SUFFIX(cblas_ztbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(4, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -151,7 +151,7 @@ void API_SUFFIX(cblas_ztbmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ztbmv", "Illegal layout setting, %d\n", layout); + else 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 ea6b4d3b08..1e286bf90d 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 API_SUFFIX(cblas_ztbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ztbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void API_SUFFIX(cblas_ztbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void API_SUFFIX(cblas_ztbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void API_SUFFIX(cblas_ztbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -118,7 +118,7 @@ void API_SUFFIX(cblas_ztbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -128,7 +128,7 @@ void API_SUFFIX(cblas_ztbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -155,7 +155,7 @@ void API_SUFFIX(cblas_ztbsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ztbsv", "Illegal layout setting, %d\n", layout); + else 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 119b6bcdd3..7b65e3cd2f 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 API_SUFFIX(cblas_ztpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ztpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -50,7 +50,7 @@ void API_SUFFIX(cblas_ztpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void API_SUFFIX(cblas_ztpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void API_SUFFIX(cblas_ztpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -110,7 +110,7 @@ void API_SUFFIX(cblas_ztpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -120,7 +120,7 @@ void API_SUFFIX(cblas_ztpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -145,7 +145,7 @@ void API_SUFFIX(cblas_ztpmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ztpmv", "Illegal layout setting, %d\n", layout); + else 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 d907d2f706..142f971a53 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 API_SUFFIX(cblas_ztpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ztpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -50,7 +50,7 @@ void API_SUFFIX(cblas_ztpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -59,7 +59,7 @@ void API_SUFFIX(cblas_ztpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -78,7 +78,7 @@ void API_SUFFIX(cblas_ztpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void API_SUFFIX(cblas_ztpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void API_SUFFIX(cblas_ztpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -150,7 +150,7 @@ void API_SUFFIX(cblas_ztpsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ztpsv", "Illegal layout setting, %d\n", layout); + else 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 4b93f8e3a6..a34e710675 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 API_SUFFIX(cblas_ztrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_ztrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -54,7 +54,7 @@ void API_SUFFIX(cblas_ztrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -65,7 +65,7 @@ void API_SUFFIX(cblas_ztrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -75,7 +75,7 @@ void API_SUFFIX(cblas_ztrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -96,7 +96,7 @@ void API_SUFFIX(cblas_ztrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -106,7 +106,7 @@ void API_SUFFIX(cblas_ztrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -117,7 +117,7 @@ void API_SUFFIX(cblas_ztrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -127,7 +127,7 @@ void API_SUFFIX(cblas_ztrmm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -142,7 +142,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_ztrmm", "Illegal layout setting, %d\n", layout); + else 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 f28fb19db4..fff888005e 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 API_SUFFIX(cblas_ztrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ztrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -53,7 +53,7 @@ void API_SUFFIX(cblas_ztrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -62,7 +62,7 @@ void API_SUFFIX(cblas_ztrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -82,7 +82,7 @@ void API_SUFFIX(cblas_ztrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void API_SUFFIX(cblas_ztrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void API_SUFFIX(cblas_ztrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -149,7 +149,7 @@ void API_SUFFIX(cblas_ztrmv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ztrmv", "Illegal layout setting, %d\n", layout); + else 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 f6d777e2ff..f34b5631b6 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 API_SUFFIX(cblas_ztrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, +void 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 API_SUFFIX(cblas_ztrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -56,7 +56,7 @@ void API_SUFFIX(cblas_ztrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='L'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -67,7 +67,7 @@ void API_SUFFIX(cblas_ztrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -77,7 +77,7 @@ void API_SUFFIX(cblas_ztrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -100,7 +100,7 @@ void API_SUFFIX(cblas_ztrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Side == CblasLeft ) SD='R'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side); + cblas_xerbla(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -110,7 +110,7 @@ void API_SUFFIX(cblas_ztrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Uplo == CblasLower ) UL='U'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -121,7 +121,7 @@ void API_SUFFIX(cblas_ztrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( TransA == CblasNoTrans ) TA='N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA); + cblas_xerbla(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -131,7 +131,7 @@ void API_SUFFIX(cblas_ztrsm)(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, else if ( Diag == CblasNonUnit ) DI='N'; else { - API_SUFFIX(cblas_xerbla)(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag); + cblas_xerbla(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -148,7 +148,7 @@ void API_SUFFIX(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 API_SUFFIX(cblas_xerbla)(1, "cblas_ztrsm", "Illegal layout setting, %d\n", layout); + else 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 bbdbd8ff1a..1822bc8053 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 API_SUFFIX(cblas_ztrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, +void 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 API_SUFFIX(cblas_ztrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'L'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -52,7 +52,7 @@ void API_SUFFIX(cblas_ztrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (TransA == CblasConjTrans) TA = 'C'; else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -61,7 +61,7 @@ void API_SUFFIX(cblas_ztrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -81,7 +81,7 @@ void API_SUFFIX(cblas_ztrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Uplo == CblasLower) UL = 'U'; else { - API_SUFFIX(cblas_xerbla)(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo); + cblas_xerbla(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -114,7 +114,7 @@ void API_SUFFIX(cblas_ztrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else { - API_SUFFIX(cblas_xerbla)(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA); + cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -124,7 +124,7 @@ void API_SUFFIX(cblas_ztrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else if (Diag == CblasNonUnit) DI = 'N'; else { - API_SUFFIX(cblas_xerbla)(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag); + cblas_xerbla(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; @@ -149,7 +149,7 @@ void API_SUFFIX(cblas_ztrsv)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } } } - else API_SUFFIX(cblas_xerbla)(1, "cblas_ztrsv", "Illegal layout setting, %d\n", layout); + else 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 06ac7cfa12..fbe4415042 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'; - API_SUFFIX(cblas_xerbla)(*info+1,rout,""); + cblas_xerbla(*info+1,rout,""); } else { diff --git a/CMAKE/CheckLAPACKCompilerFlags.cmake b/CMAKE/CheckLAPACKCompilerFlags.cmake index 11a5461927..079ad1e4c1 100644 --- a/CMAKE/CheckLAPACKCompilerFlags.cmake +++ b/CMAKE/CheckLAPACKCompilerFlags.cmake @@ -15,35 +15,33 @@ macro( CheckLAPACKCompilerFlags ) set( FPE_EXIT FALSE ) # FORTRAN ILP default -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) +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() else() - set(FOPT_ILP64 -fdefault-integer-8) + 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() 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 df253f0e18..7ecf8a5094 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -99,8 +99,6 @@ 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)