Lines Matching refs:ALPHA
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
749 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
790 COMPLEX*16 ALPHA, ALS, BETA, BLS local
877 ALPHA = ALF( IA )
896 ALS = ALPHA
915 $ SIDE, UPLO, M, N, ALPHA, LDA, LDB,
921 $ ALPHA, AA, LDA, BB, LDB, BETA,
925 $ ALPHA, AA, LDA, BB, LDB, BETA,
943 ISAME( 5 ) = ALS.EQ.ALPHA
976 CALL ZMMCH( 'N', 'N', M, N, M, ALPHA, A,
981 CALL ZMMCH( 'N', 'N', M, N, N, ALPHA, B,
1018 CALL ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1048 $ ALPHA, LDA, LDB, BETA, LDC) argument
1050 DOUBLE COMPLEX ALPHA, BETA local
1071 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1110 COMPLEX*16 ALPHA, ALS local
1191 ALPHA = ALF( IA )
1214 ALS = ALPHA
1229 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1234 $ DIAG, M, N, ALPHA, AA, LDA,
1239 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1244 $ DIAG, M, N, ALPHA, AA, LDA,
1264 ISAME( 7 ) = ALS.EQ.ALPHA
1296 $ ALPHA, A, NMAX, B, NMAX,
1302 $ ALPHA, B, NMAX, A, NMAX,
1316 BB( I + ( J - 1 )*LDB ) = ALPHA*
1370 $ M, N, ALPHA, LDA, LDB)
1399 $ DIAG, M, N, ALPHA, LDA, LDB) argument
1401 DOUBLE COMPLEX ALPHA local
1434 WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1475 COMPLEX*16 ALPHA, ALS, BETA, BETS local
1552 ALPHA = ALF( IA )
1554 RALPHA = DBLE( ALPHA )
1555 ALPHA = DCMPLX( RALPHA, RZERO )
1585 ALS = ALPHA
1616 $ UPLO, TRANS, N, K, ALPHA, LDA, BETA, LDC)
1620 $ ALPHA, AA, LDA, BETA, CC, LDC )
1640 ISAME( 5 ) = ALS.EQ.ALPHA
1691 $ ALPHA, A( 1, JJ ), NMAX,
1698 $ ALPHA, A( JJ, 1 ), NMAX,
1750 CALL ZPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1785 $ N, K, ALPHA, LDA, BETA, LDC) argument
1787 DOUBLE COMPLEX ALPHA, BETA local
1810 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1819 $ N, K, ALPHA, LDA, BETA, LDC) argument
1821 DOUBLE PRECISION ALPHA, BETA local
1844 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1885 COMPLEX*16 ALPHA, ALS, BETA, BETS local
1979 ALPHA = ALF( IA )
1989 $ NULL = NULL.OR.( ( K.LE.0.OR.ALPHA.EQ.
2005 ALS = ALPHA
2029 $ UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2034 $ ALPHA, AA, LDA, BB, LDB, RBETA,
2039 $ UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2044 $ ALPHA, AA, LDA, BB, LDB, BETA,
2062 ISAME( 5 ) = ALS.EQ.ALPHA
2115 W( I ) = ALPHA*AB( ( J - 1 )*2*
2118 W( K + I ) = DCONJG( ALPHA )*
2122 W( K + I ) = ALPHA*
2136 W( I ) = ALPHA*DCONJG( AB( ( K +
2138 W( K + I ) = DCONJG( ALPHA*
2142 W( I ) = ALPHA*AB( ( K + I - 1 )*
2144 W( K + I ) = ALPHA*
2201 $ ALPHA, LDA, LDB, RBETA, LDC)
2204 $ ALPHA, LDA, LDB, BETA, LDC)
2238 $ N, K, ALPHA, LDA, LDB, BETA, LDC) argument
2240 DOUBLE COMPLEX ALPHA, BETA local
2263 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2272 $ N, K, ALPHA, LDA, LDB, BETA, LDC) argument
2274 DOUBLE COMPLEX ALPHA local
2298 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2434 SUBROUTINE ZMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, argument
2454 COMPLEX*16 ALPHA, BETA local
2576 CT( I ) = ALPHA*CT( I ) + BETA*C( I, J )
2577 G( I ) = ABS1( ALPHA )*G( I ) +