Skip to content

Commit

Permalink
Update CBLAS headers
Browse files Browse the repository at this point in the history
  • Loading branch information
Martin Köhler committed Aug 26, 2024
1 parent ad70e72 commit c571921
Show file tree
Hide file tree
Showing 4 changed files with 33 additions and 0 deletions.
8 changes: 8 additions & 0 deletions CBLAS/include/cblas.h
View file
Original file line number Diff line number Diff line change
Expand Up @@ -130,27 +130,35 @@ void cblas_scopy(const CBLAS_INT N, const float *X, const CBLAS_INT incX,
float *Y, const CBLAS_INT incY);
void cblas_saxpy(const CBLAS_INT N, const float alpha, const float *X,
const CBLAS_INT incX, float *Y, const CBLAS_INT incY);
void cblas_saxpby(const CBLAS_INT N, const float alpha, const float *X,
const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY);

void cblas_dswap(const CBLAS_INT N, double *X, const CBLAS_INT incX,
double *Y, const CBLAS_INT incY);
void cblas_dcopy(const CBLAS_INT N, const double *X, const CBLAS_INT incX,
double *Y, const CBLAS_INT incY);
void cblas_daxpy(const CBLAS_INT N, const double alpha, const double *X,
const CBLAS_INT incX, double *Y, const CBLAS_INT incY);
void cblas_daxpby(const CBLAS_INT N, const double alpha, const double *X,
const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY);

void cblas_cswap(const CBLAS_INT N, void *X, const CBLAS_INT incX,
void *Y, const CBLAS_INT incY);
void cblas_ccopy(const CBLAS_INT N, const void *X, const CBLAS_INT incX,
void *Y, const CBLAS_INT incY);
void cblas_caxpy(const CBLAS_INT N, const void *alpha, const void *X,
const CBLAS_INT incX, void *Y, const CBLAS_INT incY);
void cblas_caxpby(const CBLAS_INT N, const void *alpha, const void *X,
const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY);

void cblas_zswap(const CBLAS_INT N, void *X, const CBLAS_INT incX,
void *Y, const CBLAS_INT incY);
void cblas_zcopy(const CBLAS_INT N, const void *X, const CBLAS_INT incX,
void *Y, const CBLAS_INT incY);
void cblas_zaxpy(const CBLAS_INT N, const void *alpha, const void *X,
const CBLAS_INT incX, void *Y, const CBLAS_INT incY);
void cblas_zaxpby(const CBLAS_INT N, const void *alpha, const void *X,
const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY);


/*
Expand Down
9 changes: 9 additions & 0 deletions CBLAS/include/cblas_64.h
View file
Original file line number Diff line number Diff line change
Expand Up @@ -81,27 +81,36 @@ 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_saxpby_64(const int64_t N, const float alpha, const float *X,
const int64_t incX, const float beta, 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_daxpby_64(const int64_t N, const double alpha, const double *X,
const int64_t incX, const double beta, 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_caxpby_64(const int64_t N, const void *alpha, const void *X,
const int64_t incX, const void *beta, 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);
void cblas_zaxbpy_64(const int64_t N, const void *alpha, const void *X,
const int64_t incX, const void *beta, void *Y, const int64_t incY);


/*
Expand Down
12 changes: 12 additions & 0 deletions CBLAS/include/cblas_f77.h
View file
Original file line number Diff line number Diff line change
Expand Up @@ -76,18 +76,22 @@
#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_saxpby_base F77_GLOBAL_SUFFIX(saxpby,SAXPBY)
#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_daxpby_base F77_GLOBAL_SUFFIX(daxpby,DAXPBY)
#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_caxpby_base F77_GLOBAL_SUFFIX(caxpby,CAXPBY)
#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_zaxpby_base F77_GLOBAL_SUFFIX(zaxpby,ZAXPBY)
#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)
Expand Down Expand Up @@ -239,6 +243,7 @@
#define F77_sswap(...) F77_sswap_base(__VA_ARGS__)
#define F77_scopy(...) F77_scopy_base(__VA_ARGS__)
#define F77_saxpy(...) F77_saxpy_base(__VA_ARGS__)
#define F77_saxpby(...) F77_saxpby_base(__VA_ARGS__)
#define F77_sdot_sub(...) F77_sdot_sub_base(__VA_ARGS__)
#define F77_sdsdot_sub(...) F77_sdsdot_sub_base(__VA_ARGS__)
#define F77_sscal(...) F77_sscal_base(__VA_ARGS__)
Expand All @@ -256,6 +261,7 @@
#define F77_dswap(...) F77_dswap_base(__VA_ARGS__)
#define F77_dcopy(...) F77_dcopy_base(__VA_ARGS__)
#define F77_daxpy(...) F77_daxpy_base(__VA_ARGS__)
#define F77_daxpby(...) F77_daxpby_base(__VA_ARGS__)
#define F77_dswap(...) F77_dswap_base(__VA_ARGS__)
#define F77_dsdot_sub(...) F77_dsdot_sub_base(__VA_ARGS__)
#define F77_ddot_sub(...) F77_ddot_sub_base(__VA_ARGS__)
Expand All @@ -272,6 +278,7 @@
#define F77_cswap(...) F77_cswap_base(__VA_ARGS__)
#define F77_ccopy(...) F77_ccopy_base(__VA_ARGS__)
#define F77_caxpy(...) F77_caxpy_base(__VA_ARGS__)
#define F77_caxpby(...) F77_caxpby_base(__VA_ARGS__)
#define F77_cswap(...) F77_cswap_base(__VA_ARGS__)
#define F77_cdotc_sub(...) F77_cdotc_sub_base(__VA_ARGS__)
#define F77_cdotu_sub(...) F77_cdotu_sub_base(__VA_ARGS__)
Expand All @@ -288,6 +295,7 @@
#define F77_zswap(...) F77_zswap_base(__VA_ARGS__)
#define F77_zcopy(...) F77_zcopy_base(__VA_ARGS__)
#define F77_zaxpy(...) F77_zaxpy_base(__VA_ARGS__)
#define F77_zaxpby(...) F77_zaxpby_base(__VA_ARGS__)
#define F77_zswap(...) F77_zswap_base(__VA_ARGS__)
#define F77_zdotc_sub(...) F77_zdotc_sub_base(__VA_ARGS__)
#define F77_zdotu_sub(...) F77_zdotu_sub_base(__VA_ARGS__)
Expand Down Expand Up @@ -602,6 +610,7 @@ void F77_srotmg_base(float *,float *,float *,const float *, float *);
void F77_sswap_base(FINT, float *, FINT, float *, FINT);
void F77_scopy_base(FINT, const float *, FINT, float *, FINT);
void F77_saxpy_base(FINT, const float *, const float *, FINT, float *, FINT);
void F77_saxpy_base(FINT, const float *, const float *, FINT, float *, float *, FINT);
void F77_sdot_sub_base(FINT, const float *, FINT, const float *, FINT, float *);
void F77_sdsdot_sub_base(FINT, const float *, const float *, FINT, const float *, FINT, float *);
void F77_sscal_base(FINT, const float *, float *, FINT);
Expand All @@ -618,6 +627,7 @@ void F77_drotmg_base(double *,double *,double *,const double *, double *);
void F77_dswap_base(FINT, double *, FINT, double *, FINT);
void F77_dcopy_base(FINT, const double *, FINT, double *, FINT);
void F77_daxpy_base(FINT, const double *, const double *, FINT, double *, FINT);
void F77_daxpby_base(FINT, const double *, const double *, FINT, double *, double *, FINT);
void F77_dswap_base(FINT, double *, FINT, double *, FINT);
void F77_dsdot_sub_base(FINT, const float *, FINT, const float *, FINT, double *);
void F77_ddot_sub_base(FINT, const double *, FINT, const double *, FINT, double *);
Expand All @@ -633,6 +643,7 @@ void F77_csrot_base(FINT, void *X, FINT, void *, FINT, const float *, const floa
void F77_cswap_base(FINT, void *, FINT, void *, FINT);
void F77_ccopy_base(FINT, const void *, FINT, void *, FINT);
void F77_caxpy_base(FINT, const void *, const void *, FINT, void *, FINT);
void F77_caxpby_base(FINT, const void *, const void *, FINT, void *, void *, FINT);
void F77_cswap_base(FINT, void *, FINT, void *, FINT);
void F77_cdotc_sub_base(FINT, const void *, FINT, const void *, FINT, void *);
void F77_cdotu_sub_base(FINT, const void *, FINT, const void *, FINT, void *);
Expand All @@ -650,6 +661,7 @@ void F77_zdrot_base(FINT, void *X, FINT, void *, FINT, const double *, const dou
void F77_zswap_base(FINT, void *, FINT, void *, FINT);
void F77_zcopy_base(FINT, const void *, FINT, void *, FINT);
void F77_zaxpy_base(FINT, const void *, const void *, FINT, void *, FINT);
void F77_zaxpby_base(FINT, const void *, const void *, FINT, void*, void *, FINT);
void F77_zswap_base(FINT, void *, FINT, void *, FINT);
void F77_zdotc_sub_base(FINT, const void *, FINT, const void *, FINT, void *);
void F77_zdotu_sub_base(FINT, const void *, FINT, const void *, FINT, void *);
Expand Down
4 changes: 4 additions & 0 deletions CBLAS/include/cblas_test.h
View file
Original file line number Diff line number Diff line change
Expand Up @@ -45,18 +45,22 @@ typedef struct { double real; double imag; } CBLAS_TEST_ZOMPLEX;
#define F77_sswap F77_GLOBAL(sswaptest,SSWAPTEST)
#define F77_scopy F77_GLOBAL(scopytest,SCOPYTEST)
#define F77_saxpy F77_GLOBAL(saxpytest,SAXPYTEST)
#define F77_saxpby F77_GLOBAL(saxpbytest,SAXPBYTEST)
#define F77_isamax F77_GLOBAL(isamaxtest,ISAMAXTEST)
#define F77_dswap F77_GLOBAL(dswaptest,DSWAPTEST)
#define F77_dcopy F77_GLOBAL(dcopytest,DCOPYTEST)
#define F77_daxpy F77_GLOBAL(daxpytest,DAXPYTEST)
#define F77_daxpby F77_GLOBAL(daxpbytest,DAXPBYTEST)
#define F77_idamax F77_GLOBAL(idamaxtest,IDAMAXTEST)
#define F77_cswap F77_GLOBAL(cswaptest,CSWAPTEST)
#define F77_ccopy F77_GLOBAL(ccopytest,CCOPYTEST)
#define F77_caxpy F77_GLOBAL(caxpytest,CAXPYTEST)
#define F77_caxpby F77_GLOBAL(caxpbytest,CAXPBYTEST)
#define F77_icamax F77_GLOBAL(icamaxtest,ICAMAXTEST)
#define F77_zswap F77_GLOBAL(zswaptest,ZSWAPTEST)
#define F77_zcopy F77_GLOBAL(zcopytest,ZCOPYTEST)
#define F77_zaxpy F77_GLOBAL(zaxpytest,ZAXPYTEST)
#define F77_zaxpby F77_GLOBAL(zaxpbytest,ZAXPBYTEST)
#define F77_izamax F77_GLOBAL(izamaxtest,IZAMAXTEST)
#define F77_sdot F77_GLOBAL(sdottest,SDOTTEST)
#define F77_ddot F77_GLOBAL(ddottest,DDOTTEST)
Expand Down

0 comments on commit c571921

Please sign in to comment.