Home
last modified time | relevance | path

Searched refs:BETA (Results 1 – 25 of 86) sorted by relevance

1234

/external/cblas/testing/
Dc_s3chke.c32 ALPHA=0.0, BETA=0.0; in F77_s3chke() local
50 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
54 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
58 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
62 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
66 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
70 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
74 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
78 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
82 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
[all …]
Dc_d3chke.c32 ALPHA=0.0, BETA=0.0; in F77_d3chke() local
51 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
55 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
59 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
63 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
67 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
71 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
75 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
79 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
83 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
[all …]
Dc_c3chke.c33 BETA[2] = {0.0,0.0}, in F77_c3chke() local
53 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
57 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
61 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
65 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
69 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
73 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
77 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
81 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
85 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
[all …]
Dc_z3chke.c33 BETA[2] = {0.0,0.0}, in F77_z3chke() local
53 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_z3chke()
57 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_z3chke()
61 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_z3chke()
65 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_z3chke()
69 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_z3chke()
73 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_z3chke()
77 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_z3chke()
81 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_z3chke()
85 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_z3chke()
[all …]
Dc_d2chke.c32 ALPHA=0.0, BETA=0.0; in F77_d2chke() local
50 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_d2chke()
54 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_d2chke()
58 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_d2chke()
62 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_d2chke()
66 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_d2chke()
70 ALPHA, A, 1, X, 0, BETA, Y, 1 ); in F77_d2chke()
74 ALPHA, A, 1, X, 1, BETA, Y, 0 ); in F77_d2chke()
79 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_d2chke()
83 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_d2chke()
[all …]
Dc_s2chke.c32 ALPHA=0.0, BETA=0.0; in F77_s2chke() local
50 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_s2chke()
54 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_s2chke()
58 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_s2chke()
62 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_s2chke()
66 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_s2chke()
70 ALPHA, A, 1, X, 0, BETA, Y, 1 ); in F77_s2chke()
74 ALPHA, A, 1, X, 1, BETA, Y, 0 ); in F77_s2chke()
79 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_s2chke()
83 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_s2chke()
[all …]
Dc_c2chke.c33 BETA[2] = {0.0,0.0}, in F77_c2chke() local
52 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_c2chke()
56 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_c2chke()
60 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_c2chke()
64 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_c2chke()
68 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_c2chke()
72 ALPHA, A, 1, X, 0, BETA, Y, 1 ); in F77_c2chke()
76 ALPHA, A, 1, X, 1, BETA, Y, 0 ); in F77_c2chke()
81 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_c2chke()
85 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_c2chke()
[all …]
Dc_z2chke.c33 BETA[2] = {0.0,0.0}, in F77_z2chke() local
52 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_z2chke()
56 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_z2chke()
60 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_z2chke()
64 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_z2chke()
68 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_z2chke()
72 ALPHA, A, 1, X, 0, BETA, Y, 1 ); in F77_z2chke()
76 ALPHA, A, 1, X, 1, BETA, Y, 0 ); in F77_z2chke()
81 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_z2chke()
85 ALPHA, A, 1, X, 1, BETA, Y, 1 ); in F77_z2chke()
[all …]
/external/eigen/lapack/
Dzlarfg.f130 DOUBLE PRECISION ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM local
163 BETA = -SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
168 IF( ABS( BETA ).LT.SAFMIN ) THEN
175 BETA = BETA*RSAFMN
178 IF( ABS( BETA ).LT.SAFMIN )
185 BETA = -SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
187 TAU = DCMPLX( ( BETA-ALPHR ) / BETA, -ALPHI / BETA )
188 ALPHA = ZLADIV( DCMPLX( ONE ), ALPHA-BETA )
194 BETA = BETA*SAFMIN
196 ALPHA = BETA
Dclarfg.f130 REAL ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM local
163 BETA = -SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
168 IF( ABS( BETA ).LT.SAFMIN ) THEN
175 BETA = BETA*RSAFMN
178 IF( ABS( BETA ).LT.SAFMIN )
185 BETA = -SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
187 TAU = CMPLX( ( BETA-ALPHR ) / BETA, -ALPHI / BETA )
188 ALPHA = CLADIV( CMPLX( ONE ), ALPHA-BETA )
194 BETA = BETA*SAFMIN
196 ALPHA = BETA
Dslarfg.f130 REAL BETA, RSAFMN, SAFMIN, XNORM local
160 BETA = -SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
163 IF( ABS( BETA ).LT.SAFMIN ) THEN
171 BETA = BETA*RSAFMN
173 IF( ABS( BETA ).LT.SAFMIN )
179 BETA = -SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
181 TAU = ( BETA-ALPHA ) / BETA
182 CALL SSCAL( N-1, ONE / ( ALPHA-BETA ), X, INCX )
187 BETA = BETA*SAFMIN
189 ALPHA = BETA
Ddlarfg.f130 DOUBLE PRECISION BETA, RSAFMN, SAFMIN, XNORM local
160 BETA = -SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
163 IF( ABS( BETA ).LT.SAFMIN ) THEN
171 BETA = BETA*RSAFMN
173 IF( ABS( BETA ).LT.SAFMIN )
179 BETA = -SIGN( DLAPY2( ALPHA, XNORM ), ALPHA )
181 TAU = ( BETA-ALPHA ) / BETA
182 CALL DSCAL( N-1, ONE / ( ALPHA-BETA ), X, INCX )
187 BETA = BETA*SAFMIN
189 ALPHA = BETA
/external/eigen/blas/testing/
Dcblat3.f399 COMPLEX ALPHA, ALS, BETA, BLS local
502 BETA = BET( IB )
528 BLS = BETA
539 $ BETA, LDC
543 $ AA, LDA, BB, LDB, BETA, CC, LDC )
565 ISAME( 11 ) = BLS.EQ.BETA
593 $ ALPHA, A, NMAX, B, NMAX, BETA,
629 $ ALPHA, LDA, LDB, BETA, LDC
684 COMPLEX ALPHA, ALS, BETA, BLS local
774 BETA = BET( IB )
[all …]
Dzblat3.f400 COMPLEX*16 ALPHA, ALS, BETA, BLS local
503 BETA = BET( IB )
529 BLS = BETA
540 $ BETA, LDC
544 $ AA, LDA, BB, LDB, BETA, CC, LDC )
566 ISAME( 11 ) = BLS.EQ.BETA
594 $ ALPHA, A, NMAX, B, NMAX, BETA,
630 $ ALPHA, LDA, LDB, BETA, LDC
685 COMPLEX*16 ALPHA, ALS, BETA, BLS local
775 BETA = BET( IB )
[all …]
Ddblat3.f386 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX local
488 BETA = BET( IB )
514 BLS = BETA
525 $ BETA, LDC
529 $ AA, LDA, BB, LDB, BETA, CC, LDC )
551 ISAME( 11 ) = BLS.EQ.BETA
579 $ ALPHA, A, NMAX, B, NMAX, BETA,
615 $ ALPHA, LDA, LDB, BETA, LDC
667 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX local
756 BETA = BET( IB )
[all …]
Dsblat3.f386 REAL ALPHA, ALS, BETA, BLS, ERR, ERRMAX local
488 BETA = BET( IB )
514 BLS = BETA
525 $ BETA, LDC
529 $ AA, LDA, BB, LDB, BETA, CC, LDC )
551 ISAME( 11 ) = BLS.EQ.BETA
579 $ ALPHA, A, NMAX, B, NMAX, BETA,
615 $ ALPHA, LDA, LDB, BETA, LDC
667 REAL ALPHA, ALS, BETA, BLS, ERR, ERRMAX local
756 BETA = BET( IB )
[all …]
/external/cblas/examples/
Dcblas_example2.c16 ALPHA=0.0, BETA=0.0; in main() local
27 ALPHA, A, 1, B, 1, BETA, C, 1 ); in main()
32 ALPHA, A, 1, B, 1, BETA, C, 1 ); in main()
37 ALPHA, A, 1, B, 1, BETA, C, 2 ); in main()
42 ALPHA, A, 1, B, 1, BETA, C, 1 ); in main()
49 &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc ); in main()
55 &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc ); in main()
61 &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc ); in main()
67 &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc ); in main()
/external/eigen/blas/fortran/
Dchpmv.f1 SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) argument
3 COMPLEX ALPHA,BETA local
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.EQ.ZERO) THEN
182 Y(IY) = BETA*Y(IY)
Dzhpmv.f1 SUBROUTINE ZHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) argument
3 DOUBLE COMPLEX ALPHA,BETA local
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.EQ.ZERO) THEN
182 Y(IY) = BETA*Y(IY)
Dsspmv.f1 SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) argument
3 REAL ALPHA,BETA local
135 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
155 IF (BETA.NE.ONE) THEN
157 IF (BETA.EQ.ZERO) THEN
163 Y(I) = BETA*Y(I)
168 IF (BETA.EQ.ZERO) THEN
175 Y(IY) = BETA*Y(IY)
Ddspmv.f1 SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) argument
3 DOUBLE PRECISION ALPHA,BETA local
135 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
155 IF (BETA.NE.ONE) THEN
157 IF (BETA.EQ.ZERO) THEN
163 Y(I) = BETA*Y(I)
168 IF (BETA.EQ.ZERO) THEN
175 Y(IY) = BETA*Y(IY)
Dzhbmv.f1 SUBROUTINE ZHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) argument
3 DOUBLE COMPLEX ALPHA,BETA local
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*Y(IY)
Ddsbmv.f1 SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) argument
3 DOUBLE PRECISION ALPHA,BETA local
174 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
194 IF (BETA.NE.ONE) THEN
196 IF (BETA.EQ.ZERO) THEN
202 Y(I) = BETA*Y(I)
207 IF (BETA.EQ.ZERO) THEN
214 Y(IY) = BETA*Y(IY)
Dssbmv.f1 SUBROUTINE SSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) argument
3 REAL ALPHA,BETA local
176 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
196 IF (BETA.NE.ONE) THEN
198 IF (BETA.EQ.ZERO) THEN
204 Y(I) = BETA*Y(I)
209 IF (BETA.EQ.ZERO) THEN
216 Y(IY) = BETA*Y(IY)
Dchbmv.f1 SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) argument
3 COMPLEX ALPHA,BETA local
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*Y(IY)

1234