| /external/eigen/blas/ |
| H A D | double.cpp | 22 double BLASFUNC(dsdot)(int* n, float* x, int* incx, float* y, int* incy) argument
26 if(*incx==1 && *incy==1) return (make_vector(x,*n).cast<double>().cwiseProduct(make_vector(y,*n).cast<double>())).sum();
27 else if(*incx>0 && *incy>0) return (make_vector(x,*n,*incx).cast<double>().cwiseProduct(make_vector(y,*n,*incy).cast<double>())).sum();
28 else if(*incx<0 && *incy>0) return (make_vector(x,*n,-*incx).reverse().cast<double>().cwiseProduct(make_vector(y,*n,*incy).cast<double>())).sum();
29 else if(*incx>0 && *incy<0) return (make_vector(x,*n,*incx).cast<double>().cwiseProduct(make_vector(y,*n,-*incy).reverse().cast<double>())).sum();
30 else if(*incx<0 && *incy<0) return (make_vector(x,*n,-*incx)
[all...] |
| H A D | level1_real_impl.h | 14 RealScalar EIGEN_BLAS_FUNC(asum)(int *n, RealScalar *px, int *incx) argument
16 // std::cerr << "_asum " << *n << " " << *incx << "\n";
22 if(*incx==1) return make_vector(x,*n).cwiseAbs().sum();
23 else return make_vector(x,*n,std::abs(*incx)).cwiseAbs().sum();
27 Scalar EIGEN_BLAS_FUNC(dot)(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy) argument
29 // std::cerr << "_dot " << *n << " " << *incx << " " << *incy << "\n";
36 if(*incx==1 && *incy==1) return (make_vector(x,*n).cwiseProduct(make_vector(y,*n))).sum();
37 else if(*incx>0 && *incy>0) return (make_vector(x,*n,*incx).cwiseProduct(make_vector(y,*n,*incy))).sum();
38 else if(*incx<
46 nrm2(int *n, RealScalar *px, int *incx) argument
57 rot(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pc, RealScalar *ps) argument
[all...] |
| H A D | single.cpp | 21 float BLASFUNC(sdsdot)(int* n, float* alpha, float* x, int* incx, float* y, int* incy) argument
22 { return double(*alpha) + BLASFUNC(dsdot)(n, x, incx, y, incy); }
|
| /external/eigen/blas/f2c/ |
| H A D | complexdots.c | 22 *incx, complex *cy, integer *incy)
33 cdotcw_(n, &cx[1], incx, &cy[1], incy, &res);
38 *incx, complex *cy, integer *incy)
49 cdotuw_(n, &cx[1], incx, &cy[1], incy, &res);
53 doublecomplex zdotc_(integer *n, doublecomplex *cx, integer *incx, argument
65 zdotcw_(n, &cx[1], incx, &cy[1], incy, &res);
69 doublecomplex zdotu_(integer *n, doublecomplex *cx, integer *incx, argument
81 zdotuw_(n, &cx[1], incx, &cy[1], incy, &res);
21 cdotc_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy) argument
37 cdotu_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy) argument
|
| H A D | drotm.c | 15 /* Subroutine */ int drotm_(integer *n, doublereal *dx, integer *incx, argument
99 if (! (*incx == *incy && *incx > 0)) {
103 nsteps = *n * *incx;
115 i__2 = *incx;
128 i__1 = *incx;
143 i__2 = *incx;
155 if (*incx < 0) {
156 kx = (1 - *n) * *incx + 1;
178 kx += *incx;
[all...] |
| H A D | dspmv.c | 16 doublereal *ap, doublereal *x, integer *incx, doublereal *beta,
145 } else if (*incx == 0) {
163 if (*incx > 0) {
166 kx = 1 - (*n - 1) * *incx;
221 if (*incx == 1 && *incy == 1) {
251 ix += *incx;
256 jx += *incx;
266 if (*incx == 1 && *incy == 1) {
296 ix += *incx;
303 jx += *incx;
15 dspmv_(char *uplo, integer *n, doublereal *alpha, doublereal *ap, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy, ftnlen uplo_len) argument
[all...] |
| H A D | srotm.c | 15 /* Subroutine */ int srotm_(integer *n, real *sx, integer *incx, real *sy, argument
100 if (! (*incx == *incy && *incx > 0)) {
104 nsteps = *n * *incx;
116 i__2 = *incx;
129 i__1 = *incx;
144 i__2 = *incx;
156 if (*incx < 0) {
157 kx = (1 - *n) * *incx + 1;
179 kx += *incx;
[all...] |
| H A D | sspmv.c | 16 real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen
145 } else if (*incx == 0) {
163 if (*incx > 0) {
166 kx = 1 - (*n - 1) * *incx;
221 if (*incx == 1 && *incy == 1) {
251 ix += *incx;
256 jx += *incx;
266 if (*incx == 1 && *incy == 1) {
296 ix += *incx;
303 jx += *incx;
15 sspmv_(char *uplo, integer *n, real *alpha, real *ap, real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen uplo_len) argument
[all...] |
| /external/cblas/examples/ |
| H A D | cblas_example1.c | 14 int m, n, lda, incx, incy, i; local
22 incx = 1;
60 cblas_dgemv( order, transa, m, n, alpha, a, lda, x, incx, beta,
|
| /external/cblas/src/ |
| H A D | cblas_chpr.c | 27 #define F77_incX incx
29 int n, i, tincx, incx=incX; local
96 incx = 1;
|
| H A D | cblas_zhpr.c | 27 #define F77_incX incx
29 int n, i, tincx, incx=incX; local
96 incx = 1;
|
| H A D | cblas_cher.c | 28 #define F77_incX incx
30 int n, i, tincx, incx=incX; local
98 incx = 1;
|
| H A D | cblas_zher.c | 28 #define F77_incX incx
30 int n, i, tincx, incx=incX; local
98 incx = 1;
|
| H A D | cblas_zhpr2.c | 28 #define F77_incX incx
31 int n, i, j, incx=incX, incy=incY; local
119 incx = 1;
121 incx = -1;
|
| H A D | cblas_cgbmv.c | 34 #define F77_incX incx
37 int n=0, i=0, incx=incX; local
106 incx = 1;
|
| H A D | cblas_cgemv.c | 30 #define F77_incX incx
34 int n=0, i=0, incx=incX; local
|
| H A D | cblas_chbmv.c | 30 #define F77_incX incx
33 int n, i=0, incx=incX; local
99 incx = 1;
|
| H A D | cblas_chemv.c | 29 #define F77_incX incx
32 int n=0, i=0, incx=incX; local
99 incx = 1;
|
| H A D | cblas_cher2.c | 28 #define F77_incX incx
31 int n, i, j, tincx, tincy, incx=incX, incy=incY; local
127 incx = 1;
|
| H A D | cblas_chpmv.c | 28 #define F77_incX incx
31 int n, i=0, incx=incX; local
97 incx = 1;
|
| H A D | cblas_chpr2.c | 28 #define F77_incX incx
31 int n, i, j, tincx, tincy, incx=incX, incy=incY; local
125 incx = 1;
|
| H A D | cblas_zgbmv.c | 34 #define F77_incX incx
37 int n, i=0, incx=incX; local
106 incx = 1;
|
| H A D | cblas_zgemv.c | 30 #define F77_incX incx
34 int n, i=0, incx=incX; local
105 incx = 1;
|
| H A D | cblas_zhbmv.c | 30 #define F77_incX incx
33 int n, i=0, incx=incX; local
99 incx = 1;
|
| H A D | cblas_zhemv.c | 29 #define F77_incX incx
32 int n, i=0, incx=incX; local
99 incx = 1;
|