/external/eigen/blas/ |
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 (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< 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 33 else if(*incy==0) info = 10; 41 Scalar* actual_y = get_compact_vector(y,*n,*incy); 57 if(actual_y!=y) delete[] copy_back(actual_y,y,*n,*incy); 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) 106 // int EIGEN_BLAS_FUNC(hpr2)(char *uplo, int *n, RealScalar *palpha, RealScalar *x, int *incx, RealScalar *y, int *incy, RealScalar *ap) 162 int EIGEN_BLAS_FUNC(her2)(char *uplo, int *n, RealScalar *palpha, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar *pa, int *lda) argument 173 else if(*incy==0) info = 7; 182 Scalar* y_cpy = get_compact_vector(y, *n, *incy); 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 27 else if(*incy==0) info = 10; 35 Scalar* actual_y = get_compact_vector(y,*n,*incy); 48 if(actual_y!=y) delete[] copy_back(actual_y,y,*n,*incy); 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 134 else if(*incy==0) info = 7; 143 Scalar* y_cpy = get_compact_vector(y,*n,*incy); 168 // RealScalar *x, int *incx, RealScalar *beta, RealScalar *y, int *incy) 182 // int EIGEN_BLAS_FUNC(spmv)(char *uplo, int *n, RealScalar *alpha, RealScalar *ap, RealScalar *x, int *incx, RealScalar *beta, RealScalar *y, int *incy) 206 // int EIGEN_BLAS_FUNC(spr2)(char *uplo, int *n, RealScalar *alpha, RealScalar *x, int *incx, RealScalar *y, int *incy, RealScala [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"; 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< 59 dotuw(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar* pres) argument 90 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)(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) 29 copy(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy) argument 149 swap(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy) argument [all...] |
H A D | level2_impl.h | 198 RealScalar *px, int *incx, RealScalar *pbeta, RealScalar *py, int *incy) 215 else if(*incy==0) info = 13; 228 Scalar* actual_y = get_compact_vector(y,actual_m,*incy); 254 if(actual_y!=y) delete[] copy_back(actual_y,y,actual_m,*incy); 312 if(actual_y!=y) delete[] copy_back(actual_y,y,actual_m,*incy); 426 int EIGEN_BLAS_FUNC(ger)(int *m, int *n, Scalar *palpha, Scalar *px, int *incx, Scalar *py, int *incy, Scalar *pa, int *lda) argument 437 else if(*incy==0) info = 7; 446 Scalar* y_cpy = get_compact_vector(y,*n,*incy); 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
|