| /external/cblas/src/ |
| cblas_zher.c | 13 const int N, const double alpha, const void *X, const int incX
24 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
28 #define F77_incX incx
30 int n, i, tincx, incx=incX; local
75 if( incX > 0 ) {
76 i = incX << 1 ;
80 i = incX *(-2);
98 incx = 1;
|
| cblas_zhpr.c | 14 const int incX, void *A)
24 F77_INT F77_N=N, F77_incX=incX;
27 #define F77_incX incx
29 int n, i, tincx, incx=incX; local
74 if( incX > 0 ) {
75 i = incX << 1;
79 i = incX *(-2);
96 incx = 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;
28 #define F77_incX incx
31 int n, i, j, incx=incX, incy=incY; local
79 if( incX > 0 )
80 i = incX << 1;
82 i = incX *(-2);
107 if(incX > 0 )
118 if(incX > 0
[all...] |
| cblas_chbmv.c | 15 const void *X, const int incX, const void *beta,
25 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY;
30 #define F77_incX incx
33 int n, i=0, incx=incX; local
74 if( incX > 0 ) {
75 i = incX << 1 ;
79 i = incX *(-2);
99 incx = 1;
|
| cblas_chemv.c | 15 const void *X, const int incX, const void *beta,
25 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
29 #define F77_incX incx
32 int n=0, i=0, incx=incX; local
74 if( incX > 0 ) {
75 i = incX << 1 ;
79 i = incX *(-2);
99 incx = 1;
|
| cblas_cher2.c | 13 const int N, const void *alpha, const void *X, const int incX,
24 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
28 #define F77_incX incx
31 int n, i, j, tincx, tincy, incx=incX, incy=incY; local
80 if( incX > 0 ) {
81 i = incX << 1 ;
85 i = incX *(-2);
127 incx = 1;
|
| cblas_chpmv.c | 15 const void *X, const int incX, const void *beta,
25 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY;
28 #define F77_incX incx
31 int n, i=0, incx=incX; local
72 if( incX > 0 ) {
73 i = incX << 1;
77 i = incX *(-2);
97 incx = 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;
28 #define F77_incX incx
31 int n, i, j, tincx, tincy, incx=incX, incy=incY; local
79 if( incX > 0 ) {
80 i = incX << 1 ;
84 i = incX *(-2);
125 incx = 1;
|
| cblas_zhbmv.c | 15 const void *X, const int incX, const void *beta,
25 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY;
30 #define F77_incX incx
33 int n, i=0, incx=incX; local
74 if( incX > 0 ) {
75 i = incX << 1 ;
79 i = incX *(-2);
99 incx = 1;
|
| cblas_zhemv.c | 15 const void *X, const int incX, const void *beta,
25 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
29 #define F77_incX incx
32 int n, i=0, incx=incX; local
74 if( incX > 0 ) {
75 i = incX << 1 ;
79 i = incX *(-2);
99 incx = 1;
|
| cblas_zher2.c | 13 const int N, const void *alpha, const void *X, const int incX,
24 F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
28 #define F77_incX incx
31 int n, i, j, tincx, tincy, incx=incX, incy=incY; local
80 if( incX > 0 ) {
81 i = incX << 1 ;
85 i = incX *(-2);
127 incx = 1;
|
| cblas_zhpmv.c | 15 const void *X, const int incX, const void *beta,
25 F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY;
28 #define F77_incX incx
31 int n, i=0, incx=incX; local
72 if( incX > 0 ) {
73 i = incX << 1;
77 i = incX *(-2);
97 incx = 1;
|
| cblas_cgbmv.c | 16 const void *X, const int incX, const void *beta,
26 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
34 #define F77_incX incx
37 int n=0, i=0, incx=incX; local
83 if( incX > 0 ) {
84 i = incX << 1 ;
88 i = incX *(-2);
106 incx = 1;
|
| cblas_zgbmv.c | 16 const void *X, const int incX, const void *beta,
26 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
34 #define F77_incX incx
37 int n, i=0, incx=incX; local
83 if( incX > 0 ) {
84 i = incX << 1 ;
88 i = incX *(-2);
106 incx = 1;
|
| cblas_zgemv.c | 15 const void *X, const int incX, const void *beta,
25 F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
30 #define F77_incX incx
34 int n, i=0, incx=incX; local
81 if( incX > 0 ) {
82 i = incX << 1 ;
86 i = incX *(-2);
105 incx = 1;
|
| /external/tensorflow/tensorflow/stream_executor/rocm/ |
| rocm_blas.cc | 401 const DeviceMemory<float> &x, int incx,
405 GpuMemory(x), incx, GpuMemoryMutable(result));
409 const DeviceMemory<double> &x, int incx,
413 GpuMemory(x), incx, GpuMemoryMutable(result));
417 const DeviceMemory<std::complex<float>> &x, int incx,
425 const DeviceMemory<std::complex<double>> &x, int incx,
433 const DeviceMemory<float> &x, int incx,
437 GpuMemory(x), incx, GpuMemoryMutable(y), incy);
441 const DeviceMemory<double> &x, int incx,
445 GpuMemory(x), incx, GpuMemoryMutable(y), incy)
[all...] |
| /external/eigen/blas/ |
| common.h | 139 T* get_compact_vector(T* x, int n, int incx)
141 if(incx==1)
145 if(incx<0) make_vector(ret,n) = make_vector(x,n,-incx).reverse();
146 else make_vector(ret,n) = make_vector(x,n, incx);
151 T* copy_back(T* x_cpy, T* x, int n, int incx)
156 if(incx<0) make_vector(x,n,-incx).reverse() = make_vector(x_cpy,n);
157 else make_vector(x,n, incx) = make_vector(x_cpy,n);
|
| level2_impl.h | 219 RealScalar *px, int *incx, RealScalar *pbeta, RealScalar *py, int *incy)
235 else if(*incx==0) info = 10;
248 const Scalar* actual_x = get_compact_vector(x,actual_n,*incx);
288 int EIGEN_BLAS_FUNC(tbmv)(char *uplo, char *opa, char *diag, int *n, int *k, RealScalar *pa, int *lda, RealScalar *px, int *incx)
301 else if(*incx==0) info = 9;
310 Scalar* actual_x = get_compact_vector(x,actual_n,*incx);
350 int EIGEN_BLAS_FUNC(tbsv)(char *uplo, char *op, char *diag, int *n, int *k, RealScalar *pa, int *lda, RealScalar *px, int *incx)
395 else if(*incx==0) info = 9;
404 Scalar* actual_x = get_compact_vector(x,actual_n,*incx);
412 if(actual_x!=x) delete[] copy_back(actual_x,x,actual_n,*incx);
[all...] |
| /external/tensorflow/tensorflow/stream_executor/ |
| stream.cc | [all...] |
| stream.h | [all...] |
| /external/eigen/Eigen/src/Core/products/ |
| TriangularMatrixVector_BLAS.h | 108 BlasIndex m, n, lda, incx, incy; \
115 incx = 1; \
124 BLASPREFIX##trmv_(&uplo, &trans, &diag, &n, (const BLASTYPE*)_lhs, &lda, (BLASTYPE*)x, &incx); \
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; \
197 incx = 1; \
206 BLASPREFIX##trmv_(&uplo, &trans, &diag, &n, (const BLASTYPE*)_lhs, &lda, (BLASTYPE*)x, &incx); \
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);
[all...] |
| GeneralMatrixVector_BLAS.h | 101 lda=convert_index<BlasIndex>(lhsStride), incx=convert_index<BlasIndex>(rhsIncr), incy=convert_index<BlasIndex>(resIncr); \
111 Map<const GEMVVector, 0, InnerStride<> > map_x(rhs,cols,1,InnerStride<>(incx)); \
114 incx=1; \
116 BLASPREFIX##gemv_(&trans, &m, &n, &numext::real_ref(alpha), (const BLASTYPE*)lhs, &lda, (const BLASTYPE*)x_ptr, &incx, &numext::real_ref(beta), (BLASTYPE*)res, &incy); \
|
| SelfadjointMatrixVector_BLAS.h | 88 BlasIndex n=convert_index<BlasIndex>(size), lda=convert_index<BlasIndex>(lhsStride), incx=1, incy=1; \
98 BLASFUNC(&uplo, &n, &numext::real_ref(alpha), (const BLASTYPE*)lhs, &lda, (const BLASTYPE*)x_ptr, &incx, &numext::real_ref(beta), (BLASTYPE*)res, &incy); \
|
| /external/eigen/blas/f2c/ |
| ctbmv.c | 16 integer *k, complex *a, integer *lda, complex *x, integer *incx,
147 /* ( 1 + ( n - 1 )*abs( INCX ) ). */
152 /* INCX - INTEGER. */
153 /* On entry, INCX specifies the increment for the elements of */
154 /* X. INCX must not be zero. */
207 } else if (*incx == 0) {
225 /* will be ( N - 1 )*INCX too small for descending loops. */
227 if (*incx <= 0) {
228 kx = 1 - (*n - 1) * *incx;
229 } else if (*incx != 1)
[all...] |
| ztbmv.c | 17 *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
147 /* ( 1 + ( n - 1 )*abs( INCX ) ). */
152 /* INCX - INTEGER. */
153 /* On entry, INCX specifies the increment for the elements of */
154 /* X. INCX must not be zero. */
207 } else if (*incx == 0) {
225 /* will be ( N - 1 )*INCX too small for descending loops. */
227 if (*incx <= 0) {
228 kx = 1 - (*n - 1) * *incx;
229 } else if (*incx != 1)
[all...] |
