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
192 * Values of ALPHA
195 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
377 9989 FORMAT( ' FOR ALPHA ',
433 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL
546 ALPHA = ALF( IA )
568 ALS = ALPHA
588 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
592 CALL ZGEMV( TRANS, M, N, ALPHA, AA,
598 $ TRANS, M, N, KL, KU, ALPHA, LDA,
602 CALL ZGBMV( TRANS, M, N, KL, KU, ALPHA,
621 ISAME( 4 ) = ALS.EQ.ALPHA
638 ISAME( 6 ) = ALS.EQ.ALPHA
672 CALL ZMVCH( TRANS, M, N, ALPHA, A,
715 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
719 $ ALPHA, LDA, INCX, BETA, INCY
779 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL
880 ALPHA = ALF( IA )
900 ALS = ALPHA
920 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
923 CALL ZHEMV( UPLO, N, ALPHA, AA, LDA, XX,
928 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
932 CALL ZHBMV( UPLO, N, K, ALPHA, AA, LDA,
937 $ UPLO, N, ALPHA, INCX, BETA, INCY
940 CALL ZHPMV( UPLO, N, ALPHA, AA, XX, INCX,
957 ISAME( 3 ) = ALS.EQ.ALPHA
972 ISAME( 4 ) = ALS.EQ.ALPHA
986 ISAME( 3 ) = ALS.EQ.ALPHA
1018 CALL ZMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1058 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1061 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1064 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1490 COMPLEX*16 ALPHA, ALS, TRANSL
1569 ALPHA = ALF( IA )
1583 ALS = ALPHA
1601 $ ALPHA, INCX, INCY, LDA
1605 CALL ZGERC( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1610 CALL ZGERU( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1626 ISAME( 3 ) = ALS.EQ.ALPHA
1673 CALL ZMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1711 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1768 COMPLEX*16 ALPHA, TRANSL
1841 ALPHA = DCMPLX( RALPHA, RZERO )
1945 CALL ZMVCH( 'N', LJ, 1, ALPHA, Z( JJ ), LJ, W,
2053 COMPLEX*16 ALPHA, ALS, TRANSL
2140 ALPHA = ALF( IA )
2141 NULL = N.LE.0.OR.ALPHA.EQ.ZERO
2156 ALS = ALPHA
2175 $ ALPHA, INCX, INCY, LDA
2178 CALL ZHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2183 $ ALPHA, INCX, INCY
2186 CALL ZHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2202 ISAME( 3 ) = ALS.EQ.ALPHA
2254 W( 1 ) = ALPHA*DCONJG( Z( J, 2 ) )
2255 W( 2 ) = DCONJG( ALPHA )*DCONJG( Z( J, 1 ) )
2312 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2315 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2346 * ALPHA, RALPHA, BETA, A, X and Y should not need to be defined.
2361 COMPLEX*16 ALPHA, BETA
2382 CALL ZGEMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2385 CALL ZGEMV( 'N', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2388 CALL ZGEMV( 'N', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2391 CALL ZGEMV( 'N', 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2394 CALL ZGEMV( 'N', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2397 CALL ZGEMV( 'N', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2401 CALL ZGBMV( '/', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2404 CALL ZGBMV( 'N', -1, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2407 CALL ZGBMV( 'N', 0, -1, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2410 CALL ZGBMV( 'N', 0, 0, -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2413 CALL ZGBMV( 'N', 2, 0, 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2416 CALL ZGBMV( 'N', 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2419 CALL ZGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2422 CALL ZGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2426 CALL ZHEMV( '/', 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2429 CALL ZHEMV( 'U', -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2432 CALL ZHEMV( 'U', 2, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2435 CALL ZHEMV( 'U', 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2438 CALL ZHEMV( 'U', 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2442 CALL ZHBMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2445 CALL ZHBMV( 'U', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2448 CALL ZHBMV( 'U', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2451 CALL ZHBMV( 'U', 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2454 CALL ZHBMV( 'U', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2457 CALL ZHBMV( 'U', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2461 CALL ZHPMV( '/', 0, ALPHA, A, X, 1, BETA, Y, 1 )
2464 CALL ZHPMV( 'U', -1, ALPHA, A, X, 1, BETA, Y, 1 )
2467 CALL ZHPMV( 'U', 0, ALPHA, A, X, 0, BETA, Y, 1 )
2470 CALL ZHPMV( 'U', 0, ALPHA, A, X, 1, BETA, Y, 0 )
2588 CALL ZGERC( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2591 CALL ZGERC( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2594 CALL ZGERC( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2597 CALL ZGERC( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2600 CALL ZGERC( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2604 CALL ZGERU( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2607 CALL ZGERU( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2610 CALL ZGERU( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2613 CALL ZGERU( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2616 CALL ZGERU( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2643 CALL ZHER2( '/', 0, ALPHA, X, 1, Y, 1, A, 1 )
2646 CALL ZHER2( 'U', -1, ALPHA, X, 1, Y, 1, A, 1 )
2649 CALL ZHER2( 'U', 0, ALPHA, X, 0, Y, 1, A, 1 )
2652 CALL ZHER2( 'U', 0, ALPHA, X, 1, Y, 0, A, 1 )
2655 CALL ZHER2( 'U', 2, ALPHA, X, 1, Y, 1, A, 1 )
2659 CALL ZHPR2( '/', 0, ALPHA, X, 1, Y, 1, A )
2662 CALL ZHPR2( 'U', -1, ALPHA, X, 1, Y, 1, A )
2665 CALL ZHPR2( 'U', 0, ALPHA, X, 0, Y, 1, A )
2668 CALL ZHPR2( 'U', 0, ALPHA, X, 1, Y, 0, A )
2878 SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
2895 COMPLEX*16 ALPHA, BETA
2966 YT( IY ) = ALPHA*YT( IY ) + BETA*Y( IY )
2967 G( IY ) = ABS1( ALPHA )*G( IY ) + ABS1( BETA )*ABS1( Y( IY ) )