Lines Matching refs:ALPHA
472 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL local
585 ALPHA = ALF( IA )
607 ALS = ALPHA
627 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
631 CALL ZGEMV( TRANS, M, N, ALPHA, AA,
637 $ TRANS, M, N, KL, KU, ALPHA, LDA,
641 CALL ZGBMV( TRANS, M, N, KL, KU, ALPHA,
660 ISAME( 4 ) = ALS.EQ.ALPHA
677 ISAME( 6 ) = ALS.EQ.ALPHA
711 CALL ZMVCH( TRANS, M, N, ALPHA, A,
754 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
758 $ ALPHA, LDA, INCX, BETA, INCY
818 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL local
919 ALPHA = ALF( IA )
939 ALS = ALPHA
959 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
962 CALL ZHEMV( UPLO, N, ALPHA, AA, LDA, XX,
967 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
971 CALL ZHBMV( UPLO, N, K, ALPHA, AA, LDA,
976 $ UPLO, N, ALPHA, INCX, BETA, INCY
979 CALL ZHPMV( UPLO, N, ALPHA, AA, XX, INCX,
996 ISAME( 3 ) = ALS.EQ.ALPHA
1011 ISAME( 4 ) = ALS.EQ.ALPHA
1025 ISAME( 3 ) = ALS.EQ.ALPHA
1057 CALL ZMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1097 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1100 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1103 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1529 COMPLEX*16 ALPHA, ALS, TRANSL local
1608 ALPHA = ALF( IA )
1622 ALS = ALPHA
1640 $ ALPHA, INCX, INCY, LDA
1644 CALL ZGERC( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1649 CALL ZGERU( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1665 ISAME( 3 ) = ALS.EQ.ALPHA
1712 CALL ZMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1750 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1807 COMPLEX*16 ALPHA, TRANSL local
1880 ALPHA = DCMPLX( RALPHA, RZERO )
1984 CALL ZMVCH( 'N', LJ, 1, ALPHA, Z( JJ ), LJ, W,
2092 COMPLEX*16 ALPHA, ALS, TRANSL local
2179 ALPHA = ALF( IA )
2180 NULL = N.LE.0.OR.ALPHA.EQ.ZERO
2195 ALS = ALPHA
2214 $ ALPHA, INCX, INCY, LDA
2217 CALL ZHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2222 $ ALPHA, INCX, INCY
2225 CALL ZHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2241 ISAME( 3 ) = ALS.EQ.ALPHA
2293 W( 1 ) = ALPHA*DCONJG( Z( J, 2 ) )
2294 W( 2 ) = DCONJG( ALPHA )*DCONJG( Z( J, 1 ) )
2351 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2354 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2400 COMPLEX*16 ALPHA, BETA local
2421 CALL ZGEMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2424 CALL ZGEMV( 'N', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2427 CALL ZGEMV( 'N', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2430 CALL ZGEMV( 'N', 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2433 CALL ZGEMV( 'N', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2436 CALL ZGEMV( 'N', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2440 CALL ZGBMV( '/', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2443 CALL ZGBMV( 'N', -1, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2446 CALL ZGBMV( 'N', 0, -1, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2449 CALL ZGBMV( 'N', 0, 0, -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2452 CALL ZGBMV( 'N', 2, 0, 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2455 CALL ZGBMV( 'N', 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2458 CALL ZGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2461 CALL ZGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2465 CALL ZHEMV( '/', 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2468 CALL ZHEMV( 'U', -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2471 CALL ZHEMV( 'U', 2, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2474 CALL ZHEMV( 'U', 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2477 CALL ZHEMV( 'U', 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2481 CALL ZHBMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2484 CALL ZHBMV( 'U', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2487 CALL ZHBMV( 'U', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2490 CALL ZHBMV( 'U', 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2493 CALL ZHBMV( 'U', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2496 CALL ZHBMV( 'U', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2500 CALL ZHPMV( '/', 0, ALPHA, A, X, 1, BETA, Y, 1 )
2503 CALL ZHPMV( 'U', -1, ALPHA, A, X, 1, BETA, Y, 1 )
2506 CALL ZHPMV( 'U', 0, ALPHA, A, X, 0, BETA, Y, 1 )
2509 CALL ZHPMV( 'U', 0, ALPHA, A, X, 1, BETA, Y, 0 )
2627 CALL ZGERC( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2630 CALL ZGERC( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2633 CALL ZGERC( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2636 CALL ZGERC( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2639 CALL ZGERC( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2643 CALL ZGERU( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2646 CALL ZGERU( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2649 CALL ZGERU( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2652 CALL ZGERU( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2655 CALL ZGERU( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2682 CALL ZHER2( '/', 0, ALPHA, X, 1, Y, 1, A, 1 )
2685 CALL ZHER2( 'U', -1, ALPHA, X, 1, Y, 1, A, 1 )
2688 CALL ZHER2( 'U', 0, ALPHA, X, 0, Y, 1, A, 1 )
2691 CALL ZHER2( 'U', 0, ALPHA, X, 1, Y, 0, A, 1 )
2694 CALL ZHER2( 'U', 2, ALPHA, X, 1, Y, 1, A, 1 )
2698 CALL ZHPR2( '/', 0, ALPHA, X, 1, Y, 1, A )
2701 CALL ZHPR2( 'U', -1, ALPHA, X, 1, Y, 1, A )
2704 CALL ZHPR2( 'U', 0, ALPHA, X, 0, Y, 1, A )
2707 CALL ZHPR2( 'U', 0, ALPHA, X, 1, Y, 0, A )
2917 SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, argument
2934 COMPLEX*16 ALPHA, BETA local
3005 YT( IY ) = ALPHA*YT( IY ) + BETA*Y( IY )
3006 G( IY ) = ABS1( ALPHA )*G( IY ) + ABS1( BETA )*ABS1( Y( IY ) )