@@ -73,6 +73,11 @@ double cblas_dasum (OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPENBLAS | |||||
float cblas_scasum(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); | float cblas_scasum(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); | ||||
double cblas_dzasum(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); | double cblas_dzasum(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); | ||||
float cblas_ssum (OPENBLAS_CONST blasint n, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx); | |||||
double cblas_dsum (OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx); | |||||
float cblas_scsum(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); | |||||
double cblas_dzsum(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); | |||||
float cblas_snrm2 (OPENBLAS_CONST blasint N, OPENBLAS_CONST float *X, OPENBLAS_CONST blasint incX); | float cblas_snrm2 (OPENBLAS_CONST blasint N, OPENBLAS_CONST float *X, OPENBLAS_CONST blasint incX); | ||||
double cblas_dnrm2 (OPENBLAS_CONST blasint N, OPENBLAS_CONST double *X, OPENBLAS_CONST blasint incX); | double cblas_dnrm2 (OPENBLAS_CONST blasint N, OPENBLAS_CONST double *X, OPENBLAS_CONST blasint incX); | ||||
float cblas_scnrm2(OPENBLAS_CONST blasint N, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX); | float cblas_scnrm2(OPENBLAS_CONST blasint N, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX); | ||||
@@ -19,6 +19,7 @@ | |||||
#define CDOTC_K cdotc_k | #define CDOTC_K cdotc_k | ||||
#define CNRM2_K cnrm2_k | #define CNRM2_K cnrm2_k | ||||
#define CSCAL_K cscal_k | #define CSCAL_K cscal_k | ||||
#define CSUM_K csum_k | |||||
#define CSWAP_K cswap_k | #define CSWAP_K cswap_k | ||||
#define CROT_K csrot_k | #define CROT_K csrot_k | ||||
@@ -249,6 +250,7 @@ | |||||
#define CDOTC_K gotoblas -> cdotc_k | #define CDOTC_K gotoblas -> cdotc_k | ||||
#define CNRM2_K gotoblas -> cnrm2_k | #define CNRM2_K gotoblas -> cnrm2_k | ||||
#define CSCAL_K gotoblas -> cscal_k | #define CSCAL_K gotoblas -> cscal_k | ||||
#define CSUM_K gotoblas -> csum_k | |||||
#define CSWAP_K gotoblas -> cswap_k | #define CSWAP_K gotoblas -> cswap_k | ||||
#define CROT_K gotoblas -> csrot_k | #define CROT_K gotoblas -> csrot_k | ||||
@@ -19,6 +19,7 @@ | |||||
#define DDOTC_K ddot_k | #define DDOTC_K ddot_k | ||||
#define DNRM2_K dnrm2_k | #define DNRM2_K dnrm2_k | ||||
#define DSCAL_K dscal_k | #define DSCAL_K dscal_k | ||||
#define DSUM_K dsum_k | |||||
#define DSWAP_K dswap_k | #define DSWAP_K dswap_k | ||||
#define DROT_K drot_k | #define DROT_K drot_k | ||||
@@ -174,6 +175,7 @@ | |||||
#define DDOTC_K gotoblas -> ddot_k | #define DDOTC_K gotoblas -> ddot_k | ||||
#define DNRM2_K gotoblas -> dnrm2_k | #define DNRM2_K gotoblas -> dnrm2_k | ||||
#define DSCAL_K gotoblas -> dscal_k | #define DSCAL_K gotoblas -> dscal_k | ||||
#define DSUM_K gotoblas -> dsum_k | |||||
#define DSWAP_K gotoblas -> dswap_k | #define DSWAP_K gotoblas -> dswap_k | ||||
#define DROT_K gotoblas -> drot_k | #define DROT_K gotoblas -> drot_k | ||||
@@ -122,6 +122,13 @@ xdouble BLASFUNC(qasum) (blasint *, xdouble *, blasint *); | |||||
double BLASFUNC(dzasum)(blasint *, double *, blasint *); | double BLASFUNC(dzasum)(blasint *, double *, blasint *); | ||||
xdouble BLASFUNC(qxasum)(blasint *, xdouble *, blasint *); | xdouble BLASFUNC(qxasum)(blasint *, xdouble *, blasint *); | ||||
FLOATRET BLASFUNC(ssum) (blasint *, float *, blasint *); | |||||
FLOATRET BLASFUNC(scsum)(blasint *, float *, blasint *); | |||||
double BLASFUNC(dsum) (blasint *, double *, blasint *); | |||||
xdouble BLASFUNC(qsum) (blasint *, xdouble *, blasint *); | |||||
double BLASFUNC(dzsum)(blasint *, double *, blasint *); | |||||
xdouble BLASFUNC(qxsum)(blasint *, xdouble *, blasint *); | |||||
blasint BLASFUNC(isamax)(blasint *, float *, blasint *); | blasint BLASFUNC(isamax)(blasint *, float *, blasint *); | ||||
blasint BLASFUNC(idamax)(blasint *, double *, blasint *); | blasint BLASFUNC(idamax)(blasint *, double *, blasint *); | ||||
blasint BLASFUNC(iqamax)(blasint *, xdouble *, blasint *); | blasint BLASFUNC(iqamax)(blasint *, xdouble *, blasint *); | ||||
@@ -100,6 +100,13 @@ float casum_k (BLASLONG, float *, BLASLONG); | |||||
double zasum_k (BLASLONG, double *, BLASLONG); | double zasum_k (BLASLONG, double *, BLASLONG); | ||||
xdouble xasum_k (BLASLONG, xdouble *, BLASLONG); | xdouble xasum_k (BLASLONG, xdouble *, BLASLONG); | ||||
float ssum_k (BLASLONG, float *, BLASLONG); | |||||
double dsum_k (BLASLONG, double *, BLASLONG); | |||||
xdouble qsum_k (BLASLONG, xdouble *, BLASLONG); | |||||
float csum_k (BLASLONG, float *, BLASLONG); | |||||
double zsum_k (BLASLONG, double *, BLASLONG); | |||||
xdouble xsum_k (BLASLONG, xdouble *, BLASLONG); | |||||
float samax_k (BLASLONG, float *, BLASLONG); | float samax_k (BLASLONG, float *, BLASLONG); | ||||
double damax_k (BLASLONG, double *, BLASLONG); | double damax_k (BLASLONG, double *, BLASLONG); | ||||
xdouble qamax_k (BLASLONG, xdouble *, BLASLONG); | xdouble qamax_k (BLASLONG, xdouble *, BLASLONG); | ||||
@@ -66,6 +66,7 @@ | |||||
#define DOTC_K QDOTC_K | #define DOTC_K QDOTC_K | ||||
#define NRM2_K QNRM2_K | #define NRM2_K QNRM2_K | ||||
#define SCAL_K QSCAL_K | #define SCAL_K QSCAL_K | ||||
#define SUM_K QSUM_K | |||||
#define SWAP_K QSWAP_K | #define SWAP_K QSWAP_K | ||||
#define ROT_K QROT_K | #define ROT_K QROT_K | ||||
@@ -356,6 +357,7 @@ | |||||
#define DOTC_K DDOTC_K | #define DOTC_K DDOTC_K | ||||
#define NRM2_K DNRM2_K | #define NRM2_K DNRM2_K | ||||
#define SCAL_K DSCAL_K | #define SCAL_K DSCAL_K | ||||
#define SUM_K DSUM_K | |||||
#define SWAP_K DSWAP_K | #define SWAP_K DSWAP_K | ||||
#define ROT_K DROT_K | #define ROT_K DROT_K | ||||
@@ -658,6 +660,7 @@ | |||||
#define DOTC_K SDOTC_K | #define DOTC_K SDOTC_K | ||||
#define NRM2_K SNRM2_K | #define NRM2_K SNRM2_K | ||||
#define SCAL_K SSCAL_K | #define SCAL_K SSCAL_K | ||||
#define SUM_K SSUM_K | |||||
#define SWAP_K SSWAP_K | #define SWAP_K SSWAP_K | ||||
#define ROT_K SROT_K | #define ROT_K SROT_K | ||||
@@ -962,6 +965,7 @@ | |||||
#define DOTC_K XDOTC_K | #define DOTC_K XDOTC_K | ||||
#define NRM2_K XNRM2_K | #define NRM2_K XNRM2_K | ||||
#define SCAL_K XSCAL_K | #define SCAL_K XSCAL_K | ||||
#define SUM_K XSUM_K | |||||
#define SWAP_K XSWAP_K | #define SWAP_K XSWAP_K | ||||
#define ROT_K XROT_K | #define ROT_K XROT_K | ||||
@@ -1363,6 +1367,7 @@ | |||||
#define DOTC_K ZDOTC_K | #define DOTC_K ZDOTC_K | ||||
#define NRM2_K ZNRM2_K | #define NRM2_K ZNRM2_K | ||||
#define SCAL_K ZSCAL_K | #define SCAL_K ZSCAL_K | ||||
#define SUM_K ZSUM_K | |||||
#define SWAP_K ZSWAP_K | #define SWAP_K ZSWAP_K | ||||
#define ROT_K ZROT_K | #define ROT_K ZROT_K | ||||
@@ -1785,6 +1790,7 @@ | |||||
#define DOTC_K CDOTC_K | #define DOTC_K CDOTC_K | ||||
#define NRM2_K CNRM2_K | #define NRM2_K CNRM2_K | ||||
#define SCAL_K CSCAL_K | #define SCAL_K CSCAL_K | ||||
#define SUM_K CSUM_K | |||||
#define SWAP_K CSWAP_K | #define SWAP_K CSWAP_K | ||||
#define ROT_K CROT_K | #define ROT_K CROT_K | ||||
@@ -63,6 +63,7 @@ BLASLONG (*ismin_k) (BLASLONG, float *, BLASLONG); | |||||
float (*snrm2_k) (BLASLONG, float *, BLASLONG); | float (*snrm2_k) (BLASLONG, float *, BLASLONG); | ||||
float (*sasum_k) (BLASLONG, float *, BLASLONG); | float (*sasum_k) (BLASLONG, float *, BLASLONG); | ||||
float (*ssum_k) (BLASLONG, float *, BLASLONG); | |||||
int (*scopy_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG); | int (*scopy_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG); | ||||
float (*sdot_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG); | float (*sdot_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG); | ||||
double (*dsdot_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG); | double (*dsdot_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG); | ||||
@@ -154,6 +155,7 @@ BLASLONG (*idmin_k) (BLASLONG, double *, BLASLONG); | |||||
double (*dnrm2_k) (BLASLONG, double *, BLASLONG); | double (*dnrm2_k) (BLASLONG, double *, BLASLONG); | ||||
double (*dasum_k) (BLASLONG, double *, BLASLONG); | double (*dasum_k) (BLASLONG, double *, BLASLONG); | ||||
double (*dsum_k) (BLASLONG, double *, BLASLONG); | |||||
int (*dcopy_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG); | int (*dcopy_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG); | ||||
double (*ddot_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG); | double (*ddot_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG); | ||||
int (*drot_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG, double, double); | int (*drot_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG, double, double); | ||||
@@ -245,6 +247,7 @@ BLASLONG (*iqmin_k) (BLASLONG, xdouble *, BLASLONG); | |||||
xdouble (*qnrm2_k) (BLASLONG, xdouble *, BLASLONG); | xdouble (*qnrm2_k) (BLASLONG, xdouble *, BLASLONG); | ||||
xdouble (*qasum_k) (BLASLONG, xdouble *, BLASLONG); | xdouble (*qasum_k) (BLASLONG, xdouble *, BLASLONG); | ||||
xdouble (*qsum_k) (BLASLONG, xdouble *, BLASLONG); | |||||
int (*qcopy_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | int (*qcopy_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | ||||
xdouble (*qdot_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | xdouble (*qdot_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | ||||
int (*qrot_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble); | int (*qrot_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble); | ||||
@@ -332,6 +335,7 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); | |||||
float (*cnrm2_k) (BLASLONG, float *, BLASLONG); | float (*cnrm2_k) (BLASLONG, float *, BLASLONG); | ||||
float (*casum_k) (BLASLONG, float *, BLASLONG); | float (*casum_k) (BLASLONG, float *, BLASLONG); | ||||
float (*csum_k) (BLASLONG, float *, BLASLONG); | |||||
int (*ccopy_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG); | int (*ccopy_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG); | ||||
openblas_complex_float (*cdotu_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG); | openblas_complex_float (*cdotu_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG); | ||||
openblas_complex_float (*cdotc_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG); | openblas_complex_float (*cdotc_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG); | ||||
@@ -495,6 +499,7 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); | |||||
double (*znrm2_k) (BLASLONG, double *, BLASLONG); | double (*znrm2_k) (BLASLONG, double *, BLASLONG); | ||||
double (*zasum_k) (BLASLONG, double *, BLASLONG); | double (*zasum_k) (BLASLONG, double *, BLASLONG); | ||||
double (*zsum_k) (BLASLONG, double *, BLASLONG); | |||||
int (*zcopy_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG); | int (*zcopy_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG); | ||||
openblas_complex_double (*zdotu_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG); | openblas_complex_double (*zdotu_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG); | ||||
openblas_complex_double (*zdotc_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG); | openblas_complex_double (*zdotc_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG); | ||||
@@ -660,6 +665,7 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); | |||||
xdouble (*xnrm2_k) (BLASLONG, xdouble *, BLASLONG); | xdouble (*xnrm2_k) (BLASLONG, xdouble *, BLASLONG); | ||||
xdouble (*xasum_k) (BLASLONG, xdouble *, BLASLONG); | xdouble (*xasum_k) (BLASLONG, xdouble *, BLASLONG); | ||||
xdouble (*xsum_k) (BLASLONG, xdouble *, BLASLONG); | |||||
int (*xcopy_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | int (*xcopy_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | ||||
openblas_complex_xdouble (*xdotu_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | openblas_complex_xdouble (*xdotu_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | ||||
openblas_complex_xdouble (*xdotc_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | openblas_complex_xdouble (*xdotc_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | ||||
@@ -12,6 +12,7 @@ | |||||
#define ISMAX_K ismax_k | #define ISMAX_K ismax_k | ||||
#define ISMIN_K ismin_k | #define ISMIN_K ismin_k | ||||
#define SASUM_K sasum_k | #define SASUM_K sasum_k | ||||
#define SSUM_K ssum_k | |||||
#define SAXPYU_K saxpy_k | #define SAXPYU_K saxpy_k | ||||
#define SAXPYC_K saxpy_k | #define SAXPYC_K saxpy_k | ||||
#define SCOPY_K scopy_k | #define SCOPY_K scopy_k | ||||
@@ -170,6 +171,7 @@ | |||||
#define ISMAX_K gotoblas -> ismax_k | #define ISMAX_K gotoblas -> ismax_k | ||||
#define ISMIN_K gotoblas -> ismin_k | #define ISMIN_K gotoblas -> ismin_k | ||||
#define SASUM_K gotoblas -> sasum_k | #define SASUM_K gotoblas -> sasum_k | ||||
#define SSUM_K gotoblas -> ssum_k | |||||
#define SAXPYU_K gotoblas -> saxpy_k | #define SAXPYU_K gotoblas -> saxpy_k | ||||
#define SAXPYC_K gotoblas -> saxpy_k | #define SAXPYC_K gotoblas -> saxpy_k | ||||
#define SCOPY_K gotoblas -> scopy_k | #define SCOPY_K gotoblas -> scopy_k | ||||
@@ -19,6 +19,7 @@ | |||||
#define ZDOTC_K zdotc_k | #define ZDOTC_K zdotc_k | ||||
#define ZNRM2_K znrm2_k | #define ZNRM2_K znrm2_k | ||||
#define ZSCAL_K zscal_k | #define ZSCAL_K zscal_k | ||||
#define ZSUM_K zsum_k | |||||
#define ZSWAP_K zswap_k | #define ZSWAP_K zswap_k | ||||
#define ZROT_K zdrot_k | #define ZROT_K zdrot_k | ||||
@@ -249,6 +250,7 @@ | |||||
#define ZDOTC_K gotoblas -> zdotc_k | #define ZDOTC_K gotoblas -> zdotc_k | ||||
#define ZNRM2_K gotoblas -> znrm2_k | #define ZNRM2_K gotoblas -> znrm2_k | ||||
#define ZSCAL_K gotoblas -> zscal_k | #define ZSCAL_K gotoblas -> zscal_k | ||||
#define ZSUM_K gotoblas -> zsum_k | |||||
#define ZSWAP_K gotoblas -> zswap_k | #define ZSWAP_K gotoblas -> zswap_k | ||||
#define ZROT_K gotoblas -> zdrot_k | #define ZROT_K gotoblas -> zdrot_k | ||||