Lines Matching refs:ALPHA
461 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX, TRANSL local
573 ALPHA = ALF( IA )
595 ALS = ALPHA
615 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
619 CALL DGEMV( TRANS, M, N, ALPHA, AA,
625 $ TRANS, M, N, KL, KU, ALPHA, LDA,
629 CALL DGBMV( TRANS, M, N, KL, KU, ALPHA,
648 ISAME( 4 ) = ALS.EQ.ALPHA
665 ISAME( 6 ) = ALS.EQ.ALPHA
699 CALL DMVCH( TRANS, M, N, ALPHA, A,
742 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
746 $ ALPHA, LDA, INCX, BETA, INCY
802 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX, TRANSL local
902 ALPHA = ALF( IA )
922 ALS = ALPHA
942 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
945 CALL DSYMV( UPLO, N, ALPHA, AA, LDA, XX,
950 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
954 CALL DSBMV( UPLO, N, K, ALPHA, AA, LDA,
959 $ UPLO, N, ALPHA, INCX, BETA, INCY
962 CALL DSPMV( UPLO, N, ALPHA, AA, XX, INCX,
979 ISAME( 3 ) = ALS.EQ.ALPHA
994 ISAME( 4 ) = ALS.EQ.ALPHA
1008 ISAME( 3 ) = ALS.EQ.ALPHA
1040 CALL DMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1080 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1083 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1086 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1500 DOUBLE PRECISION ALPHA, ALS, ERR, ERRMAX, TRANSL local
1577 ALPHA = ALF( IA )
1591 ALS = ALPHA
1609 $ ALPHA, INCX, INCY, LDA
1612 CALL DGER( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1627 ISAME( 3 ) = ALS.EQ.ALPHA
1672 CALL DMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1710 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1761 DOUBLE PRECISION ALPHA, ALS, ERR, ERRMAX, TRANSL local
1832 ALPHA = ALF( IA )
1833 NULL = N.LE.0.OR.ALPHA.EQ.ZERO
1847 ALS = ALPHA
1862 $ ALPHA, INCX, LDA
1865 CALL DSYR( UPLO, N, ALPHA, XX, INCX, AA, LDA )
1869 $ ALPHA, INCX
1872 CALL DSPR( UPLO, N, ALPHA, XX, INCX, AA )
1887 ISAME( 3 ) = ALS.EQ.ALPHA
1936 CALL DMVCH( 'N', LJ, 1, ALPHA, Z( JJ ), LJ, W,
1983 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX, LDA
1985 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX
2039 DOUBLE PRECISION ALPHA, ALS, ERR, ERRMAX, TRANSL local
2125 ALPHA = ALF( IA )
2126 NULL = N.LE.0.OR.ALPHA.EQ.ZERO
2141 ALS = ALPHA
2160 $ ALPHA, INCX, INCY, LDA
2163 CALL DSYR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2168 $ ALPHA, INCX, INCY
2171 CALL DSPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2187 ISAME( 3 ) = ALS.EQ.ALPHA
2248 CALL DMVCH( 'N', LJ, 2, ALPHA, Z( JJ, 1 ),
2297 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2300 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2344 DOUBLE PRECISION ALPHA, BETA local
2364 CALL DGEMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2367 CALL DGEMV( 'N', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2370 CALL DGEMV( 'N', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2373 CALL DGEMV( 'N', 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2376 CALL DGEMV( 'N', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2379 CALL DGEMV( 'N', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2383 CALL DGBMV( '/', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2386 CALL DGBMV( 'N', -1, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2389 CALL DGBMV( 'N', 0, -1, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2392 CALL DGBMV( 'N', 0, 0, -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2395 CALL DGBMV( 'N', 2, 0, 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2398 CALL DGBMV( 'N', 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2401 CALL DGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2404 CALL DGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2408 CALL DSYMV( '/', 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2411 CALL DSYMV( 'U', -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2414 CALL DSYMV( 'U', 2, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2417 CALL DSYMV( 'U', 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2420 CALL DSYMV( 'U', 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2424 CALL DSBMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2427 CALL DSBMV( 'U', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2430 CALL DSBMV( 'U', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2433 CALL DSBMV( 'U', 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2436 CALL DSBMV( 'U', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2439 CALL DSBMV( 'U', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2443 CALL DSPMV( '/', 0, ALPHA, A, X, 1, BETA, Y, 1 )
2446 CALL DSPMV( 'U', -1, ALPHA, A, X, 1, BETA, Y, 1 )
2449 CALL DSPMV( 'U', 0, ALPHA, A, X, 0, BETA, Y, 1 )
2452 CALL DSPMV( 'U', 0, ALPHA, A, X, 1, BETA, Y, 0 )
2570 CALL DGER( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2573 CALL DGER( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2576 CALL DGER( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2579 CALL DGER( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2582 CALL DGER( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2586 CALL DSYR( '/', 0, ALPHA, X, 1, A, 1 )
2589 CALL DSYR( 'U', -1, ALPHA, X, 1, A, 1 )
2592 CALL DSYR( 'U', 0, ALPHA, X, 0, A, 1 )
2595 CALL DSYR( 'U', 2, ALPHA, X, 1, A, 1 )
2599 CALL DSPR( '/', 0, ALPHA, X, 1, A )
2602 CALL DSPR( 'U', -1, ALPHA, X, 1, A )
2605 CALL DSPR( 'U', 0, ALPHA, X, 0, A )
2609 CALL DSYR2( '/', 0, ALPHA, X, 1, Y, 1, A, 1 )
2612 CALL DSYR2( 'U', -1, ALPHA, X, 1, Y, 1, A, 1 )
2615 CALL DSYR2( 'U', 0, ALPHA, X, 0, Y, 1, A, 1 )
2618 CALL DSYR2( 'U', 0, ALPHA, X, 1, Y, 0, A, 1 )
2621 CALL DSYR2( 'U', 2, ALPHA, X, 1, Y, 1, A, 1 )
2625 CALL DSPR2( '/', 0, ALPHA, X, 1, Y, 1, A )
2628 CALL DSPR2( 'U', -1, ALPHA, X, 1, Y, 1, A )
2631 CALL DSPR2( 'U', 0, ALPHA, X, 0, Y, 1, A )
2634 CALL DSPR2( 'U', 0, ALPHA, X, 1, Y, 0, A )
2827 SUBROUTINE DMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, argument
2842 DOUBLE PRECISION ALPHA, BETA, EPS, ERR local
2900 YT( IY ) = ALPHA*YT( IY ) + BETA*Y( IY )
2901 G( IY ) = ABS( ALPHA )*G( IY ) + ABS( BETA*Y( IY ) )