| /external/eigen/blas/ |
| double.cpp | 22 double BLASFUNC(dsdot)(int* n, float* x, int* incx, float* y, int* incy)
26 if(*incx==1 && *incy==1) return (vector(x,*n).cast<double>().cwiseProduct(vector(y,*n).cast<double>())).sum();
27 else if(*incx>0 && *incy>0) return (vector(x,*n,*incx).cast<double>().cwiseProduct(vector(y,*n,*incy).cast<double>())).sum();
28 else if(*incx<0 && *incy>0) return (vector(x,*n,-*incx).reverse().cast<double>().cwiseProduct(vector(y,*n,*incy).cast<double>())).sum();
29 else if(*incx>0 && *incy<0) return (vector(x,*n,*incx).cast<double>().cwiseProduct(vector(y,*n,-*incy).reverse().cast<double>())).sum();
30 else if(*incx<0 && *incy<0) return (vector(x,*n,-*incx).reverse().cast<double>().cwiseProduct(vector(y,*n,-*incy).reverse().cast<double>())).sum()
[all...] |
| single.cpp | 21 float BLASFUNC(sdsdot)(int* n, float* alpha, float* x, int* incx, float* y, int* incy)
22 { return *alpha + BLASFUNC(dsdot)(n, x, incx, y, incy); }
|
| level1_real_impl.h | 27 Scalar EIGEN_BLAS_FUNC(dot)(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy)
29 // std::cerr << "_dot " << *n << " " << *incx << " " << *incy << "\n";
36 if(*incx==1 && *incy==1) return (vector(x,*n).cwiseProduct(vector(y,*n))).sum();
37 else if(*incx>0 && *incy>0) return (vector(x,*n,*incx).cwiseProduct(vector(y,*n,*incy))).sum();
38 else if(*incx<0 && *incy>0) return (vector(x,*n,-*incx).reverse().cwiseProduct(vector(y,*n,*incy))).sum();
39 else if(*incx>0 && *incy<0) return (vector(x,*n,*incx).cwiseProduct(vector(y,*n,-*incy).reverse())).sum();
40 else if(*incx<0 && *incy<0) return (vector(x,*n,-*incx).reverse().cwiseProduct(vector(y,*n,-*incy).reverse())).sum()
[all...] |
| level1_impl.h | 12 int EIGEN_BLAS_FUNC(axpy)(int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy)
20 if(*incx==1 && *incy==1) vector(y,*n) += alpha * vector(x,*n);
21 else if(*incx>0 && *incy>0) vector(y,*n,*incy) += alpha * vector(x,*n,*incx);
22 else if(*incx>0 && *incy<0) vector(y,*n,-*incy).reverse() += alpha * vector(x,*n,*incx);
23 else if(*incx<0 && *incy>0) vector(y,*n,*incy) += alpha * vector(x,*n,-*incx).reverse();
24 else if(*incx<0 && *incy<0) vector(y,*n,-*incy).reverse() += alpha * vector(x,*n,-*incx).reverse()
[all...] |
| level1_cplx_impl.h | 40 int EIGEN_BLAS_FUNC(dotcw)(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar* pres)
42 // std::cerr << "_dotc " << *n << " " << *incx << " " << *incy << "\n";
50 if(*incx==1 && *incy==1) *res = (vector(x,*n).dot(vector(y,*n)));
51 else if(*incx>0 && *incy>0) *res = (vector(x,*n,*incx).dot(vector(y,*n,*incy)));
52 else if(*incx<0 && *incy>0) *res = (vector(x,*n,-*incx).reverse().dot(vector(y,*n,*incy)));
53 else if(*incx>0 && *incy<0) *res = (vector(x,*n,*incx).dot(vector(y,*n,-*incy).reverse()));
54 else if(*incx<0 && *incy<0) *res = (vector(x,*n,-*incx).reverse().dot(vector(y,*n,-*incy).reverse()))
[all...] |
| level2_real_impl.h | 13 int EIGEN_BLAS_FUNC(symv) (char *uplo, int *n, RealScalar *palpha, RealScalar *pa, int *lda, RealScalar *px, int *incx, RealScalar *pbeta, RealScalar *py, int *incy)
42 else if(*incy==0) info = 10;
50 Scalar* actual_y = get_compact_vector(y,*n,*incy);
65 if(actual_y!=y) delete[] copy_back(actual_y,y,*n,*incy);
132 int EIGEN_BLAS_FUNC(syr2)(char *uplo, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pc, int *ldc)
172 else if(*incy==0) info = 7;
181 Scalar* y_cpy = get_compact_vector(y,*n,*incy);
208 // RealScalar *x, int *incx, RealScalar *beta, RealScalar *y, int *incy)
222 // int EIGEN_BLAS_FUNC(spmv)(char *uplo, int *n, RealScalar *alpha, RealScalar *ap, RealScalar *x, int *incx, RealScalar *beta, RealScalar *y, int *incy)
285 int EIGEN_BLAS_FUNC(spr2)(char *uplo, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pap
[all...] |
| level2_cplx_impl.h | 19 int EIGEN_BLAS_FUNC(hemv)(char *uplo, int *n, RealScalar *palpha, RealScalar *pa, int *lda, RealScalar *px, int *incx, RealScalar *pbeta, RealScalar *py, int *incy)
48 else if(*incy==0) info = 10;
56 Scalar* actual_y = get_compact_vector(y,*n,*incy);
74 if(actual_y!=y) delete[] copy_back(actual_y,y,*n,*incy);
87 // RealScalar *x, int *incx, RealScalar *beta, RealScalar *y, int *incy)
99 // int EIGEN_BLAS_FUNC(hpmv)(char *uplo, int *n, RealScalar *alpha, RealScalar *ap, RealScalar *x, int *incx, RealScalar *beta, RealScalar *y, int *incy)
162 int EIGEN_BLAS_FUNC(hpr2)(char *uplo, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pap)
188 else if(*incy==0) info = 7;
196 Scalar* y_cpy = get_compact_vector(y, *n, *incy);
271 int EIGEN_BLAS_FUNC(her2)(char *uplo, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pa, int *lda
[all...] |
| /external/eigen/blas/f2c/ |
| 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);
54 doublecomplex *cy, integer *incy)
65 zdotcw_(n, &cx[1], incx, &cy[1], incy, &res);
70 doublecomplex *cy, integer *incy)
81 zdotuw_(n, &cx[1], incx, &cy[1], incy, &res);
|
| dsbmv.c | 17 doublereal *beta, doublereal *y, integer *incy, ftnlen uplo_len)
135 /* ( 1 + ( n - 1 )*abs( INCY ) ). */
139 /* INCY - INTEGER. */
140 /* On entry, INCY specifies the increment for the elements of */
141 /* Y. INCY must not be zero. */
188 } else if (*incy == 0) {
209 if (*incy > 0) {
212 ky = 1 - (*n - 1) * *incy;
221 if (*incy == 1) {
241 iy += *incy;
[all...] |
| ssbmv.c | 17 integer *incy, ftnlen uplo_len)
135 /* ( 1 + ( n - 1 )*abs( INCY ) ). */
139 /* INCY - INTEGER. */
140 /* On entry, INCY specifies the increment for the elements of */
141 /* Y. INCY must not be zero. */
190 } else if (*incy == 0) {
211 if (*incy > 0) {
214 ky = 1 - (*n - 1) * *incy;
223 if (*incy == 1) {
243 iy += *incy;
[all...] |
| dspmv.c | 17 doublereal *y, integer *incy, ftnlen uplo_len)
99 /* ( 1 + ( n - 1 )*abs( INCY ) ). */
104 /* INCY - INTEGER. */
105 /* On entry, INCY specifies the increment for the elements of */
106 /* Y. INCY must not be zero. */
147 } else if (*incy == 0) {
168 if (*incy > 0) {
171 ky = 1 - (*n - 1) * *incy;
180 if (*incy == 1) {
200 iy += *incy;
[all...] |
| sspmv.c | 16 real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen
99 /* ( 1 + ( n - 1 )*abs( INCY ) ). */
104 /* INCY - INTEGER. */
105 /* On entry, INCY specifies the increment for the elements of */
106 /* Y. INCY must not be zero. */
147 } else if (*incy == 0) {
168 if (*incy > 0) {
171 ky = 1 - (*n - 1) * *incy;
180 if (*incy == 1) {
200 iy += *incy;
[all...] |
| drotm.c | 16 doublereal *dy, integer *incy, doublereal *dparam)
47 /* LX = (-INCX)*N, AND SIMILARLY FOR SY USING LY AND INCY. */
72 /* INCY (input) INTEGER */
99 if (! (*incx == *incy && *incx > 0)) {
158 if (*incy < 0) {
159 ky = (1 - *n) * *incy + 1;
179 ky += *incy;
193 ky += *incy;
209 ky += *incy;
|
| srotm.c | 16 integer *incy, real *sparam)
47 /* LX = (-INCX)*N, AND SIMILARLY FOR SY USING USING LY AND INCY. */
73 /* INCY (input) INTEGER */
100 if (! (*incx == *incy && *incx > 0)) {
159 if (*incy < 0) {
160 ky = (1 - *n) * *incy + 1;
180 ky += *incy;
194 ky += *incy;
210 ky += *incy;
|
| /external/cblas/examples/ |
| cblas_example1.c | 14 int m, n, lda, incx, incy, i; local
23 incy = 1;
61 y, incy );
|
| /external/cblas/src/ |
| cblas_cgerc.c | 14 const void *Y, const int incY, void *A, const int lda)
17 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
22 #define F77_incY incy
26 int n, i, tincy, incy=incY; local
47 if( incY > 0 ) {
48 i = incY << 1;
52 i = incY *(-2);
70 incy = 1;
|
| cblas_zgerc.c | 14 const void *Y, const int incY, void *A, const int lda)
17 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
22 #define F77_incY incy
26 int n, i, tincy, incy=incY; local
47 if( incY > 0 ) {
48 i = incY << 1;
52 i = incY *(-2);
70 incy = 1;
|
| cblas_zhpr2.c | 14 const int incX,const void *Y, const int incY, void *Ap)
25 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
29 #define F77_incY incy
31 int n, i, j, incx=incX, incy=incY; local
84 if( incY > 0 )
85 j = incY << 1;
87 j = incY *(-2);
112 if(incY > 0 )
123 if(incY > 0
[all...] |
| cblas_cher2.c | 14 const void *Y, const int incY, void *A, const int lda)
24 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
29 #define F77_incY incy
31 int n, i, j, tincx, tincy, incx=incX, incy=incY; local
91 if( incY > 0 ) {
92 j = incY << 1;
96 j = incY *(-2);
128 incy = 1;
|
| cblas_chpr2.c | 14 const int incX,const void *Y, const int incY, void *Ap)
25 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
29 #define F77_incY incy
31 int n, i, j, tincx, tincy, incx=incX, incy=incY; local
90 if( incY > 0 ) {
91 j = incY << 1;
95 j = incY *(-2);
126 incy = 1;
|
| cblas_zher2.c | 14 const void *Y, const int incY, void *A, const int lda)
24 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
29 #define F77_incY incy
31 int n, i, j, tincx, tincy, incx=incX, incy=incY; local
91 if( incY > 0 ) {
92 j = incY << 1;
96 j = incY *(-2);
128 incy = 1;
|
| /external/cblas/testing/ |
| c_dblas2.c | 13 double *y, int *incy ) {
27 *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy );
32 *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
35 *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
39 double *y, int *incy, double *a, int *lda ) {
53 cblas_dger(CblasRowMajor, *m, *n, *alpha, x, *incx, y, *incy, A, LDA );
60 cblas_dger( CblasColMajor, *m, *n, *alpha, x, *incx, y, *incy, a, *lda );
117 int *incy) {
131 *beta, y, *incy );
136 *beta, y, *incy );
[all...] |
| c_sblas2.c | 13 float *y, int *incy ) {
27 *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy );
32 *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
35 *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
39 float *y, int *incy, float *a, int *lda ) {
53 cblas_sger(CblasRowMajor, *m, *n, *alpha, x, *incx, y, *incy, A, LDA );
60 cblas_sger( CblasColMajor, *m, *n, *alpha, x, *incx, y, *incy, a, *lda );
117 int *incy) {
131 *beta, y, *incy );
136 *beta, y, *incy );
[all...] |
| c_cblas2.c | 14 const void *beta, void *y, int *incy) {
30 beta, y, *incy );
35 *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy );
38 *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy );
44 CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy) {
77 *incx, beta, y, *incy );
82 *incx, beta, y, *incy );
85 *incx, beta, y, *incy );
89 CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy,
103 cblas_cgeru( CblasRowMajor, *m, *n, alpha, x, *incx, y, *incy, A, LDA )
[all...] |
| /external/eigen/Eigen/src/Core/products/ |
| TriangularMatrixVector_MKL.h | 108 MKL_INT m, n, lda, incx, incy; \
118 incy = resIncr; \
129 MKLPREFIX##axpy(&n, &alpha_,(const MKLTYPE*)x, &incx, (MKLTYPE*)_res, &incy); \
148 MKLPREFIX##gemv(&trans, &m, &n, &alpha_, (const MKLTYPE*)a, &lda, (const MKLTYPE*)x, &incx, &beta_, (MKLTYPE*)y, &incy); \
193 MKL_INT m, n, lda, incx, incy; \
203 incy = resIncr; \
214 MKLPREFIX##axpy(&n, &alpha_,(const MKLTYPE*)x, &incx, (MKLTYPE*)_res, &incy); \
233 MKLPREFIX##gemv(&trans, &n, &m, &alpha_, (const MKLTYPE*)a, &lda, (const MKLTYPE*)x, &incx, &beta_, (MKLTYPE*)y, &incy); \
|
