96      $                   YS( NMAX*INCMAX ), YT( NMAX ),  variable
270       CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
272       SAME = LZE( YY, YT, N )
278       CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
280       SAME = LZE( YY, YT, N )
311      $                  X, XX, XS, Y, YY, YS, YT, G )
317      $                  X, XX, XS, Y, YY, YS, YT, G )
323      $                  NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
329      $                  YT, G, Z )
335      $                  YT, G, Z )
341      $                  YT, G, Z )
402      $                  XS, Y, YY, YS, YT, G )  argument
428      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
674      $                                       INCY, YT, G, YY, EPS, ERR,
748      $                  XS, Y, YY, YS, YT, G )  argument
774      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
1019      $                                    INCX, BETA, Y, INCY, YT, G,
1458      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1485      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
1674      $                                 ONE, A( 1, J ), 1, YT, G,
1736      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1763      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
1946      $                              1, ONE, A( JJ, J ), 1, YT, G,
2021      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2048      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
2265      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2879      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2901       COMPLEX*16         A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )  local
2944          YT( IY ) = ZERO
2949                YT( IY ) = YT( IY ) + A( J, I )*X( JX )
2955                YT( IY ) = YT( IY ) + DCONJG( A( J, I ) )*X( JX )
2961                YT( IY ) = YT( IY ) + A( I, J )*X( JX )
2966          YT( IY ) = ALPHA*YT( IY ) + BETA*Y( IY )
2975          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2991             WRITE( NOUT, FMT = 9998 )I, YT( I ),
2995      $         YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )