138      $                   YS( NMAX*INCMAX ), YT( NMAX ),  variable
303       CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
305       SAME = LDE( YY, YT, N )
311       CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
313       SAME = LDE( YY, YT, N )
344      $                  X, XX, XS, Y, YY, YS, YT, G )
350      $                  X, XX, XS, Y, YY, YS, YT, G )
356      $                  NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
362      $                  YT, G, Z )
368      $                  YT, G, Z )
374      $                  YT, G, Z )
433      $                  XS, Y, YY, YS, YT, G )  argument
457      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
701      $                                       INCY, YT, G, YY, EPS, ERR,
774      $                  XS, Y, YY, YS, YT, G )  argument
798      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
1041      $                                    INCX, BETA, Y, INCY, YT, G,
1473      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1496      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
1673      $                                 ONE, A( 1, J ), 1, YT, G,
1734      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1757      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
1937      $                              1, ONE, A( JJ, J ), 1, YT, G,
2012      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2035      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
2250      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2828      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2847       DOUBLE PRECISION   A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ),  local
2884          YT( IY ) = ZERO
2889                YT( IY ) = YT( IY ) + A( J, I )*X( JX )
2895                YT( IY ) = YT( IY ) + A( I, J )*X( JX )
2900          YT( IY ) = ALPHA*YT( IY ) + BETA*Y( IY )
2909          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2925             WRITE( NOUT, FMT = 9998 )I, YT( I ),
2929      $         YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )