/external/cblas/examples/ |
H A D | cblas_example2.c | 16 ALPHA=0.0, BETA=0.0; local 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/ |
H A D | c_c2chke.c | 33 BETA[2] = {0.0,0.0}, local 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, [all...] |
H A D | c_c3chke.c | 33 BETA[2] = {0.0,0.0}, local 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, [all...] |
H A D | c_d2chke.c | 32 ALPHA=0.0, BETA=0.0; local 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, [all...] |
H A D | c_d3chke.c | 32 ALPHA=0.0, BETA=0.0; local 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, [all...] |
H A D | c_s2chke.c | 32 ALPHA=0.0, BETA=0.0; local 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, [all...] |
H A D | c_s3chke.c | 32 ALPHA=0.0, BETA=0.0; local 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, [all...] |
H A D | c_z2chke.c | 33 BETA[2] = {0.0,0.0}, local 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, [all...] |
H A D | c_z3chke.c | 33 BETA[2] = {0.0,0.0}, local 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, [all...] |
/external/eigen/lapack/ |
H A D | dlarfg.f | 130 DOUBLE PRECISION BETA, RSAFMN, SAFMIN, XNORM local in subroutine:DLARFG 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 ) 176 * New BETA is at most 1, at least SAFMIN 179 BETA = -SIGN( DLAPY2( ALPHA, XNORM ), ALPHA ) 181 TAU = ( BETA [all...] |
H A D | slarfg.f | 130 REAL BETA, RSAFMN, SAFMIN, XNORM local in subroutine:SLARFG 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 ) 176 * New BETA is at most 1, at least SAFMIN 179 BETA = -SIGN( SLAPY2( ALPHA, XNORM ), ALPHA ) 181 TAU = ( BETA [all...] |
H A D | clarfg.f | 130 REAL ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM local in subroutine:CLARFG 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*RSAFMN 178 IF( ABS( BETA ).LT.SAFMIN ) 181 * New BETA is at most 1, at least SAFMIN 185 BETA = -SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR ) 187 TAU = CMPLX( ( BETA [all...] |
H A D | zlarfg.f | 130 DOUBLE PRECISION ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM local in subroutine:ZLARFG 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*RSAFMN 178 IF( ABS( BETA ).LT.SAFMIN ) 181 * New BETA is at most 1, at least SAFMIN 185 BETA = -SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR ) 187 TAU = DCMPLX( ( BETA [all...] |
/external/cblas/src/ |
H A D | cblas_cgbmv.c | 39 float ALPHA[2],BETA[2]; local 74 BETA[0]= *bet; 75 BETA[1]= -bet[1]; 144 A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
|
H A D | cblas_cgemv.c | 36 float ALPHA[2],BETA[2]; local 74 BETA[0]= *( (const float *) beta ); 75 BETA[1]= -( *( (const float *) beta+1 ) ); 139 &F77_incX, BETA, Y, &F77_incY);
|
H A D | cblas_chbmv.c | 35 float ALPHA[2],BETA[2]; local 65 BETA[0]= *bet; 66 BETA[1]= -bet[1]; 132 A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
|
H A D | cblas_chemv.c | 34 float ALPHA[2],BETA[2]; local 65 BETA[0]= *bet; 66 BETA[1]= -bet[1]; 133 BETA, Y, &F77_incY);
|
H A D | cblas_chpmv.c | 33 float ALPHA[2],BETA[2]; local 63 BETA[0]= *bet; 64 BETA[1]= -bet[1]; 132 AP, x, &F77_incX, BETA, Y, &F77_incY);
|
H A D | cblas_zgbmv.c | 39 double ALPHA[2],BETA[2]; local 74 BETA[0]= *bet; 75 BETA[1]= -bet[1]; 144 A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
|
H A D | cblas_zgemv.c | 36 double ALPHA[2],BETA[2]; local 73 BETA[0]= *bet; 74 BETA[1]= -bet[1]; 141 &F77_incX, BETA, Y, &F77_incY);
|
H A D | cblas_zhbmv.c | 35 double ALPHA[2],BETA[2]; local 65 BETA[0]= *bet; 66 BETA[1]= -bet[1]; 132 A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
|
H A D | cblas_zhemv.c | 34 double ALPHA[2],BETA[2]; local 65 BETA[0]= *bet; 66 BETA[1]= -bet[1]; 133 BETA, Y, &F77_incY);
|
H A D | cblas_zhpmv.c | 33 double ALPHA[2],BETA[2]; local 63 BETA[0]= *bet; 64 BETA[1]= -bet[1]; 132 AP, x, &F77_incX, BETA, Y, &F77_incY);
|
/external/eigen/blas/fortran/ |
H A D | chbmv.f | 1 SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) 3 COMPLEX ALPHA,BETA local in subroutine:CHBMV 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 200 IF (BETA.NE.ONE) THEN 202 IF (BETA.EQ.ZERO) THEN 208 Y(I) = BETA*Y(I) 213 IF (BETA.EQ.ZERO) THEN 220 Y(IY) = BETA* [all...] |
H A D | chpmv.f | 1 SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) 3 COMPLEX ALPHA,BETA local in subroutine:CHPMV 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 162 IF (BETA.NE.ONE) THEN 164 IF (BETA.EQ.ZERO) THEN 170 Y(I) = BETA*Y(I) 175 IF (BETA [all...] |