| /external/cblas/examples/ |
| cblas_example2.c | 16 ALPHA=0.0, BETA=0.0;
27 ALPHA, A, 1, B, 1, BETA, C, 1 );
32 ALPHA, A, 1, B, 1, BETA, C, 1 );
37 ALPHA, A, 1, B, 1, BETA, C, 2 );
42 ALPHA, A, 1, B, 1, BETA, C, 1 );
49 &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc );
55 &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc );
61 &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc );
67 &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc );
|
| /external/cblas/testing/ |
| c_c2chke.c | 33 BETA[2] = {0.0,0.0},
52 ALPHA, A, 1, X, 1, BETA, Y, 1 );
56 ALPHA, A, 1, X, 1, BETA, Y, 1 );
60 ALPHA, A, 1, X, 1, BETA, Y, 1 );
64 ALPHA, A, 1, X, 1, BETA, Y, 1 );
68 ALPHA, A, 1, X, 1, BETA, Y, 1 );
72 ALPHA, A, 1, X, 0, BETA, Y, 1 );
76 ALPHA, A, 1, X, 1, BETA, Y, 0 );
81 ALPHA, A, 1, X, 1, BETA, Y, 1 );
85 ALPHA, A, 1, X, 1, BETA, Y, 1 )
[all...] |
| c_c3chke.c | 33 BETA[2] = {0.0,0.0},
53 ALPHA, A, 1, B, 1, BETA, C, 1 );
57 ALPHA, A, 1, B, 1, BETA, C, 1 );
61 ALPHA, A, 1, B, 1, BETA, C, 1 );
65 ALPHA, A, 1, B, 1, BETA, C, 1 );
69 ALPHA, A, 1, B, 1, BETA, C, 1 );
73 ALPHA, A, 1, B, 1, BETA, C, 1 );
77 ALPHA, A, 1, B, 1, BETA, C, 1 );
81 ALPHA, A, 1, B, 1, BETA, C, 1 );
85 ALPHA, A, 1, B, 1, BETA, C, 1 )
[all...] |
| c_d2chke.c | 32 ALPHA=0.0, BETA=0.0;
50 ALPHA, A, 1, X, 1, BETA, Y, 1 );
54 ALPHA, A, 1, X, 1, BETA, Y, 1 );
58 ALPHA, A, 1, X, 1, BETA, Y, 1 );
62 ALPHA, A, 1, X, 1, BETA, Y, 1 );
66 ALPHA, A, 1, X, 1, BETA, Y, 1 );
70 ALPHA, A, 1, X, 0, BETA, Y, 1 );
74 ALPHA, A, 1, X, 1, BETA, Y, 0 );
79 ALPHA, A, 1, X, 1, BETA, Y, 1 );
83 ALPHA, A, 1, X, 1, BETA, Y, 1 )
[all...] |
| c_d3chke.c | 32 ALPHA=0.0, BETA=0.0;
51 ALPHA, A, 1, B, 1, BETA, C, 1 );
55 ALPHA, A, 1, B, 1, BETA, C, 1 );
59 ALPHA, A, 1, B, 1, BETA, C, 1 );
63 ALPHA, A, 1, B, 1, BETA, C, 1 );
67 ALPHA, A, 1, B, 1, BETA, C, 1 );
71 ALPHA, A, 1, B, 1, BETA, C, 1 );
75 ALPHA, A, 1, B, 1, BETA, C, 1 );
79 ALPHA, A, 1, B, 1, BETA, C, 1 );
83 ALPHA, A, 1, B, 1, BETA, C, 1 )
[all...] |
| c_s2chke.c | 32 ALPHA=0.0, BETA=0.0;
50 ALPHA, A, 1, X, 1, BETA, Y, 1 );
54 ALPHA, A, 1, X, 1, BETA, Y, 1 );
58 ALPHA, A, 1, X, 1, BETA, Y, 1 );
62 ALPHA, A, 1, X, 1, BETA, Y, 1 );
66 ALPHA, A, 1, X, 1, BETA, Y, 1 );
70 ALPHA, A, 1, X, 0, BETA, Y, 1 );
74 ALPHA, A, 1, X, 1, BETA, Y, 0 );
79 ALPHA, A, 1, X, 1, BETA, Y, 1 );
83 ALPHA, A, 1, X, 1, BETA, Y, 1 )
[all...] |
| c_s3chke.c | 32 ALPHA=0.0, BETA=0.0;
50 ALPHA, A, 1, B, 1, BETA, C, 1 );
54 ALPHA, A, 1, B, 1, BETA, C, 1 );
58 ALPHA, A, 1, B, 1, BETA, C, 1 );
62 ALPHA, A, 1, B, 1, BETA, C, 1 );
66 ALPHA, A, 1, B, 1, BETA, C, 1 );
70 ALPHA, A, 1, B, 1, BETA, C, 1 );
74 ALPHA, A, 1, B, 1, BETA, C, 1 );
78 ALPHA, A, 1, B, 1, BETA, C, 1 );
82 ALPHA, A, 1, B, 1, BETA, C, 1 )
[all...] |
| c_z2chke.c | 33 BETA[2] = {0.0,0.0},
52 ALPHA, A, 1, X, 1, BETA, Y, 1 );
56 ALPHA, A, 1, X, 1, BETA, Y, 1 );
60 ALPHA, A, 1, X, 1, BETA, Y, 1 );
64 ALPHA, A, 1, X, 1, BETA, Y, 1 );
68 ALPHA, A, 1, X, 1, BETA, Y, 1 );
72 ALPHA, A, 1, X, 0, BETA, Y, 1 );
76 ALPHA, A, 1, X, 1, BETA, Y, 0 );
81 ALPHA, A, 1, X, 1, BETA, Y, 1 );
85 ALPHA, A, 1, X, 1, BETA, Y, 1 )
[all...] |
| c_z3chke.c | 33 BETA[2] = {0.0,0.0},
53 ALPHA, A, 1, B, 1, BETA, C, 1 );
57 ALPHA, A, 1, B, 1, BETA, C, 1 );
61 ALPHA, A, 1, B, 1, BETA, C, 1 );
65 ALPHA, A, 1, B, 1, BETA, C, 1 );
69 ALPHA, A, 1, B, 1, BETA, C, 1 );
73 ALPHA, A, 1, B, 1, BETA, C, 1 );
77 ALPHA, A, 1, B, 1, BETA, C, 1 );
81 ALPHA, A, 1, B, 1, BETA, C, 1 );
85 ALPHA, A, 1, B, 1, BETA, C, 1 )
[all...] |
| /external/eigen/lapack/ |
| dlarfg.f | 40 *> H * ( alpha ) = ( beta ), H**T * H = I.
43 *> where alpha and beta are scalars, and x is an (n-1)-element real
71 *> On exit, it is overwritten with the value beta.
130 DOUBLE PRECISION BETA, RSAFMN, SAFMIN, XNORM
160 BETA = -SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
163 IF( ABS( BETA ).LT.SAFMIN ) THEN
165 * XNORM, BETA may be inaccurate; scale X and recompute them
171 BETA = BETA*RSAFMN
173 IF( ABS( BETA ).LT.SAFMIN
[all...] |
| slarfg.f | 40 *> H * ( alpha ) = ( beta ), H**T * H = I.
43 *> where alpha and beta are scalars, and x is an (n-1)-element real
71 *> On exit, it is overwritten with the value beta.
130 REAL BETA, RSAFMN, SAFMIN, XNORM
160 BETA = -SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
163 IF( ABS( BETA ).LT.SAFMIN ) THEN
165 * XNORM, BETA may be inaccurate; scale X and recompute them
171 BETA = BETA*RSAFMN
173 IF( ABS( BETA ).LT.SAFMIN
[all...] |
| clarfg.f | 40 *> H**H * ( alpha ) = ( beta ), H**H * H = I.
43 *> where alpha and beta are scalars, with beta real, and x is an
71 *> On exit, it is overwritten with the value beta.
130 REAL ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM
163 BETA = -SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
168 IF( ABS( BETA ).LT.SAFMIN ) THEN
170 * XNORM, BETA may be inaccurate; scale X and recompute them
175 BETA = BETA*RSAFM
[all...] |
| zlarfg.f | 40 *> H**H * ( alpha ) = ( beta ), H**H * H = I.
43 *> where alpha and beta are scalars, with beta real, and x is an
71 *> On exit, it is overwritten with the value beta.
130 DOUBLE PRECISION ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM
163 BETA = -SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
168 IF( ABS( BETA ).LT.SAFMIN ) THEN
170 * XNORM, BETA may be inaccurate; scale X and recompute them
175 BETA = BETA*RSAFM
[all...] |
| /external/cblas/src/ |
| cblas_cgbmv.c | 16 const void *X, const int incX, const void *beta,
38 const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
39 float ALPHA[2],BETA[2];
63 A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY);
74 BETA[0]= *bet;
75 BETA[1]= -bet[1];
144 A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
147 A ,&F77_lda, x,&F77_incX, beta, Y, &F77_incY);
|
| cblas_cgemv.c | 15 const void *X, const int incX, const void *beta,
36 float ALPHA[2],BETA[2];
62 beta, Y, &F77_incY);
74 BETA[0]= *( (const float *) beta );
75 BETA[1]= -( *( (const float *) beta+1 ) );
139 &F77_incX, BETA, Y, &F77_incY);
142 &F77_incX, beta, Y, &F77_incY);
|
| cblas_chbmv.c | 15 const void *X, const int incX, const void *beta,
34 const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
35 float ALPHA[2],BETA[2];
58 &F77_incX, beta, Y, &F77_incY);
65 BETA[0]= *bet;
66 BETA[1]= -bet[1];
132 A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
|
| cblas_chemv.c | 15 const void *X, const int incX, const void *beta,
33 const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
34 float ALPHA[2],BETA[2];
58 beta, Y, &F77_incY);
65 BETA[0]= *bet;
66 BETA[1]= -bet[1];
133 BETA, Y, &F77_incY);
|
| cblas_chpmv.c | 15 const void *X, const int incX, const void *beta,
32 const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
33 float ALPHA[2],BETA[2];
56 &F77_incX, beta, Y, &F77_incY);
63 BETA[0]= *bet;
64 BETA[1]= -bet[1];
132 AP, x, &F77_incX, BETA, Y, &F77_incY);
|
| cblas_zgbmv.c | 16 const void *X, const int incX, const void *beta,
38 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta;
39 double ALPHA[2],BETA[2];
63 A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY);
74 BETA[0]= *bet;
75 BETA[1]= -bet[1];
144 A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
147 A ,&F77_lda, x,&F77_incX, beta, Y, &F77_incY);
|
| cblas_zgemv.c | 15 const void *X, const int incX, const void *beta,
35 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta;
36 double ALPHA[2],BETA[2];
61 beta, Y, &F77_incY);
73 BETA[0]= *bet;
74 BETA[1]= -bet[1];
141 &F77_incX, BETA, Y, &F77_incY);
144 &F77_incX, beta, Y, &F77_incY);
|
| cblas_zhbmv.c | 15 const void *X, const int incX, const void *beta,
34 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta;
35 double ALPHA[2],BETA[2];
58 &F77_incX, beta, Y, &F77_incY);
65 BETA[0]= *bet;
66 BETA[1]= -bet[1];
132 A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
|
| cblas_zhemv.c | 15 const void *X, const int incX, const void *beta,
33 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta;
34 double ALPHA[2],BETA[2];
58 beta, Y, &F77_incY);
65 BETA[0]= *bet;
66 BETA[1]= -bet[1];
133 BETA, Y, &F77_incY);
|
| cblas_zhpmv.c | 15 const void *X, const int incX, const void *beta,
32 const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta;
33 double ALPHA[2],BETA[2];
56 &F77_incX, beta, Y, &F77_incY);
63 BETA[0]= *bet;
64 BETA[1]= -bet[1];
132 AP, x, &F77_incX, BETA, Y, &F77_incY);
|
| /external/eigen/blas/fortran/ |
| chbmv.f | 1 SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
3 COMPLEX ALPHA,BETA
16 * y := alpha*A*x + beta*y,
18 * where alpha and beta are scalars, x and y are n element vectors and
109 * BETA - COMPLEX .
110 * On entry, BETA specifies the scalar beta.
180 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
198 * First form y := beta*y.
200 IF (BETA.NE.ONE) THE
[all...] |
| chpmv.f | 1 SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
3 COMPLEX ALPHA,BETA
16 * y := alpha*A*x + beta*y,
18 * where alpha and beta are scalars, x and y are n element vectors and
73 * BETA - COMPLEX .
74 * On entry, BETA specifies the scalar beta. When BETA is
142 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
160 * First form y := beta*y
[all...] |
