/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).reverse().cast<double>().cwiseProduct(make_vector(y,*n,-*incy) [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); }
|
H A D | level1_real_impl.h | 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<0 && *incy>0) return (make_vector(x,*n,-*incx).reverse().cwiseProduct(make_vector(y,*n,*incy))).sum(); 39 else if(*incx>0 && *incy<0) return (make_vector(x,*n,*incx).cwiseProduct(make_vector(y,*n,-*incy).reverse())).sum(); 40 else if(*incx<0 && *incy< 57 rot(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pc, RealScalar *ps) argument [all...] |
H A D | level1_impl.h | 12 int EIGEN_BLAS_FUNC(axpy)(const int *n, const RealScalar *palpha, const RealScalar *px, const int *incx, RealScalar *py, const int *incy) argument 20 if(*incx==1 && *incy==1) make_vector(y,*n) += alpha * make_vector(x,*n); 21 else if(*incx>0 && *incy>0) make_vector(y,*n,*incy) += alpha * make_vector(x,*n,*incx); 22 else if(*incx>0 && *incy<0) make_vector(y,*n,-*incy).reverse() += alpha * make_vector(x,*n,*incx); 23 else if(*incx<0 && *incy>0) make_vector(y,*n,*incy) += alpha * make_vector(x,*n,-*incx).reverse(); 24 else if(*incx<0 && *incy<0) make_vector(y,*n,-*incy) 29 copy(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy) argument 152 swap(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy) argument [all...] |
H A D | level1_cplx_impl.h | 40 int EIGEN_BLAS_FUNC(dotcw)(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar* pres) argument 42 // std::cerr << "_dotc " << *n << " " << *incx << " " << *incy << "\n"; 54 if(*incx==1 && *incy==1) *res = (make_vector(x,*n).dot(make_vector(y,*n))); 55 else if(*incx>0 && *incy>0) *res = (make_vector(x,*n,*incx).dot(make_vector(y,*n,*incy))); 56 else if(*incx<0 && *incy>0) *res = (make_vector(x,*n,-*incx).reverse().dot(make_vector(y,*n,*incy))); 57 else if(*incx>0 && *incy<0) *res = (make_vector(x,*n,*incx).dot(make_vector(y,*n,-*incy).reverse())); 58 else if(*incx<0 && *incy< 63 dotuw(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar* pres) argument 97 rot_(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pc, RealScalar *ps) argument [all...] |
H A D | level2_real_impl.h | 14 const RealScalar *px, const int *incx, const RealScalar *pbeta, RealScalar *py, const int *incy) 36 else if(*incy==0) info = 10; 44 Scalar* actual_y = get_compact_vector(y,*n,*incy); 59 if(actual_y!=y) delete[] copy_back(actual_y,y,*n,*incy); 105 int EIGEN_BLAS_FUNC(syr2)(const char *uplo, const int *n, const RealScalar *palpha, const RealScalar *px, const int *incx, const RealScalar *py, const int *incy, RealScalar *pc, const int *ldc) argument 124 else if(*incy==0) info = 7; 133 const Scalar* y_cpy = get_compact_vector(y,*n,*incy); 160 // RealScalar *x, int *incx, RealScalar *beta, RealScalar *y, int *incy) 174 // int EIGEN_BLAS_FUNC(spmv)(char *uplo, int *n, RealScalar *alpha, RealScalar *ap, RealScalar *x, int *incx, RealScalar *beta, RealScalar *y, int *incy) 230 int EIGEN_BLAS_FUNC(spr2)(char *uplo, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScala argument 13 symv(const char *uplo, const int *n, const RealScalar *palpha, const RealScalar *pa, const int *lda, const RealScalar *px, const int *incx, const RealScalar *pbeta, RealScalar *py, const int *incy) argument 278 ger(int *m, int *n, Scalar *palpha, Scalar *px, int *incx, Scalar *py, int *incy, Scalar *pa, int *lda) argument [all...] |
H A D | level2_cplx_impl.h | 20 const RealScalar *px, const int *incx, const RealScalar *pbeta, RealScalar *py, const int *incy) 42 else if(*incy==0) info = 10; 50 Scalar* actual_y = get_compact_vector(y,*n,*incy); 68 if(actual_y!=y) delete[] copy_back(actual_y,y,*n,*incy); 81 // RealScalar *x, int *incx, RealScalar *beta, RealScalar *y, int *incy) 93 // int EIGEN_BLAS_FUNC(hpmv)(char *uplo, int *n, RealScalar *alpha, RealScalar *ap, RealScalar *x, int *incx, RealScalar *beta, RealScalar *y, int *incy) 149 int EIGEN_BLAS_FUNC(hpr2)(char *uplo, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pap) argument 168 else if(*incy==0) info = 7; 176 Scalar* y_cpy = get_compact_vector(y, *n, *incy); 244 int EIGEN_BLAS_FUNC(her2)(char *uplo, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScala argument 19 hemv(const char *uplo, const int *n, const RealScalar *palpha, const RealScalar *pa, const int *lda, const RealScalar *px, const int *incx, const RealScalar *pbeta, RealScalar *py, const int *incy) argument 295 geru(int *m, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pa, int *lda) argument 332 gerc(int *m, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pa, int *lda) argument [all...] |
/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); 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); 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 53 zdotc_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy) argument 69 zdotu_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy) argument
|
H A D | dsbmv.c | 17 doublereal *beta, doublereal *y, integer *incy, ftnlen uplo_len) 188 } else if (*incy == 0) { 209 if (*incy > 0) { 212 ky = 1 - (*n - 1) * *incy; 221 if (*incy == 1) { 241 iy += *incy; 248 iy += *incy; 262 if (*incx == 1 && *incy == 1) { 296 iy += *incy; 302 jy += *incy; 15 dsbmv_(char *uplo, integer *n, integer *k, doublereal * alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy, ftnlen uplo_len) argument [all...] |
H A D | ssbmv.c | 17 integer *incy, ftnlen uplo_len) 190 } else if (*incy == 0) { 211 if (*incy > 0) { 214 ky = 1 - (*n - 1) * *incy; 223 if (*incy == 1) { 243 iy += *incy; 250 iy += *incy; 264 if (*incx == 1 && *incy == 1) { 298 iy += *incy; 304 jy += *incy; 15 ssbmv_(char *uplo, integer *n, integer *k, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen uplo_len) argument [all...] |
H A D | dspmv.c | 17 doublereal *y, integer *incy, ftnlen uplo_len) 147 } else if (*incy == 0) { 168 if (*incy > 0) { 171 ky = 1 - (*n - 1) * *incy; 180 if (*incy == 1) { 200 iy += *incy; 207 iy += *incy; 221 if (*incx == 1 && *incy == 1) { 252 iy += *incy; 257 jy += *incy; 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 | sspmv.c | 16 real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen 147 } else if (*incy == 0) { 168 if (*incy > 0) { 171 ky = 1 - (*n - 1) * *incy; 180 if (*incy == 1) { 200 iy += *incy; 207 iy += *incy; 221 if (*incx == 1 && *incy == 1) { 252 iy += *incy; 257 jy += *incy; 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...] |
H A D | drotm.c | 16 doublereal *dy, integer *incy, doublereal *dparam) 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; 15 drotm_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy, doublereal *dparam) argument
|
H A D | srotm.c | 16 integer *incy, real *sparam) 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; 15 srotm_(integer *n, real *sx, integer *incx, real *sy, integer *incy, real *sparam) argument
|
/external/cblas/examples/ |
H A D | cblas_example1.c | 14 int m, n, lda, incx, incy, i; local 23 incy = 1; 61 y, incy );
|
/external/cblas/src/ |
H A D | cblas_cgerc.c | 22 #define F77_incY incy 26 int n, i, tincy, incy=incY; local 70 incy = 1;
|
H A D | cblas_zgerc.c | 22 #define F77_incY incy 26 int n, i, tincy, incy=incY; local 70 incy = 1;
|
H A D | cblas_zhpr2.c | 29 #define F77_incY incy 31 int n, i, j, incx=incX, incy=incY; local 124 incy = 1; 126 incy = -1;
|
H A D | cblas_cher2.c | 29 #define F77_incY incy 31 int n, i, j, tincx, tincy, incx=incX, incy=incY; local 128 incy = 1;
|
H A D | cblas_chpr2.c | 29 #define F77_incY incy 31 int n, i, j, tincx, tincy, incx=incX, incy=incY; local 126 incy = 1;
|
H A D | cblas_zher2.c | 29 #define F77_incY incy 31 int n, i, j, tincx, tincy, incx=incX, incy=incY; local 128 incy = 1;
|
/external/cblas/testing/ |
H A D | 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 ); 38 F77_dger(int *order, int *m, int *n, double *alpha, double *x, int *incx, double *y, int *incy, double *a, int *lda ) argument 115 F77_dsymv(int *order, char *uplow, int *n, double *alpha, double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy) argument 163 F77_dsyr2(int *order, char *uplow, int *n, double *alpha, double *x, int *incx, double *y, int *incy, double *a, int *lda) argument 317 F77_dsbmv(int *order, char *uplow, int *n, int *k, double *alpha, double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy) argument 362 F77_dspmv(int *order, char *uplow, int *n, double *alpha, double *ap, double *x, int *incx, double *beta, double *y, int *incy) argument 533 F77_dspr2(int *order, char *uplow, int *n, double *alpha, double *x, int *incx, double *y, int *incy, double *ap ) argument [all...] |
H A D | 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 ); 38 F77_sger(int *order, int *m, int *n, float *alpha, float *x, int *incx, float *y, int *incy, float *a, int *lda ) argument 115 F77_ssymv(int *order, char *uplow, int *n, float *alpha, float *a, int *lda, float *x, int *incx, float *beta, float *y, int *incy) argument 163 F77_ssyr2(int *order, char *uplow, int *n, float *alpha, float *x, int *incx, float *y, int *incy, float *a, int *lda) argument 317 F77_ssbmv(int *order, char *uplow, int *n, int *k, float *alpha, float *a, int *lda, float *x, int *incx, float *beta, float *y, int *incy) argument 362 F77_sspmv(int *order, char *uplow, int *n, float *alpha, float *ap, float *x, int *incx, float *beta, float *y, int *incy) argument 529 F77_sspr2(int *order, char *uplow, int *n, float *alpha, float *x, int *incx, float *y, int *incy, float *ap ) argument [all...] |
H A D | 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, 11 F77_cgemv(int *order, char *transp, int *m, int *n, const void *alpha, CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx, const void *beta, void *y, int *incy) argument 41 F77_cgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy) argument 88 F77_cgeru(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, CBLAS_TEST_COMPLEX *a, int *lda) argument 117 F77_cgerc(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, CBLAS_TEST_COMPLEX *a, int *lda) argument 145 F77_chemv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy) argument 175 F77_chbmv(int *order, char *uplow, int *n, int *k, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy) argument 239 F77_chpmv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy) argument 666 F77_chpr2(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, CBLAS_TEST_COMPLEX *ap) argument 775 F77_cher2(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, CBLAS_TEST_COMPLEX *a, int *lda) argument [all...] |
/external/eigen/Eigen/src/Core/products/ |
H A D | TriangularMatrixVector_BLAS.h | 108 BlasIndex m, n, lda, incx, incy; \ 116 incy = convert_index<BlasIndex>(resIncr); \ 127 BLASPREFIX##axpy_(&n, &numext::real_ref(alpha),(const BLASTYPE*)x, &incx, (BLASTYPE*)_res, &incy); \ 145 BLASPREFIX##gemv_(&trans, &m, &n, &numext::real_ref(alpha), (const BLASTYPE*)a, &lda, (const BLASTYPE*)x, &incx, &numext::real_ref(beta), (BLASTYPE*)y, &incy); \ 190 BlasIndex m, n, lda, incx, incy; \ 198 incy = convert_index<BlasIndex>(resIncr); \ 209 BLASPREFIX##axpy_(&n, &numext::real_ref(alpha),(const BLASTYPE*)x, &incx, (BLASTYPE*)_res, &incy); \ 227 BLASPREFIX##gemv_(&trans, &n, &m, &numext::real_ref(alpha), (const BLASTYPE*)a, &lda, (const BLASTYPE*)x, &incx, &numext::real_ref(beta), (BLASTYPE*)y, &incy); \
|