Home | History | Annotate | Download | only in testing

Lines Matching refs:BETA

21 *  3                 NUMBER OF VALUES OF BETA
22 * 0.0 1.0 1.3 VALUES OF BETA
142 * Values of BETA
145 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
397 9992 FORMAT( ' FOR BETA ', 7F6.1 )
447 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX
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)
709 DOUBLE PRECISION ALPHA, BETA
734 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
771 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX
860 BETA = BET( IB )
885 BLS = BETA
896 $ BETA, LDC)
900 $ AA, LDA, BB, LDB, BETA, CC, LDC )
921 ISAME( 10 ) = BLS.EQ.BETA
950 $ NMAX, B, NMAX, BETA, C, NMAX,
955 $ NMAX, A, NMAX, BETA, C, NMAX,
992 $ LDB, BETA, LDC)
1021 $ ALPHA, LDA, LDB, BETA, LDC)
1023 DOUBLE PRECISION ALPHA, BETA
1044 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1439 DOUBLE PRECISION ALPHA, ALS, BETA, BETS, ERR, ERRMAX
1517 BETA = BET( IB )
1537 BETS = BETA
1547 $ TRANS, N, K, ALPHA, LDA, BETA, LDC)
1551 $ AA, LDA, BETA, CC, LDC )
1570 ISAME( 8 ) = BETS.EQ.BETA
1609 $ A( 1, J ), NMAX, BETA,
1616 $ A( J, 1 ), NMAX, BETA,
1664 $ LDA, BETA, LDC)
1693 $ N, K, ALPHA, LDA, BETA, LDC)
1695 DOUBLE PRECISION ALPHA, BETA
1718 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1756 DOUBLE PRECISION ALPHA, ALS, BETA, BETS, ERR, ERRMAX
1851 BETA = BET( IB )
1875 BETS = BETA
1885 $ TRANS, N, K, ALPHA, LDA, LDB, BETA, LDC)
1889 $ ALPHA, AA, LDA, BB, LDB, BETA,
1911 ISAME( 10 ) = BETS.EQ.BETA
1957 $ W, 2*NMAX, BETA,
1970 $ 2*NMAX, BETA, C( JJ, J ),
2020 $ LDA, LDB, BETA, LDC)
2050 $ N, K, ALPHA, LDA, LDB, BETA, LDC)
2052 DOUBLE PRECISION ALPHA, BETA
2075 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2196 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
2213 DOUBLE PRECISION ALPHA, BETA, EPS, ERR
2270 CT( I ) = ALPHA*CT( I ) + BETA*C( I, J )
2271 G( I ) = ABS( ALPHA )*G( I ) + ABS( BETA )*ABS( C( I, J ) )