Add declarations for ?sum and cblas_?sum

diff --git a/cblas.h b/cblas.h
index e3dacb7..1a87074 100644 (file)
--- a/cblas.h
+++ b/cblas.h
@@ -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);
 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);
 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);

diff --git a/common_c.h b/common_c.h
index ce0f2a5..40ecf5b 100644 (file)
--- a/common_c.h
+++ b/common_c.h
@@ -19,6 +19,7 @@
 #define        CDOTC_K                 cdotc_k
 #define        CNRM2_K                 cnrm2_k
 #define        CSCAL_K                 cscal_k
+#define        CSUM_K                  csum_k
 #define        CSWAP_K                 cswap_k
 #define        CROT_K                  csrot_k
 
@@ -249,6 +250,7 @@
 #define        CDOTC_K                 gotoblas -> cdotc_k
 #define        CNRM2_K                 gotoblas -> cnrm2_k
 #define        CSCAL_K                 gotoblas -> cscal_k
+#define        CSUM_K                  gotoblas -> csum_k
 #define        CSWAP_K                 gotoblas -> cswap_k
 #define        CROT_K                  gotoblas -> csrot_k
 

diff --git a/common_d.h b/common_d.h
index ad99451..94dc3ee 100644 (file)
--- a/common_d.h
+++ b/common_d.h
@@ -19,6 +19,7 @@
 #define        DDOTC_K                 ddot_k
 #define        DNRM2_K                 dnrm2_k
 #define        DSCAL_K                 dscal_k
+#define        DSUM_K                  dsum_k
 #define        DSWAP_K                 dswap_k
 #define        DROT_K                  drot_k
 
@@ -174,6 +175,7 @@
 #define        DDOTC_K                 gotoblas -> ddot_k
 #define        DNRM2_K                 gotoblas -> dnrm2_k
 #define        DSCAL_K                 gotoblas -> dscal_k
+#define        DSUM_K                  gotoblas -> dsum_k
 #define        DSWAP_K                 gotoblas -> dswap_k
 #define        DROT_K                  gotoblas -> drot_k
 

diff --git a/common_interface.h b/common_interface.h
index 15f69e0..c350ac8 100644 (file)
--- a/common_interface.h
+++ b/common_interface.h
@@ -122,6 +122,13 @@ xdouble BLASFUNC(qasum) (blasint *, xdouble *, blasint *);
 double BLASFUNC(dzasum)(blasint *, double *, 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(idamax)(blasint *, double *, blasint *);
 blasint    BLASFUNC(iqamax)(blasint *, xdouble *, blasint *);

diff --git a/common_level1.h b/common_level1.h
index 32ffd6f..74cafb6 100644 (file)
--- a/common_level1.h
+++ b/common_level1.h
@@ -100,6 +100,13 @@ float   casum_k (BLASLONG, float  *, BLASLONG);
 double  zasum_k (BLASLONG, double *, 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);
 double  damax_k (BLASLONG, double *, BLASLONG);
 xdouble qamax_k (BLASLONG, xdouble *, BLASLONG);

diff --git a/common_macro.h b/common_macro.h
index 15ba6f9..d2503aa 100644 (file)
--- a/common_macro.h
+++ b/common_macro.h
@@ -66,6 +66,7 @@
 #define        DOTC_K                  QDOTC_K
 #define        NRM2_K                  QNRM2_K
 #define        SCAL_K                  QSCAL_K
+#define        SUM_K                   QSUM_K
 #define        SWAP_K                  QSWAP_K
 #define        ROT_K                   QROT_K
 
@@ -356,6 +357,7 @@
 #define        DOTC_K                  DDOTC_K
 #define        NRM2_K                  DNRM2_K
 #define        SCAL_K                  DSCAL_K
+#define        SUM_K                   DSUM_K
 #define        SWAP_K                  DSWAP_K
 #define        ROT_K                   DROT_K
 
@@ -658,6 +660,7 @@
 #define        DOTC_K                  SDOTC_K
 #define        NRM2_K                  SNRM2_K
 #define        SCAL_K                  SSCAL_K
+#define        SUM_K                   SSUM_K
 #define        SWAP_K                  SSWAP_K
 #define        ROT_K                   SROT_K
 
@@ -962,6 +965,7 @@
 #define        DOTC_K                  XDOTC_K
 #define        NRM2_K                  XNRM2_K
 #define        SCAL_K                  XSCAL_K
+#define        SUM_K                   XSUM_K
 #define        SWAP_K                  XSWAP_K
 #define        ROT_K                   XROT_K
 
@@ -1363,6 +1367,7 @@
 #define        DOTC_K                  ZDOTC_K
 #define        NRM2_K                  ZNRM2_K
 #define        SCAL_K                  ZSCAL_K
+#define        SUM_K                   ZSUM_K
 #define        SWAP_K                  ZSWAP_K
 #define        ROT_K                   ZROT_K
 
@@ -1785,6 +1790,7 @@
 #define        DOTC_K                  CDOTC_K
 #define        NRM2_K                  CNRM2_K
 #define        SCAL_K                  CSCAL_K
+#define        SUM_K                   CSUM_K
 #define        SWAP_K                  CSWAP_K
 #define        ROT_K                   CROT_K
 

diff --git a/common_param.h b/common_param.h
index 8f162c0..574d5e1 100644 (file)
--- a/common_param.h
+++ b/common_param.h
@@ -63,6 +63,7 @@ BLASLONG (*ismin_k) (BLASLONG, float *, BLASLONG);
 
   float  (*snrm2_k) (BLASLONG, float *, BLASLONG);
   float  (*sasum_k) (BLASLONG, float *, BLASLONG);
+  float  (*ssum_k)  (BLASLONG, float *, BLASLONG);
   int    (*scopy_k) (BLASLONG, float *, BLASLONG, float *, BLASLONG);
   float  (*sdot_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 (*dasum_k) (BLASLONG, double *, BLASLONG);
+  double (*dsum_k)  (BLASLONG, double *, BLASLONG);
   int    (*dcopy_k) (BLASLONG, double *, BLASLONG, double *, BLASLONG);
   double (*ddot_k)  (BLASLONG, double *, BLASLONG, double *, BLASLONG);
   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 (*qasum_k) (BLASLONG, xdouble *, BLASLONG);
+ xdouble (*qsum_k)  (BLASLONG, xdouble *, BLASLONG);
   int    (*qcopy_k) (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
  xdouble (*qdot_k)  (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
   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 (*casum_k) (BLASLONG, float *, BLASLONG);
+  float (*csum_k)  (BLASLONG, float *, BLASLONG);
   int    (*ccopy_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);
@@ -495,6 +499,7 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG);
 
   double (*znrm2_k) (BLASLONG, double *, BLASLONG);
   double (*zasum_k) (BLASLONG, double *, BLASLONG);
+  double (*zsum_k)  (BLASLONG, double *, BLASLONG);
   int    (*zcopy_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);
@@ -660,6 +665,7 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG);
 
   xdouble (*xnrm2_k) (BLASLONG, xdouble *, BLASLONG);
   xdouble (*xasum_k) (BLASLONG, xdouble *, BLASLONG);
+  xdouble (*xsum_k) (BLASLONG, xdouble *, BLASLONG);
   int    (*xcopy_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);

diff --git a/common_s.h b/common_s.h
index 3c16008..23c432f 100644 (file)
--- a/common_s.h
+++ b/common_s.h
@@ -12,6 +12,7 @@
 #define        ISMAX_K                 ismax_k
 #define        ISMIN_K                 ismin_k
 #define        SASUM_K                 sasum_k
+#define        SSUM_K                  ssum_k
 #define        SAXPYU_K                saxpy_k
 #define        SAXPYC_K                saxpy_k
 #define        SCOPY_K                 scopy_k
@@ -170,6 +171,7 @@
 #define        ISMAX_K                 gotoblas -> ismax_k
 #define        ISMIN_K                 gotoblas -> ismin_k
 #define        SASUM_K                 gotoblas -> sasum_k
+#define        SSUM_K                  gotoblas -> ssum_k
 #define        SAXPYU_K                gotoblas -> saxpy_k
 #define        SAXPYC_K                gotoblas -> saxpy_k
 #define        SCOPY_K                 gotoblas -> scopy_k

diff --git a/common_z.h b/common_z.h
index b4f58bb..f1e78dd 100644 (file)
--- a/common_z.h
+++ b/common_z.h
@@ -19,6 +19,7 @@
 #define        ZDOTC_K                 zdotc_k
 #define        ZNRM2_K                 znrm2_k
 #define        ZSCAL_K                 zscal_k
+#define        ZSUM_K                  zsum_k
 #define        ZSWAP_K                 zswap_k
 #define        ZROT_K                  zdrot_k
 
@@ -249,6 +250,7 @@
 #define        ZDOTC_K                 gotoblas -> zdotc_k
 #define        ZNRM2_K                 gotoblas -> znrm2_k
 #define        ZSCAL_K                 gotoblas -> zscal_k
+#define        ZSUM_K                  gotoblas -> zsum_k
 #define        ZSWAP_K                 gotoblas -> zswap_k
 #define        ZROT_K                  gotoblas -> zdrot_k