Lines Matching refs:ALPHA
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
748 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
789 COMPLEX ALPHA, ALS, BETA, BLS local
876 ALPHA = ALF( IA )
895 ALS = ALPHA
914 $ SIDE, UPLO, M, N, ALPHA, LDA, LDB,
920 $ ALPHA, AA, LDA, BB, LDB, BETA,
924 $ ALPHA, AA, LDA, BB, LDB, BETA,
942 ISAME( 5 ) = ALS.EQ.ALPHA
975 CALL CMMCH( 'N', 'N', M, N, M, ALPHA, A,
980 CALL CMMCH( 'N', 'N', M, N, N, ALPHA, B,
1017 CALL CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1047 $ ALPHA, LDA, LDB, BETA, LDC) argument
1049 COMPLEX ALPHA, BETA local
1070 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1109 COMPLEX ALPHA, ALS local
1190 ALPHA = ALF( IA )
1213 ALS = ALPHA
1228 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1233 $ DIAG, M, N, ALPHA, AA, LDA,
1238 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1243 $ DIAG, M, N, ALPHA, AA, LDA,
1263 ISAME( 7 ) = ALS.EQ.ALPHA
1295 $ ALPHA, A, NMAX, B, NMAX,
1301 $ ALPHA, B, NMAX, A, NMAX,
1315 BB( I + ( J - 1 )*LDB ) = ALPHA*
1369 $ M, N, ALPHA, LDA, LDB)
1398 $ DIAG, M, N, ALPHA, LDA, LDB) argument
1400 COMPLEX ALPHA local
1433 WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1474 COMPLEX ALPHA, ALS, BETA, BETS local
1551 ALPHA = ALF( IA )
1553 RALPHA = REAL( ALPHA )
1554 ALPHA = CMPLX( RALPHA, RZERO )
1584 ALS = ALPHA
1615 $ UPLO, TRANS, N, K, ALPHA, LDA, BETA, LDC)
1619 $ ALPHA, AA, LDA, BETA, CC, LDC )
1639 ISAME( 5 ) = ALS.EQ.ALPHA
1690 $ ALPHA, A( 1, JJ ), NMAX,
1697 $ ALPHA, A( JJ, 1 ), NMAX,
1749 CALL CPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1784 $ N, K, ALPHA, LDA, BETA, LDC) argument
1786 COMPLEX ALPHA, BETA local
1809 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1818 $ N, K, ALPHA, LDA, BETA, LDC) argument
1820 REAL ALPHA, BETA local
1843 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1884 COMPLEX ALPHA, ALS, BETA, BETS local
1978 ALPHA = ALF( IA )
1988 $ NULL = NULL.OR.( ( K.LE.0.OR.ALPHA.EQ.
2004 ALS = ALPHA
2028 $ UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2033 $ ALPHA, AA, LDA, BB, LDB, RBETA,
2038 $ UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2043 $ ALPHA, AA, LDA, BB, LDB, BETA,
2061 ISAME( 5 ) = ALS.EQ.ALPHA
2114 W( I ) = ALPHA*AB( ( J - 1 )*2*
2117 W( K + I ) = CONJG( ALPHA )*
2121 W( K + I ) = ALPHA*
2135 W( I ) = ALPHA*CONJG( AB( ( K +
2137 W( K + I ) = CONJG( ALPHA*
2141 W( I ) = ALPHA*AB( ( K + I - 1 )*
2143 W( K + I ) = ALPHA*
2200 $ ALPHA, LDA, LDB, RBETA, LDC)
2203 $ ALPHA, LDA, LDB, BETA, LDC)
2237 $ N, K, ALPHA, LDA, LDB, BETA, LDC) argument
2239 COMPLEX ALPHA, BETA local
2262 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2271 $ N, K, ALPHA, LDA, LDB, BETA, LDC) argument
2273 COMPLEX ALPHA local
2297 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2432 SUBROUTINE CMMCH(TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, argument
2452 COMPLEX ALPHA, BETA local
2572 CT( I ) = ALPHA*CT( I ) + BETA*C( I, J )
2573 G( I ) = ABS1( ALPHA )*G( I ) +