From 0d9790c98d05cf848e1456cec6129032be534e73 Mon Sep 17 00:00:00 2001 From: stdlib-bot Date: Sat, 27 Apr 2024 23:06:24 +0000 Subject: [PATCH] Auto-generated commit --- include/stdlib/blas/base/dswap.h | 2 +- include/stdlib/blas/base/dswap_cblas.h | 2 +- include/stdlib/blas/base/dswap_fortran.h | 2 +- src/addon.c | 3 ++- src/dswap.c | 2 +- src/dswap_cblas.c | 4 ++-- src/dswap_f.c | 2 +- 7 files changed, 9 insertions(+), 8 deletions(-) diff --git a/include/stdlib/blas/base/dswap.h b/include/stdlib/blas/base/dswap.h index 90d6e4f..36cab65 100644 --- a/include/stdlib/blas/base/dswap.h +++ b/include/stdlib/blas/base/dswap.h @@ -34,7 +34,7 @@ extern "C" { /** * Interchanges two double-precision floating-point vectors. */ -void c_dswap( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ); +void API_SUFFIX(c_dswap)( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ); #ifdef __cplusplus } diff --git a/include/stdlib/blas/base/dswap_cblas.h b/include/stdlib/blas/base/dswap_cblas.h index a7b0234..9429db1 100644 --- a/include/stdlib/blas/base/dswap_cblas.h +++ b/include/stdlib/blas/base/dswap_cblas.h @@ -34,7 +34,7 @@ extern "C" { /** * Interchanges two double-precision floating-point vectors. */ -void cblas_dswap( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ); +void API_SUFFIX(cblas_dswap)( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ); #ifdef __cplusplus } diff --git a/include/stdlib/blas/base/dswap_fortran.h b/include/stdlib/blas/base/dswap_fortran.h index 0ae4952..a25d9f1 100644 --- a/include/stdlib/blas/base/dswap_fortran.h +++ b/include/stdlib/blas/base/dswap_fortran.h @@ -32,7 +32,7 @@ extern "C" { /** * Interchanges two double-precision floating-point vectors. */ -void dswap( const int *, double *, const int *, double *, const int * ); +void dswap( const CBLAS_INT *, double *, const CBLAS_INT *, double *, const CBLAS_INT * ); #ifdef __cplusplus } diff --git a/src/addon.c b/src/addon.c index 74ff209..53520f7 100644 --- a/src/addon.c +++ b/src/addon.c @@ -18,6 +18,7 @@ #include "stdlib/blas/base/dswap.h" +#include "stdlib/blas/base/shared.h" #include "stdlib/napi/export.h" #include "stdlib/napi/argv.h" #include "stdlib/napi/argv_int64.h" @@ -39,7 +40,7 @@ static napi_value addon( napi_env env, napi_callback_info info ) { STDLIB_NAPI_ARGV_INT64( env, strideY, argv, 4 ); STDLIB_NAPI_ARGV_STRIDED_FLOAT64ARRAY( env, X, N, strideX, argv, 1 ); STDLIB_NAPI_ARGV_STRIDED_FLOAT64ARRAY( env, Y, N, strideY, argv, 3 ); - c_dswap( N, X, strideX, Y, strideY ); + API_SUFFIX(c_dswap)( N, X, strideX, Y, strideY ); return NULL; } diff --git a/src/dswap.c b/src/dswap.c index 55c93c2..fcfacf2 100644 --- a/src/dswap.c +++ b/src/dswap.c @@ -28,7 +28,7 @@ * @param Y second input array * @param strideY Y stride length */ -void c_dswap( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ) { +void API_SUFFIX(c_dswap)( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ) { double tmp; CBLAS_INT ix; CBLAS_INT iy; diff --git a/src/dswap_cblas.c b/src/dswap_cblas.c index 0a99cc0..3076bbc 100644 --- a/src/dswap_cblas.c +++ b/src/dswap_cblas.c @@ -29,6 +29,6 @@ * @param Y second input array * @param strideY Y stride length */ -void c_dswap( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ) { - cblas_dswap( N, X, strideX, Y, strideY ); +void API_SUFFIX(c_dswap)( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ) { + API_SUFFIX(cblas_dswap)( N, X, strideX, Y, strideY ); } diff --git a/src/dswap_f.c b/src/dswap_f.c index 4a77475..01d8b9a 100644 --- a/src/dswap_f.c +++ b/src/dswap_f.c @@ -29,6 +29,6 @@ * @param Y second input array * @param strideY Y stride length */ -void c_dswap( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ) { +void API_SUFFIX(c_dswap)( const CBLAS_INT N, double *X, const CBLAS_INT strideX, double *Y, const CBLAS_INT strideY ) { dswap( &N, X, &strideX, Y, &strideY ); }