Lines Matching full:alpha
40 *> 3 NUMBER OF VALUES OF ALPHA
41 *> (0.0,0.0) (1.0,0.0) (0.7,-0.9) VALUES OF ALPHA
237 * Values of ALPHA
240 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
415 9989 FORMAT( ' FOR ALPHA ',
470 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL
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,
752 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
756 $ ALPHA, LDA, INCX, BETA, INCY
815 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL
916 ALPHA = ALF( IA )
936 ALS = ALPHA
956 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
959 CALL CHEMV( UPLO, N, ALPHA, AA, LDA, XX,
964 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
968 CALL CHBMV( UPLO, N, K, ALPHA, AA, LDA,
973 $ UPLO, N, ALPHA, INCX, BETA, INCY
976 CALL CHPMV( UPLO, N, ALPHA, AA, XX, INCX,
993 ISAME( 3 ) = ALS.EQ.ALPHA
1008 ISAME( 4 ) = ALS.EQ.ALPHA
1022 ISAME( 3 ) = ALS.EQ.ALPHA
1054 CALL CMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1094 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1097 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1100 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1524 COMPLEX ALPHA, ALS, TRANSL
1603 ALPHA = ALF( IA )
1617 ALS = ALPHA
1635 $ ALPHA, INCX, INCY, LDA
1639 CALL CGERC( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1644 CALL CGERU( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1660 ISAME( 3 ) = ALS.EQ.ALPHA
1707 CALL CMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1745 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1801 COMPLEX ALPHA, TRANSL
1874 ALPHA = CMPLX( RALPHA, RZERO )
1978 CALL CMVCH( 'N', LJ, 1, ALPHA, Z( JJ ), LJ, W,
2085 COMPLEX ALPHA, ALS, TRANSL
2172 ALPHA = ALF( IA )
2173 NULL = N.LE.0.OR.ALPHA.EQ.ZERO
2188 ALS = ALPHA
2207 $ ALPHA, INCX, INCY, LDA
2210 CALL CHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2215 $ ALPHA, INCX, INCY
2218 CALL CHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2234 ISAME( 3 ) = ALS.EQ.ALPHA
2286 W( 1 ) = ALPHA*CONJG( Z( J, 2 ) )
2287 W( 2 ) = CONJG( ALPHA )*CONJG( Z( J, 1 ) )
2344 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2347 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2378 * ALPHA, RALPHA, BETA, A, X and Y should not need to be defined.
2393 COMPLEX ALPHA, BETA
2414 CALL CGEMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2417 CALL CGEMV( 'N', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2420 CALL CGEMV( 'N', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2423 CALL CGEMV( 'N', 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2426 CALL CGEMV( 'N', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2429 CALL CGEMV( 'N', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2433 CALL CGBMV( '/', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2436 CALL CGBMV( 'N', -1, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2439 CALL CGBMV( 'N', 0, -1, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2442 CALL CGBMV( 'N', 0, 0, -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2445 CALL CGBMV( 'N', 2, 0, 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2448 CALL CGBMV( 'N', 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2451 CALL CGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2454 CALL CGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2458 CALL CHEMV( '/', 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2461 CALL CHEMV( 'U', -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2464 CALL CHEMV( 'U', 2, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2467 CALL CHEMV( 'U', 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2470 CALL CHEMV( 'U', 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2474 CALL CHBMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2477 CALL CHBMV( 'U', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2480 CALL CHBMV( 'U', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2483 CALL CHBMV( 'U', 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2486 CALL CHBMV( 'U', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2489 CALL CHBMV( 'U', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2493 CALL CHPMV( '/', 0, ALPHA, A, X, 1, BETA, Y, 1 )
2496 CALL CHPMV( 'U', -1, ALPHA, A, X, 1, BETA, Y, 1 )
2499 CALL CHPMV( 'U', 0, ALPHA, A, X, 0, BETA, Y, 1 )
2502 CALL CHPMV( 'U', 0, ALPHA, A, X, 1, BETA, Y, 0 )
2620 CALL CGERC( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2623 CALL CGERC( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2626 CALL CGERC( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2629 CALL CGERC( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2632 CALL CGERC( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2636 CALL CGERU( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2639 CALL CGERU( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2642 CALL CGERU( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2645 CALL CGERU( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2648 CALL CGERU( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2675 CALL CHER2( '/', 0, ALPHA, X, 1, Y, 1, A, 1 )
2678 CALL CHER2( 'U', -1, ALPHA, X, 1, Y, 1, A, 1 )
2681 CALL CHER2( 'U', 0, ALPHA, X, 0, Y, 1, A, 1 )
2684 CALL CHER2( 'U', 0, ALPHA, X, 1, Y, 0, A, 1 )
2687 CALL CHER2( 'U', 2, ALPHA, X, 1, Y, 1, A, 1 )
2691 CALL CHPR2( '/', 0, ALPHA, X, 1, Y, 1, A )
2694 CALL CHPR2( 'U', -1, ALPHA, X, 1, Y, 1, A )
2697 CALL CHPR2( 'U', 0, ALPHA, X, 0, Y, 1, A )
2700 CALL CHPR2( 'U', 0, ALPHA, X, 1, Y, 0, A )
2909 SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
2926 COMPLEX ALPHA, BETA
2997 YT( IY ) = ALPHA*YT( IY ) + BETA*Y( IY )
2998 G( IY ) = ABS1( ALPHA )*G( IY ) + ABS1( BETA )*ABS1( Y( IY ) )
