Skip to content

Commit c571921

Browse files
grisuthedragongrisuthedragon
committed
Update CBLAS headers
1 parent ad70e72 commit c571921

File tree

4 files changed

+33
-0
lines changed

4 files changed

+33
-0
lines changed

‎CBLAS/include/cblas.h

+8
Original file line numberDiff line numberDiff line change
@@ -130,27 +130,35 @@ void cblas_scopy(const CBLAS_INT N, const float *X, const CBLAS_INT incX,
130130
float *Y, const CBLAS_INT incY);
131131
void cblas_saxpy(const CBLAS_INT N, const float alpha, const float *X,
132132
const CBLAS_INT incX, float *Y, const CBLAS_INT incY);
133+
void cblas_saxpby(const CBLAS_INT N, const float alpha, const float *X,
134+
const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY);
133135

134136
void cblas_dswap(const CBLAS_INT N, double *X, const CBLAS_INT incX,
135137
double *Y, const CBLAS_INT incY);
136138
void cblas_dcopy(const CBLAS_INT N, const double *X, const CBLAS_INT incX,
137139
double *Y, const CBLAS_INT incY);
138140
void cblas_daxpy(const CBLAS_INT N, const double alpha, const double *X,
139141
const CBLAS_INT incX, double *Y, const CBLAS_INT incY);
142+
void cblas_daxpby(const CBLAS_INT N, const double alpha, const double *X,
143+
const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY);
140144

141145
void cblas_cswap(const CBLAS_INT N, void *X, const CBLAS_INT incX,
142146
void *Y, const CBLAS_INT incY);
143147
void cblas_ccopy(const CBLAS_INT N, const void *X, const CBLAS_INT incX,
144148
void *Y, const CBLAS_INT incY);
145149
void cblas_caxpy(const CBLAS_INT N, const void *alpha, const void *X,
146150
const CBLAS_INT incX, void *Y, const CBLAS_INT incY);
151+
void cblas_caxpby(const CBLAS_INT N, const void *alpha, const void *X,
152+
const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY);
147153

148154
void cblas_zswap(const CBLAS_INT N, void *X, const CBLAS_INT incX,
149155
void *Y, const CBLAS_INT incY);
150156
void cblas_zcopy(const CBLAS_INT N, const void *X, const CBLAS_INT incX,
151157
void *Y, const CBLAS_INT incY);
152158
void cblas_zaxpy(const CBLAS_INT N, const void *alpha, const void *X,
153159
const CBLAS_INT incX, void *Y, const CBLAS_INT incY);
160+
void cblas_zaxpby(const CBLAS_INT N, const void *alpha, const void *X,
161+
const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY);
154162

155163

156164
/*

‎CBLAS/include/cblas_64.h

+9
Original file line numberDiff line numberDiff line change
@@ -81,27 +81,36 @@ void cblas_scopy_64(const int64_t N, const float *X, const int64_t incX,
8181
float *Y, const int64_t incY);
8282
void cblas_saxpy_64(const int64_t N, const float alpha, const float *X,
8383
const int64_t incX, float *Y, const int64_t incY);
84+
void cblas_saxpby_64(const int64_t N, const float alpha, const float *X,
85+
const int64_t incX, const float beta, float *Y, const int64_t incY);
86+
8487

8588
void cblas_dswap_64(const int64_t N, double *X, const int64_t incX,
8689
double *Y, const int64_t incY);
8790
void cblas_dcopy_64(const int64_t N, const double *X, const int64_t incX,
8891
double *Y, const int64_t incY);
8992
void cblas_daxpy_64(const int64_t N, const double alpha, const double *X,
9093
const int64_t incX, double *Y, const int64_t incY);
94+
void cblas_daxpby_64(const int64_t N, const double alpha, const double *X,
95+
const int64_t incX, const double beta, double *Y, const int64_t incY);
9196

9297
void cblas_cswap_64(const int64_t N, void *X, const int64_t incX,
9398
void *Y, const int64_t incY);
9499
void cblas_ccopy_64(const int64_t N, const void *X, const int64_t incX,
95100
void *Y, const int64_t incY);
96101
void cblas_caxpy_64(const int64_t N, const void *alpha, const void *X,
97102
const int64_t incX, void *Y, const int64_t incY);
103+
void cblas_caxpby_64(const int64_t N, const void *alpha, const void *X,
104+
const int64_t incX, const void *beta, void *Y, const int64_t incY);
98105

99106
void cblas_zswap_64(const int64_t N, void *X, const int64_t incX,
100107
void *Y, const int64_t incY);
101108
void cblas_zcopy_64(const int64_t N, const void *X, const int64_t incX,
102109
void *Y, const int64_t incY);
103110
void cblas_zaxpy_64(const int64_t N, const void *alpha, const void *X,
104111
const int64_t incX, void *Y, const int64_t incY);
112+
void cblas_zaxbpy_64(const int64_t N, const void *alpha, const void *X,
113+
const int64_t incX, const void *beta, void *Y, const int64_t incY);
105114

106115

107116
/*

‎CBLAS/include/cblas_f77.h

+12
Original file line numberDiff line numberDiff line change
@@ -76,18 +76,22 @@
7676
#define F77_sswap_base F77_GLOBAL_SUFFIX(sswap,SSWAP)
7777
#define F77_scopy_base F77_GLOBAL_SUFFIX(scopy,SCOPY)
7878
#define F77_saxpy_base F77_GLOBAL_SUFFIX(saxpy,SAXPY)
79+
#define F77_saxpby_base F77_GLOBAL_SUFFIX(saxpby,SAXPBY)
7980
#define F77_isamax_sub_base F77_GLOBAL_SUFFIX(isamaxsub,ISAMAXSUB)
8081
#define F77_dswap_base F77_GLOBAL_SUFFIX(dswap,DSWAP)
8182
#define F77_dcopy_base F77_GLOBAL_SUFFIX(dcopy,DCOPY)
8283
#define F77_daxpy_base F77_GLOBAL_SUFFIX(daxpy,DAXPY)
84+
#define F77_daxpby_base F77_GLOBAL_SUFFIX(daxpby,DAXPBY)
8385
#define F77_idamax_sub_base F77_GLOBAL_SUFFIX(idamaxsub,IDAMAXSUB)
8486
#define F77_cswap_base F77_GLOBAL_SUFFIX(cswap,CSWAP)
8587
#define F77_ccopy_base F77_GLOBAL_SUFFIX(ccopy,CCOPY)
8688
#define F77_caxpy_base F77_GLOBAL_SUFFIX(caxpy,CAXPY)
89+
#define F77_caxpby_base F77_GLOBAL_SUFFIX(caxpby,CAXPBY)
8790
#define F77_icamax_sub_base F77_GLOBAL_SUFFIX(icamaxsub,ICAMAXSUB)
8891
#define F77_zswap_base F77_GLOBAL_SUFFIX(zswap,ZSWAP)
8992
#define F77_zcopy_base F77_GLOBAL_SUFFIX(zcopy,ZCOPY)
9093
#define F77_zaxpy_base F77_GLOBAL_SUFFIX(zaxpy,ZAXPY)
94+
#define F77_zaxpby_base F77_GLOBAL_SUFFIX(zaxpby,ZAXPBY)
9195
#define F77_izamax_sub_base F77_GLOBAL_SUFFIX(izamaxsub,IZAMAXSUB)
9296
#define F77_sdot_sub_base F77_GLOBAL_SUFFIX(sdotsub,SDOTSUB)
9397
#define F77_ddot_sub_base F77_GLOBAL_SUFFIX(ddotsub,DDOTSUB)
@@ -239,6 +243,7 @@
239243
#define F77_sswap(...) F77_sswap_base(__VA_ARGS__)
240244
#define F77_scopy(...) F77_scopy_base(__VA_ARGS__)
241245
#define F77_saxpy(...) F77_saxpy_base(__VA_ARGS__)
246+
#define F77_saxpby(...) F77_saxpby_base(__VA_ARGS__)
242247
#define F77_sdot_sub(...) F77_sdot_sub_base(__VA_ARGS__)
243248
#define F77_sdsdot_sub(...) F77_sdsdot_sub_base(__VA_ARGS__)
244249
#define F77_sscal(...) F77_sscal_base(__VA_ARGS__)
@@ -256,6 +261,7 @@
256261
#define F77_dswap(...) F77_dswap_base(__VA_ARGS__)
257262
#define F77_dcopy(...) F77_dcopy_base(__VA_ARGS__)
258263
#define F77_daxpy(...) F77_daxpy_base(__VA_ARGS__)
264+
#define F77_daxpby(...) F77_daxpby_base(__VA_ARGS__)
259265
#define F77_dswap(...) F77_dswap_base(__VA_ARGS__)
260266
#define F77_dsdot_sub(...) F77_dsdot_sub_base(__VA_ARGS__)
261267
#define F77_ddot_sub(...) F77_ddot_sub_base(__VA_ARGS__)
@@ -272,6 +278,7 @@
272278
#define F77_cswap(...) F77_cswap_base(__VA_ARGS__)
273279
#define F77_ccopy(...) F77_ccopy_base(__VA_ARGS__)
274280
#define F77_caxpy(...) F77_caxpy_base(__VA_ARGS__)
281+
#define F77_caxpby(...) F77_caxpby_base(__VA_ARGS__)
275282
#define F77_cswap(...) F77_cswap_base(__VA_ARGS__)
276283
#define F77_cdotc_sub(...) F77_cdotc_sub_base(__VA_ARGS__)
277284
#define F77_cdotu_sub(...) F77_cdotu_sub_base(__VA_ARGS__)
@@ -288,6 +295,7 @@
288295
#define F77_zswap(...) F77_zswap_base(__VA_ARGS__)
289296
#define F77_zcopy(...) F77_zcopy_base(__VA_ARGS__)
290297
#define F77_zaxpy(...) F77_zaxpy_base(__VA_ARGS__)
298+
#define F77_zaxpby(...) F77_zaxpby_base(__VA_ARGS__)
291299
#define F77_zswap(...) F77_zswap_base(__VA_ARGS__)
292300
#define F77_zdotc_sub(...) F77_zdotc_sub_base(__VA_ARGS__)
293301
#define F77_zdotu_sub(...) F77_zdotu_sub_base(__VA_ARGS__)
@@ -602,6 +610,7 @@ void F77_srotmg_base(float *,float *,float *,const float *, float *);
602610
void F77_sswap_base(FINT, float *, FINT, float *, FINT);
603611
void F77_scopy_base(FINT, const float *, FINT, float *, FINT);
604612
void F77_saxpy_base(FINT, const float *, const float *, FINT, float *, FINT);
613+
void F77_saxpy_base(FINT, const float *, const float *, FINT, float *, float *, FINT);
605614
void F77_sdot_sub_base(FINT, const float *, FINT, const float *, FINT, float *);
606615
void F77_sdsdot_sub_base(FINT, const float *, const float *, FINT, const float *, FINT, float *);
607616
void F77_sscal_base(FINT, const float *, float *, FINT);
@@ -618,6 +627,7 @@ void F77_drotmg_base(double *,double *,double *,const double *, double *);
618627
void F77_dswap_base(FINT, double *, FINT, double *, FINT);
619628
void F77_dcopy_base(FINT, const double *, FINT, double *, FINT);
620629
void F77_daxpy_base(FINT, const double *, const double *, FINT, double *, FINT);
630+
void F77_daxpby_base(FINT, const double *, const double *, FINT, double *, double *, FINT);
621631
void F77_dswap_base(FINT, double *, FINT, double *, FINT);
622632
void F77_dsdot_sub_base(FINT, const float *, FINT, const float *, FINT, double *);
623633
void F77_ddot_sub_base(FINT, const double *, FINT, const double *, FINT, double *);
@@ -633,6 +643,7 @@ void F77_csrot_base(FINT, void *X, FINT, void *, FINT, const float *, const floa
633643
void F77_cswap_base(FINT, void *, FINT, void *, FINT);
634644
void F77_ccopy_base(FINT, const void *, FINT, void *, FINT);
635645
void F77_caxpy_base(FINT, const void *, const void *, FINT, void *, FINT);
646+
void F77_caxpby_base(FINT, const void *, const void *, FINT, void *, void *, FINT);
636647
void F77_cswap_base(FINT, void *, FINT, void *, FINT);
637648
void F77_cdotc_sub_base(FINT, const void *, FINT, const void *, FINT, void *);
638649
void F77_cdotu_sub_base(FINT, const void *, FINT, const void *, FINT, void *);
@@ -650,6 +661,7 @@ void F77_zdrot_base(FINT, void *X, FINT, void *, FINT, const double *, const dou
650661
void F77_zswap_base(FINT, void *, FINT, void *, FINT);
651662
void F77_zcopy_base(FINT, const void *, FINT, void *, FINT);
652663
void F77_zaxpy_base(FINT, const void *, const void *, FINT, void *, FINT);
664+
void F77_zaxpby_base(FINT, const void *, const void *, FINT, void*, void *, FINT);
653665
void F77_zswap_base(FINT, void *, FINT, void *, FINT);
654666
void F77_zdotc_sub_base(FINT, const void *, FINT, const void *, FINT, void *);
655667
void F77_zdotu_sub_base(FINT, const void *, FINT, const void *, FINT, void *);

‎CBLAS/include/cblas_test.h

+4
Original file line numberDiff line numberDiff line change
@@ -45,18 +45,22 @@ typedef struct { double real; double imag; } CBLAS_TEST_ZOMPLEX;
4545
#define F77_sswap F77_GLOBAL(sswaptest,SSWAPTEST)
4646
#define F77_scopy F77_GLOBAL(scopytest,SCOPYTEST)
4747
#define F77_saxpy F77_GLOBAL(saxpytest,SAXPYTEST)
48+
#define F77_saxpby F77_GLOBAL(saxpbytest,SAXPBYTEST)
4849
#define F77_isamax F77_GLOBAL(isamaxtest,ISAMAXTEST)
4950
#define F77_dswap F77_GLOBAL(dswaptest,DSWAPTEST)
5051
#define F77_dcopy F77_GLOBAL(dcopytest,DCOPYTEST)
5152
#define F77_daxpy F77_GLOBAL(daxpytest,DAXPYTEST)
53+
#define F77_daxpby F77_GLOBAL(daxpbytest,DAXPBYTEST)
5254
#define F77_idamax F77_GLOBAL(idamaxtest,IDAMAXTEST)
5355
#define F77_cswap F77_GLOBAL(cswaptest,CSWAPTEST)
5456
#define F77_ccopy F77_GLOBAL(ccopytest,CCOPYTEST)
5557
#define F77_caxpy F77_GLOBAL(caxpytest,CAXPYTEST)
58+
#define F77_caxpby F77_GLOBAL(caxpbytest,CAXPBYTEST)
5659
#define F77_icamax F77_GLOBAL(icamaxtest,ICAMAXTEST)
5760
#define F77_zswap F77_GLOBAL(zswaptest,ZSWAPTEST)
5861
#define F77_zcopy F77_GLOBAL(zcopytest,ZCOPYTEST)
5962
#define F77_zaxpy F77_GLOBAL(zaxpytest,ZAXPYTEST)
63+
#define F77_zaxpby F77_GLOBAL(zaxpbytest,ZAXPBYTEST)
6064
#define F77_izamax F77_GLOBAL(izamaxtest,IZAMAXTEST)
6165
#define F77_sdot F77_GLOBAL(sdottest,SDOTTEST)
6266
#define F77_ddot F77_GLOBAL(ddottest,DDOTTEST)

0 commit comments

Comments
 (0)