Lines Matching defs:ALPHA
24 * 3 NUMBER OF VALUES OF ALPHA
25 * (0.0,0.0) (1.0,0.0) (0.7,-0.9) VALUES OF ALPHA
191 * Values of ALPHA
194 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
376 9989 FORMAT( ' FOR ALPHA ',
431 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL
544 ALPHA = ALF( IA )
566 ALS = ALPHA
586 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
590 CALL CGEMV( TRANS, M, N, ALPHA, AA,
596 $ TRANS, M, N, KL, KU, ALPHA, LDA,
600 CALL CGBMV( TRANS, M, N, KL, KU, ALPHA,
619 ISAME( 4 ) = ALS.EQ.ALPHA
636 ISAME( 6 ) = ALS.EQ.ALPHA
670 CALL CMVCH( TRANS, M, N, ALPHA, A,
713 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
717 $ ALPHA, LDA, INCX, BETA, INCY
776 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL
877 ALPHA = ALF( IA )
897 ALS = ALPHA
917 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
920 CALL CHEMV( UPLO, N, ALPHA, AA, LDA, XX,
925 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
929 CALL CHBMV( UPLO, N, K, ALPHA, AA, LDA,
934 $ UPLO, N, ALPHA, INCX, BETA, INCY
937 CALL CHPMV( UPLO, N, ALPHA, AA, XX, INCX,
954 ISAME( 3 ) = ALS.EQ.ALPHA
969 ISAME( 4 ) = ALS.EQ.ALPHA
983 ISAME( 3 ) = ALS.EQ.ALPHA
1015 CALL CMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1055 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1058 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1061 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1485 COMPLEX ALPHA, ALS, TRANSL
1564 ALPHA = ALF( IA )
1578 ALS = ALPHA
1596 $ ALPHA, INCX, INCY, LDA
1600 CALL CGERC( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1605 CALL CGERU( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1621 ISAME( 3 ) = ALS.EQ.ALPHA
1668 CALL CMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1706 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1762 COMPLEX ALPHA, TRANSL
1835 ALPHA = CMPLX( RALPHA, RZERO )
1939 CALL CMVCH( 'N', LJ, 1, ALPHA, Z( JJ ), LJ, W,
2046 COMPLEX ALPHA, ALS, TRANSL
2133 ALPHA = ALF( IA )
2134 NULL = N.LE.0.OR.ALPHA.EQ.ZERO
2149 ALS = ALPHA
2168 $ ALPHA, INCX, INCY, LDA
2171 CALL CHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2176 $ ALPHA, INCX, INCY
2179 CALL CHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2195 ISAME( 3 ) = ALS.EQ.ALPHA
2247 W( 1 ) = ALPHA*CONJG( Z( J, 2 ) )
2248 W( 2 ) = CONJG( ALPHA )*CONJG( Z( J, 1 ) )
2305 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2308 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2339 * ALPHA, RALPHA, BETA, A, X and Y should not need to be defined.
2354 COMPLEX ALPHA, BETA
2375 CALL CGEMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2378 CALL CGEMV( 'N', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2381 CALL CGEMV( 'N', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2384 CALL CGEMV( 'N', 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2387 CALL CGEMV( 'N', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2390 CALL CGEMV( 'N', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2394 CALL CGBMV( '/', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2397 CALL CGBMV( 'N', -1, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2400 CALL CGBMV( 'N', 0, -1, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2403 CALL CGBMV( 'N', 0, 0, -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2406 CALL CGBMV( 'N', 2, 0, 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2409 CALL CGBMV( 'N', 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2412 CALL CGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2415 CALL CGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2419 CALL CHEMV( '/', 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2422 CALL CHEMV( 'U', -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2425 CALL CHEMV( 'U', 2, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2428 CALL CHEMV( 'U', 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2431 CALL CHEMV( 'U', 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2435 CALL CHBMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2438 CALL CHBMV( 'U', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2441 CALL CHBMV( 'U', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2444 CALL CHBMV( 'U', 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2447 CALL CHBMV( 'U', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2450 CALL CHBMV( 'U', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2454 CALL CHPMV( '/', 0, ALPHA, A, X, 1, BETA, Y, 1 )
2457 CALL CHPMV( 'U', -1, ALPHA, A, X, 1, BETA, Y, 1 )
2460 CALL CHPMV( 'U', 0, ALPHA, A, X, 0, BETA, Y, 1 )
2463 CALL CHPMV( 'U', 0, ALPHA, A, X, 1, BETA, Y, 0 )
2581 CALL CGERC( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2584 CALL CGERC( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2587 CALL CGERC( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2590 CALL CGERC( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2593 CALL CGERC( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2597 CALL CGERU( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2600 CALL CGERU( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2603 CALL CGERU( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2606 CALL CGERU( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2609 CALL CGERU( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2636 CALL CHER2( '/', 0, ALPHA, X, 1, Y, 1, A, 1 )
2639 CALL CHER2( 'U', -1, ALPHA, X, 1, Y, 1, A, 1 )
2642 CALL CHER2( 'U', 0, ALPHA, X, 0, Y, 1, A, 1 )
2645 CALL CHER2( 'U', 0, ALPHA, X, 1, Y, 0, A, 1 )
2648 CALL CHER2( 'U', 2, ALPHA, X, 1, Y, 1, A, 1 )
2652 CALL CHPR2( '/', 0, ALPHA, X, 1, Y, 1, A )
2655 CALL CHPR2( 'U', -1, ALPHA, X, 1, Y, 1, A )
2658 CALL CHPR2( 'U', 0, ALPHA, X, 0, Y, 1, A )
2661 CALL CHPR2( 'U', 0, ALPHA, X, 1, Y, 0, A )
2870 SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
2887 COMPLEX ALPHA, BETA
2958 YT( IY ) = ALPHA*YT( IY ) + BETA*Y( IY )
2959 G( IY ) = ABS1( ALPHA )*G( IY ) + ABS1( BETA )*ABS1( Y( IY ) )