/external/eigen/blas/ |
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 vector(x,*n).cwiseAbs().sum(); 23 else return 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 (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< 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 | 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) argument 32 else if(*incx==0) info = 7; 40 Scalar* actual_x = get_compact_vector(x,*n,*incx); 70 // RealScalar *x, int *incx, RealScalar *beta, RealScalar *y, int *incy) 82 // int EIGEN_BLAS_FUNC(hpmv)(char *uplo, int *n, RealScalar *alpha, RealScalar *ap, RealScalar *x, int *incx, RealScalar *beta, RealScalar *y, int *incy) 94 // int EIGEN_BLAS_FUNC(hpr)(char *uplo, int *n, RealScalar *alpha, RealScalar *x, int *incx, RealScalar *ap) 106 // int EIGEN_BLAS_FUNC(hpr2)(char *uplo, int *n, RealScalar *palpha, RealScalar *x, int *incx, RealScalar *y, int *incy, RealScalar *ap) 118 int EIGEN_BLAS_FUNC(her)(char *uplo, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *pa, int *lda) argument 127 else if(*incx==0) info = 5; 135 Scalar* x_cpy = get_compact_vector(x, *n, *incx); 162 her2(char *uplo, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pa, int *lda) argument 203 geru(int *m, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pa, int *lda) argument 241 gerc(int *m, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pa, int *lda) argument [all...] |
H A D | 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) argument 26 else if(*incx==0) info = 7; 34 Scalar* actual_x = get_compact_vector(x,*n,*incx); 54 int EIGEN_BLAS_FUNC(syr)(char *uplo, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *pc, int *ldc) argument 79 else if(*incx==0) info = 5; 87 Scalar* x_cpy = get_compact_vector(x,*n,*incx); 108 int EIGEN_BLAS_FUNC(syr2)(char *uplo, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pc, int *ldc) argument 133 else if(*incx==0) info = 5; 142 Scalar* x_cpy = get_compact_vector(x,*n,*incx); 168 // RealScalar *x, int *incx, RealScala [all...] |
H A D | level1_cplx_impl.h | 28 RealScalar EIGEN_CAT(EIGEN_CAT(REAL_SCALAR_SUFFIX,SCALAR_SUFFIX),asum_)(int *n, RealScalar *px, int *incx) argument 30 // std::cerr << "__asum " << *n << " " << *incx << "\n"; 35 if(*incx==1) return vector(x,*n).unaryExpr<scalar_norm1_op>().sum(); 36 else return vector(x,*n,std::abs(*incx)).unaryExpr<scalar_norm1_op>().sum(); 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"; 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< 59 dotuw(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar* pres) argument 77 nrm2_(int *n, RealScalar *px, int *incx) argument 90 rot_(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pc, RealScalar *ps) argument 113 scal_(int *n, RealScalar *palpha, RealScalar *px, int *incx) argument [all...] |
H A D | level1_impl.h | 12 int EIGEN_BLAS_FUNC(axpy)(int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy) argument 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) 29 copy(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy) argument 54 amax_(int *n, RealScalar *px, int *incx) argument 65 amin_(int *n, RealScalar *px, int *incx) argument 136 scal(int *n, RealScalar *palpha, RealScalar *px, int *incx) argument 149 swap(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy) argument [all...] |
H A D | common.h | 116 T* get_compact_vector(T* x, int n, int incx) argument 118 if(incx==1) 122 if(incx<0) vector(ret,n) = vector(x,n,-incx).reverse(); 123 else vector(ret,n) = vector(x,n, incx); 128 T* copy_back(T* x_cpy, T* x, int n, int incx) argument 133 if(incx<0) vector(x,n,-incx).reverse() = vector(x_cpy,n); 134 else vector(x,n, incx) = vector(x_cpy,n);
|
H A D | level2_impl.h | 198 RealScalar *px, int *incx, RealScalar *pbeta, RealScalar *py, int *incy) 214 else if(*incx==0) info = 10; 227 Scalar* actual_x = get_compact_vector(x,actual_n,*incx); 267 int EIGEN_BLAS_FUNC(tbmv)(char *uplo, char *opa, char *diag, int *n, int *k, RealScalar *pa, int *lda, RealScalar *px, int *incx) 280 else if(*incx==0) info = 9; 289 Scalar* actual_x = get_compact_vector(x,actual_n,*incx); 329 int EIGEN_BLAS_FUNC(tbsv)(char *uplo, char *op, char *diag, int *n, int *k, RealScalar *pa, int *lda, RealScalar *px, int *incx) argument 370 else if(*incx==0) info = 9; 379 Scalar* actual_x = get_compact_vector(x,actual_n,*incx); 387 if(actual_x!=x) delete[] copy_back(actual_x,x,actual_n,*incx); 197 gbmv(char *trans, int *m, int *n, int *kl, int *ku, RealScalar *palpha, RealScalar *pa, int *lda, RealScalar *px, int *incx, RealScalar *pbeta, RealScalar *py, int *incy) argument 426 ger(int *m, int *n, Scalar *palpha, Scalar *px, int *incx, Scalar *py, int *incy, Scalar *pa, int *lda) argument [all...] |