/external/cblas/testing/ |
D | c_d3chke.c | 32 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 …]
|
D | c_s3chke.c | 32 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 …]
|
D | c_z3chke.c | 33 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 …]
|
D | c_c3chke.c | 33 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 …]
|
D | c_d2chke.c | 32 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 …]
|
D | c_s2chke.c | 32 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 …]
|
D | c_z2chke.c | 33 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 …]
|
D | c_c2chke.c | 33 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 …]
|
D | c_zblat3.f | 460 COMPLEX*16 ALPHA, ALS, BETA, BLS local 563 BETA = BET( IB ) 589 BLS = BETA 600 $ LDB, BETA, LDC) 605 $ BETA, CC, LDC ) 627 ISAME( 11 ) = BLS.EQ.BETA 655 $ ALPHA, A, NMAX, B, NMAX, BETA, 693 $ M, N, K, ALPHA, LDA, LDB, BETA, LDC) 722 $ K, ALPHA, LDA, LDB, BETA, LDC) argument 724 DOUBLE COMPLEX ALPHA, BETA local [all …]
|
D | c_cblat3.f | 459 COMPLEX ALPHA, ALS, BETA, BLS local 562 BETA = BET( IB ) 588 BLS = BETA 599 $ LDB, BETA, LDC) 604 $ BETA, CC, LDC ) 626 ISAME( 11 ) = BLS.EQ.BETA 654 $ ALPHA, A, NMAX, B, NMAX, BETA, 692 $ M, N, K, ALPHA, LDA, LDB, BETA, LDC) 721 $ K, ALPHA, LDA, LDB, BETA, LDC) argument 723 COMPLEX ALPHA, BETA local [all …]
|
D | c_sblat3.f | 447 REAL ALPHA, ALS, BETA, BLS, ERR, ERRMAX local 549 BETA = BET( IB ) 575 BLS = BETA 586 $ LDB, BETA, LDC) 591 $ BETA, CC, LDC ) 613 ISAME( 11 ) = BLS.EQ.BETA 641 $ ALPHA, A, NMAX, B, NMAX, BETA, 679 $ M, N, K, ALPHA, LDA, LDB, BETA, LDC) 710 $ K, ALPHA, LDA, LDB, BETA, LDC) argument 712 REAL ALPHA, BETA local [all …]
|
D | c_dblat3.f | 447 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX local 549 BETA = BET( IB ) 575 BLS = BETA 586 $ LDB, BETA, LDC) 591 $ BETA, CC, LDC ) 613 ISAME( 11 ) = BLS.EQ.BETA 641 $ ALPHA, A, NMAX, B, NMAX, BETA, 679 $ M, N, K, ALPHA, LDA, LDB, BETA, LDC) 707 $ K, ALPHA, LDA, LDB, BETA, LDC) argument 709 DOUBLE PRECISION ALPHA, BETA local [all …]
|
/external/eigen/lapack/ |
D | zlarfg.f | 130 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
|
D | clarfg.f | 130 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
|
D | slarfg.f | 130 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
|
D | dlarfg.f | 130 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/ |
D | cblat3.f | 438 COMPLEX ALPHA, ALS, BETA, BLS local 541 BETA = BET( IB ) 567 BLS = BETA 578 $ BETA, LDC 582 $ AA, LDA, BB, LDB, BETA, CC, LDC ) 604 ISAME( 11 ) = BLS.EQ.BETA 632 $ ALPHA, A, NMAX, B, NMAX, BETA, 668 $ ALPHA, LDA, LDB, BETA, LDC 723 COMPLEX ALPHA, ALS, BETA, BLS local 813 BETA = BET( IB ) [all …]
|
D | zblat3.f | 440 COMPLEX*16 ALPHA, ALS, BETA, BLS local 543 BETA = BET( IB ) 569 BLS = BETA 580 $ BETA, LDC 584 $ AA, LDA, BB, LDB, BETA, CC, LDC ) 606 ISAME( 11 ) = BLS.EQ.BETA 634 $ ALPHA, A, NMAX, B, NMAX, BETA, 670 $ ALPHA, LDA, LDB, BETA, LDC 725 COMPLEX*16 ALPHA, ALS, BETA, BLS local 815 BETA = BET( IB ) [all …]
|
D | dblat3.f | 425 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX local 527 BETA = BET( IB ) 553 BLS = BETA 564 $ BETA, LDC 568 $ AA, LDA, BB, LDB, BETA, CC, LDC ) 590 ISAME( 11 ) = BLS.EQ.BETA 618 $ ALPHA, A, NMAX, B, NMAX, BETA, 654 $ ALPHA, LDA, LDB, BETA, LDC 706 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX local 795 BETA = BET( IB ) [all …]
|
D | sblat3.f | 425 REAL ALPHA, ALS, BETA, BLS, ERR, ERRMAX local 527 BETA = BET( IB ) 553 BLS = BETA 564 $ BETA, LDC 568 $ AA, LDA, BB, LDB, BETA, CC, LDC ) 590 ISAME( 11 ) = BLS.EQ.BETA 618 $ ALPHA, A, NMAX, B, NMAX, BETA, 654 $ ALPHA, LDA, LDB, BETA, LDC 706 REAL ALPHA, ALS, BETA, BLS, ERR, ERRMAX local 795 BETA = BET( IB ) [all …]
|
D | cblat2.f | 470 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL local 586 BETA = BET( IB ) 614 BLS = BETA 625 $ TRANS, M, N, ALPHA, LDA, INCX, BETA, 630 $ LDA, XX, INCX, BETA, YY, 636 $ INCX, BETA, INCY 640 $ AA, LDA, XX, INCX, BETA, 663 ISAME( 9 ) = BLS.EQ.BETA 680 ISAME( 11 ) = BLS.EQ.BETA 710 $ NMAX, X, INCX, BETA, Y, [all …]
|
D | sblat2.f | 461 REAL ALPHA, ALS, BETA, BLS, ERR, ERRMAX, TRANSL local 576 BETA = BET( IB ) 604 BLS = BETA 615 $ TRANS, M, N, ALPHA, LDA, INCX, BETA, 620 $ LDA, XX, INCX, BETA, YY, 626 $ INCX, BETA, INCY 630 $ AA, LDA, XX, INCX, BETA, 653 ISAME( 9 ) = BLS.EQ.BETA 670 ISAME( 11 ) = BLS.EQ.BETA 700 $ NMAX, X, INCX, BETA, Y, [all …]
|
D | zblat2.f | 472 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL local 588 BETA = BET( IB ) 616 BLS = BETA 627 $ TRANS, M, N, ALPHA, LDA, INCX, BETA, 632 $ LDA, XX, INCX, BETA, YY, 638 $ INCX, BETA, INCY 642 $ AA, LDA, XX, INCX, BETA, 665 ISAME( 9 ) = BLS.EQ.BETA 682 ISAME( 11 ) = BLS.EQ.BETA 712 $ NMAX, X, INCX, BETA, Y, [all …]
|
D | dblat2.f | 461 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX, TRANSL local 576 BETA = BET( IB ) 604 BLS = BETA 615 $ TRANS, M, N, ALPHA, LDA, INCX, BETA, 620 $ LDA, XX, INCX, BETA, YY, 626 $ INCX, BETA, INCY 630 $ AA, LDA, XX, INCX, BETA, 653 ISAME( 9 ) = BLS.EQ.BETA 670 ISAME( 11 ) = BLS.EQ.BETA 700 $ NMAX, X, INCX, BETA, Y, [all …]
|
/external/cblas/examples/ |
D | cblas_example2.c | 16 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()
|