/external/cblas/src/ |
H A D | cblas_cgemv.c | 14 const void *alpha, const void *A, const int lda, 61 F77_cgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX, 72 ALPHA[0]= *( (const float *) alpha ); 73 ALPHA[1]= -( *( (const float *) alpha+1) ); 141 F77_cgemv(F77_TA, &F77_N, &F77_M, alpha, A, &F77_lda, x, 12 cblas_cgemv(const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const void *alpha, const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY) argument
|
H A D | cblas_chbmv.c | 14 const void *alpha, const void *A, const int lda, 34 const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta; 57 F77_chbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X, 12 cblas_chbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,const int N,const int K, const void *alpha, const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY) argument
|
H A D | cblas_chemv.c | 14 const void *alpha, const void *A, const int lda, 33 const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta; 57 F77_chemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX, 12 cblas_chemv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, const int N, const void *alpha, const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY) argument
|
H A D | cblas_cher2.c | 13 const int N, const void *alpha, const void *X, const int incX, 55 F77_cher2(F77_UL, &F77_N, alpha, X, &F77_incX, 135 F77_cher2(F77_UL, &F77_N, alpha, y, &F77_incY, x, 12 cblas_cher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, const int N, const void *alpha, const void *X, const int incX, const void *Y, const int incY, void *A, const int lda) argument
|
H A D | cblas_chpmv.c | 14 const void *alpha, const void *AP, 32 const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta; 55 F77_chpmv(F77_UL, &F77_N, alpha, AP, X, 12 cblas_chpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,const int N, const void *alpha, const void *AP, const void *X, const int incX, const void *beta, void *Y, const int incY) argument
|
H A D | cblas_chpr2.c | 13 const int N,const void *alpha, const void *X, 55 F77_chpr2(F77_UL, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, Ap); 134 F77_chpr2(F77_UL, &F77_N, alpha, y, &F77_incY, x, &F77_incX, Ap); 12 cblas_chpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, const int N,const void *alpha, const void *X, const int incX,const void *Y, const int incY, void *Ap) argument
|
H A D | cblas_zgbmv.c | 15 const void *alpha, const void *A, const int lda, 38 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta; 62 F77_zgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, alpha, 146 F77_zgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, alpha, 12 cblas_zgbmv(const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const int KL, const int KU, const void *alpha, const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY) argument
|
H A D | cblas_zgemv.c | 14 const void *alpha, const void *A, const int lda, 35 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta; 60 F77_zgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX, 143 F77_zgemv(F77_TA, &F77_N, &F77_M, alpha, A, &F77_lda, x, 12 cblas_zgemv(const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const void *alpha, const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY) argument
|
H A D | cblas_zhbmv.c | 14 const void *alpha, const void *A, const int lda, 34 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta; 57 F77_zhbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X, 12 cblas_zhbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,const int N,const int K, const void *alpha, const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY) argument
|
H A D | cblas_zhemv.c | 14 const void *alpha, const void *A, const int lda, 33 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta; 57 F77_zhemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX, 12 cblas_zhemv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, const int N, const void *alpha, const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY) argument
|
H A D | cblas_zher2.c | 13 const int N, const void *alpha, const void *X, const int incX, 55 F77_zher2(F77_UL, &F77_N, alpha, X, &F77_incX, 135 F77_zher2(F77_UL, &F77_N, alpha, y, &F77_incY, x, 12 cblas_zher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, const int N, const void *alpha, const void *X, const int incX, const void *Y, const int incY, void *A, const int lda) argument
|
H A D | cblas_zhpmv.c | 14 const void *alpha, const void *AP, 32 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta; 55 F77_zhpmv(F77_UL, &F77_N, alpha, AP, X, 12 cblas_zhpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,const int N, const void *alpha, const void *AP, const void *X, const int incX, const void *beta, void *Y, const int incY) argument
|
/external/cblas/testing/ |
H A D | c_dblas3.c | 15 int *k, double *alpha, double *a, int *lda, double *b, int *ldb, 60 cblas_dgemm( CblasRowMajor, transa, transb, *m, *n, *k, *alpha, A, LDA, 70 cblas_dgemm( CblasColMajor, transa, transb, *m, *n, *k, *alpha, a, *lda, 73 cblas_dgemm( UNDEFINED, transa, transb, *m, *n, *k, *alpha, a, *lda, 77 double *alpha, double *a, int *lda, double *b, int *ldb, 113 cblas_dsymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB, 123 cblas_dsymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb, 126 cblas_dsymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb, 131 double *alpha, double *a, int *lda, 162 cblas_dsyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, 14 F77_dgemm(int *order, char *transpa, char *transpb, int *m, int *n, int *k, double *alpha, double *a, int *lda, double *b, int *ldb, double *beta, double *c, int *ldc ) argument 76 F77_dsymm(int *order, char *rtlf, char *uplow, int *m, int *n, double *alpha, double *a, int *lda, double *b, int *ldb, double *beta, double *c, int *ldc ) argument 130 F77_dsyrk(int *order, char *uplow, char *transp, int *n, int *k, double *alpha, double *a, int *lda, double *beta, double *c, int *ldc ) argument 178 F77_dsyr2k(int *order, char *uplow, char *transp, int *n, int *k, double *alpha, double *a, int *lda, double *b, int *ldb, double *beta, double *c, int *ldc ) argument 233 F77_dtrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, int *m, int *n, double *alpha, double *a, int *lda, double *b, int *ldb) argument 284 F77_dtrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, int *m, int *n, double *alpha, double *a, int *lda, double *b, int *ldb) argument [all...] |
H A D | c_sblas3.c | 13 int *k, float *alpha, float *a, int *lda, float *b, int *ldb, 57 cblas_sgemm( CblasRowMajor, transa, transb, *m, *n, *k, *alpha, A, LDA, 67 cblas_sgemm( CblasColMajor, transa, transb, *m, *n, *k, *alpha, a, *lda, 70 cblas_sgemm( UNDEFINED, transa, transb, *m, *n, *k, *alpha, a, *lda, 74 float *alpha, float *a, int *lda, float *b, int *ldb, 110 cblas_ssymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB, 120 cblas_ssymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb, 123 cblas_ssymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb, 128 float *alpha, float *a, int *lda, 159 cblas_ssyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, 12 F77_sgemm(int *order, char *transpa, char *transpb, int *m, int *n, int *k, float *alpha, float *a, int *lda, float *b, int *ldb, float *beta, float *c, int *ldc ) argument 73 F77_ssymm(int *order, char *rtlf, char *uplow, int *m, int *n, float *alpha, float *a, int *lda, float *b, int *ldb, float *beta, float *c, int *ldc ) argument 127 F77_ssyrk(int *order, char *uplow, char *transp, int *n, int *k, float *alpha, float *a, int *lda, float *beta, float *c, int *ldc ) argument 175 F77_ssyr2k(int *order, char *uplow, char *transp, int *n, int *k, float *alpha, float *a, int *lda, float *b, int *ldb, float *beta, float *c, int *ldc ) argument 230 F77_strmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, int *m, int *n, float *alpha, float *a, int *lda, float *b, int *ldb) argument 281 F77_strsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, int *m, int *n, float *alpha, float *a, int *lda, float *b, int *ldb) argument [all...] |
/external/eigen/Eigen/src/SparseLU/ |
H A D | SparseLU_Memory.h | 67 float alpha = 1.5; // Ratio of the memory increase local 73 new_len = (std::max)(length+1,Index(alpha * length)); 109 alpha = (alpha + 1)/2; 110 new_len = (std::max)(length+1,Index(alpha * length));
|
/external/eigen/blas/f2c/ |
H A D | chbmv.c | 16 alpha, complex *a, integer *lda, complex *x, integer *incx, complex * 44 /* y := alpha*A*x + beta*y, */ 46 /* where alpha and beta are scalars, x and y are n element vectors and */ 76 /* On entry, ALPHA specifies the scalar alpha. */ 207 if (*n == 0 || (alpha->r == 0.f && alpha->i == 0.f && (beta->r == 1.f && 276 if (alpha->r == 0.f && alpha->i == 0.f) { 288 q__1.r = alpha->r * x[i__2].r - alpha 15 chbmv_(char *uplo, integer *n, integer *k, complex * alpha, complex *a, integer *lda, complex *x, integer *incx, complex * beta, complex *y, integer *incy, ftnlen uplo_len) argument [all...] |
H A D | chpmv.c | 15 /* Subroutine */ int chpmv_(char *uplo, integer *n, complex *alpha, complex * argument 43 /* y := alpha*A*x + beta*y, */ 45 /* where alpha and beta are scalars, x and y are n element vectors and */ 70 /* On entry, ALPHA specifies the scalar alpha. */ 166 if (*n == 0 || (alpha->r == 0.f && alpha->i == 0.f && (beta->r == 1.f && 235 if (alpha->r == 0.f && alpha->i == 0.f) { 247 q__1.r = alpha->r * x[i__2].r - alpha [all...] |
H A D | dsbmv.c | 16 alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, 39 /* y := alpha*A*x + beta*y, */ 41 /* where alpha and beta are scalars, x and y are n element vectors and */ 71 /* On entry, ALPHA specifies the scalar alpha. */ 198 if (*n == 0 || (*alpha == 0. && *beta == 1.)) { 254 if (*alpha == 0.) { 265 temp1 = *alpha * x[j]; 276 y[j] = y[j] + temp1 * a[kplus1 + j * a_dim1] + *alpha * temp2; 284 temp1 = *alpha * x[jx]; 299 y[jy] = y[jy] + temp1 * a[kplus1 + j * a_dim1] + *alpha * 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 | 15 /* Subroutine */ int ssbmv_(char *uplo, integer *n, integer *k, real *alpha, argument 39 /* y := alpha*A*x + beta*y, */ 41 /* where alpha and beta are scalars, x and y are n element vectors and */ 71 /* On entry, ALPHA specifies the scalar alpha. */ 200 if (*n == 0 || (*alpha == 0.f && *beta == 1.f)) { 256 if (*alpha == 0.f) { 267 temp1 = *alpha * x[j]; 278 y[j] = y[j] + temp1 * a[kplus1 + j * a_dim1] + *alpha * temp2; 286 temp1 = *alpha * x[jx]; 301 y[jy] = y[jy] + temp1 * a[kplus1 + j * a_dim1] + *alpha * [all...] |
H A D | zhbmv.c | 16 *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer * 45 /* y := alpha*A*x + beta*y, */ 47 /* where alpha and beta are scalars, x and y are n element vectors and */ 77 /* On entry, ALPHA specifies the scalar alpha. */ 208 if (*n == 0 || (alpha->r == 0. && alpha->i == 0. && (beta->r == 1. && 277 if (alpha->r == 0. && alpha->i == 0.) { 289 z__1.r = alpha->r * x[i__2].r - alpha 15 zhbmv_(char *uplo, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer * incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen uplo_len) argument [all...] |
H A D | zhpmv.c | 15 /* Subroutine */ int zhpmv_(char *uplo, integer *n, doublecomplex *alpha, argument 43 /* y := alpha*A*x + beta*y, */ 45 /* where alpha and beta are scalars, x and y are n element vectors and */ 70 /* On entry, ALPHA specifies the scalar alpha. */ 166 if (*n == 0 || (alpha->r == 0. && alpha->i == 0. && (beta->r == 1. && 235 if (alpha->r == 0. && alpha->i == 0.) { 247 z__1.r = alpha->r * x[i__2].r - alpha [all...] |
/external/eigen/blas/ |
H A D | level1_cplx_impl.h | 118 RealScalar alpha = *palpha; local 120 // std::cerr << "__scal " << *n << " " << alpha << " " << *incx << "\n"; 122 if(*incx==1) vector(x,*n) *= alpha; 123 else vector(x,*n,std::abs(*incx)) *= alpha;
|
H A D | level1_impl.h | 16 Scalar alpha = *reinterpret_cast<Scalar*>(palpha); local 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(); 112 Scalar alpha; local 124 alpha = a/abs(a); 126 *s = alpha*numext::conj(b)/norm; 127 a = alpha*nor 144 Scalar alpha = *reinterpret_cast<Scalar*>(palpha); local [all...] |
H A D | level2_cplx_impl.h | 14 * y := alpha*A*x + beta*y, 16 * where alpha and beta are scalars, x and y are n element vectors and 39 Scalar alpha = *reinterpret_cast<Scalar*>(palpha); local 64 if(alpha!=Scalar(0)) 70 func[code](*n, a, *lda, actual_x, 1, actual_y, alpha); 81 * y := alpha*A*x + beta*y, 83 * where alpha and beta are scalars, x and y are n element vectors and 86 // int EIGEN_BLAS_FUNC(hbmv)(char *uplo, int *n, int *k, RealScalar *alpha, RealScalar *a, int *lda, 94 * y := alpha*A*x + beta*y, 96 * where alpha an 130 RealScalar alpha = *palpha; local 182 Scalar alpha = *reinterpret_cast<Scalar*>(palpha); local 236 RealScalar alpha = *reinterpret_cast<RealScalar*>(palpha); local 291 Scalar alpha = *reinterpret_cast<Scalar*>(palpha); local 334 Scalar alpha = *reinterpret_cast<Scalar*>(palpha); local 371 Scalar alpha = *reinterpret_cast<Scalar*>(palpha); local [all...] |
H A D | level2_real_impl.h | 12 // y = alpha*A*x + beta*y 33 Scalar alpha = *reinterpret_cast<Scalar*>(palpha); local 62 func[code](*n, a, *lda, actual_x, 1, actual_y, alpha); 70 // C := alpha*x*x' + C 105 Scalar alpha = *reinterpret_cast<Scalar*>(palpha); local 115 if(*n==0 || alpha==Scalar(0)) return 1; 124 func[code](*n, c, *ldc, x_cpy, x_cpy, alpha); 131 // C := alpha*x*y' + alpha*y*x' + C 166 Scalar alpha local 253 Scalar alpha = *reinterpret_cast<Scalar*>(palpha); local 305 Scalar alpha = *reinterpret_cast<Scalar*>(palpha); local 345 Scalar alpha = *reinterpret_cast<Scalar*>(palpha); local [all...] |