Lines Matching defs:YT
92 $ YS( NMAX*INCMAX ), YT( NMAX ),
261 * YY holds the exact result. On exit from DMVCH YT holds
264 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
266 SAME = LDE( YY, YT, N )
272 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
274 SAME = LDE( YY, YT, N )
305 $ X, XX, XS, Y, YY, YS, YT, G )
311 $ X, XX, XS, Y, YY, YS, YT, G )
317 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
323 $ YT, G, Z )
329 $ YT, G, Z )
335 $ YT, G, Z )
394 $ XS, Y, YY, YS, YT, G )
418 $ YS( NMAX*INCMAX ), YT( NMAX ),
662 $ INCY, YT, G, YY, EPS, ERR,
735 $ XS, Y, YY, YS, YT, G )
759 $ YS( NMAX*INCMAX ), YT( NMAX ),
1002 $ INCX, BETA, Y, INCY, YT, G,
1434 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1457 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1634 $ ONE, A( 1, J ), 1, YT, G,
1695 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1718 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1898 $ 1, ONE, A( JJ, J ), 1, YT, G,
1973 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1996 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
2211 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2789 $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )
2808 DOUBLE PRECISION A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ),
2840 * Compute expected result in YT using data in A, X and Y.
2845 YT( IY ) = ZERO
2850 YT( IY ) = YT( IY ) + A( J, I )*X( JX )
2856 YT( IY ) = YT( IY ) + A( I, J )*X( JX )
2861 YT( IY ) = ALPHA*YT( IY ) + BETA*Y( IY )
2870 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2886 WRITE( NOUT, FMT = 9998 )I, YT( I ),
2890 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )
