/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 | 32 ALPHA[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 | 32 ALPHA[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 | 32 ALPHA[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 | 32 ALPHA[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 560 ALPHA = ALF( IA ) 580 ALS = ALPHA 599 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, 604 $ K, ALPHA, AA, LDA, BB, LDB, 622 ISAME( 6 ) = ALS.EQ.ALPHA 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 559 ALPHA = ALF( IA ) 579 ALS = ALPHA 598 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, 603 $ K, ALPHA, AA, LDA, BB, LDB, 621 ISAME( 6 ) = ALS.EQ.ALPHA 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 546 ALPHA = ALF( IA ) 566 ALS = ALPHA 585 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, 590 $ K, ALPHA, AA, LDA, BB, LDB, 608 ISAME( 6 ) = ALS.EQ.ALPHA 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 546 ALPHA = ALF( IA ) 566 ALS = ALPHA 585 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, 590 $ K, ALPHA, AA, LDA, BB, LDB, 608 ISAME( 6 ) = ALS.EQ.ALPHA 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/blas/testing/ |
D | cblat3.f | 438 COMPLEX ALPHA, ALS, BETA, BLS local 538 ALPHA = ALF( IA ) 558 ALS = ALPHA 577 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB, 581 CALL CGEMM( TRANSA, TRANSB, M, N, K, ALPHA, 599 ISAME( 6 ) = ALS.EQ.ALPHA 632 $ ALPHA, A, NMAX, B, NMAX, BETA, 668 $ ALPHA, LDA, LDB, BETA, LDC 723 COMPLEX ALPHA, ALS, BETA, BLS local 810 ALPHA = ALF( IA ) [all …]
|
D | zblat3.f | 440 COMPLEX*16 ALPHA, ALS, BETA, BLS local 540 ALPHA = ALF( IA ) 560 ALS = ALPHA 579 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB, 583 CALL ZGEMM( TRANSA, TRANSB, M, N, K, ALPHA, 601 ISAME( 6 ) = ALS.EQ.ALPHA 634 $ ALPHA, A, NMAX, B, NMAX, BETA, 670 $ ALPHA, LDA, LDB, BETA, LDC 725 COMPLEX*16 ALPHA, ALS, BETA, BLS local 812 ALPHA = ALF( IA ) [all …]
|
D | dblat3.f | 425 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX local 524 ALPHA = ALF( IA ) 544 ALS = ALPHA 563 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB, 567 CALL DGEMM( TRANSA, TRANSB, M, N, K, ALPHA, 585 ISAME( 6 ) = ALS.EQ.ALPHA 618 $ ALPHA, A, NMAX, B, NMAX, BETA, 654 $ ALPHA, LDA, LDB, BETA, LDC 706 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX local 792 ALPHA = ALF( IA ) [all …]
|
D | sblat3.f | 425 REAL ALPHA, ALS, BETA, BLS, ERR, ERRMAX local 524 ALPHA = ALF( IA ) 544 ALS = ALPHA 563 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB, 567 CALL SGEMM( TRANSA, TRANSB, M, N, K, ALPHA, 585 ISAME( 6 ) = ALS.EQ.ALPHA 618 $ ALPHA, A, NMAX, B, NMAX, BETA, 654 $ ALPHA, LDA, LDB, BETA, LDC 706 REAL ALPHA, ALS, BETA, BLS, ERR, ERRMAX local 792 ALPHA = ALF( IA ) [all …]
|
D | sblat2.f | 461 REAL ALPHA, ALS, BETA, BLS, ERR, ERRMAX, TRANSL local 573 ALPHA = ALF( IA ) 595 ALS = ALPHA 615 $ TRANS, M, N, ALPHA, LDA, INCX, BETA, 619 CALL SGEMV( TRANS, M, N, ALPHA, AA, 625 $ TRANS, M, N, KL, KU, ALPHA, LDA, 629 CALL SGBMV( TRANS, M, N, KL, KU, ALPHA, 648 ISAME( 4 ) = ALS.EQ.ALPHA 665 ISAME( 6 ) = ALS.EQ.ALPHA 699 CALL SMVCH( TRANS, M, N, ALPHA, A, [all …]
|
D | dblat2.f | 461 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX, TRANSL local 573 ALPHA = ALF( IA ) 595 ALS = ALPHA 615 $ TRANS, M, N, ALPHA, LDA, INCX, BETA, 619 CALL DGEMV( TRANS, M, N, ALPHA, AA, 625 $ TRANS, M, N, KL, KU, ALPHA, LDA, 629 CALL DGBMV( TRANS, M, N, KL, KU, ALPHA, 648 ISAME( 4 ) = ALS.EQ.ALPHA 665 ISAME( 6 ) = ALS.EQ.ALPHA 699 CALL DMVCH( TRANS, M, N, ALPHA, A, [all …]
|
D | cblat2.f | 470 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL local 583 ALPHA = ALF( IA ) 605 ALS = ALPHA 625 $ TRANS, M, N, ALPHA, LDA, INCX, BETA, 629 CALL CGEMV( TRANS, M, N, ALPHA, AA, 635 $ TRANS, M, N, KL, KU, ALPHA, LDA, 639 CALL CGBMV( TRANS, M, N, KL, KU, ALPHA, 658 ISAME( 4 ) = ALS.EQ.ALPHA 675 ISAME( 6 ) = ALS.EQ.ALPHA 709 CALL CMVCH( TRANS, M, N, ALPHA, A, [all …]
|
D | zblat2.f | 472 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL local 585 ALPHA = ALF( IA ) 607 ALS = ALPHA 627 $ TRANS, M, N, ALPHA, LDA, INCX, BETA, 631 CALL ZGEMV( TRANS, M, N, ALPHA, AA, 637 $ TRANS, M, N, KL, KU, ALPHA, LDA, 641 CALL ZGBMV( TRANS, M, N, KL, KU, ALPHA, 660 ISAME( 4 ) = ALS.EQ.ALPHA 677 ISAME( 6 ) = ALS.EQ.ALPHA 711 CALL ZMVCH( TRANS, M, N, ALPHA, A, [all …]
|
/external/eigen/lapack/ |
D | slarfg.f | 107 SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU ) argument 116 REAL ALPHA, TAU local 160 BETA = -SIGN( SLAPY2( ALPHA, XNORM ), ALPHA ) 172 ALPHA = ALPHA*RSAFMN 179 BETA = -SIGN( SLAPY2( ALPHA, XNORM ), ALPHA ) 181 TAU = ( BETA-ALPHA ) / BETA 182 CALL SSCAL( N-1, ONE / ( ALPHA-BETA ), X, INCX ) 189 ALPHA = BETA
|
D | dlarfg.f | 107 SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU ) argument 116 DOUBLE PRECISION ALPHA, TAU local 160 BETA = -SIGN( DLAPY2( ALPHA, XNORM ), ALPHA ) 172 ALPHA = ALPHA*RSAFMN 179 BETA = -SIGN( DLAPY2( ALPHA, XNORM ), ALPHA ) 181 TAU = ( BETA-ALPHA ) / BETA 182 CALL DSCAL( N-1, ONE / ( ALPHA-BETA ), X, INCX ) 189 ALPHA = BETA
|
D | zlarfg.f | 107 SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU ) argument 116 COMPLEX*16 ALPHA, TAU local 151 ALPHR = DBLE( ALPHA ) 152 ALPHI = DIMAG( ALPHA ) 184 ALPHA = DCMPLX( ALPHR, ALPHI ) 188 ALPHA = ZLADIV( DCMPLX( ONE ), ALPHA-BETA ) 189 CALL ZSCAL( N-1, ALPHA, X, INCX ) 196 ALPHA = BETA
|
D | clarfg.f | 107 SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU ) argument 116 COMPLEX ALPHA, TAU local 151 ALPHR = REAL( ALPHA ) 152 ALPHI = AIMAG( ALPHA ) 184 ALPHA = CMPLX( ALPHR, ALPHI ) 188 ALPHA = CLADIV( CMPLX( ONE ), ALPHA-BETA ) 189 CALL CSCAL( N-1, ALPHA, X, INCX ) 196 ALPHA = BETA
|
/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()
|