95      $                   YS( NMAX*INCMAX ), YT( NMAX ),  variable
281       CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
283       SAME = LZE( YY, YT, N )
289       CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
291       SAME = LZE( YY, YT, N )
323      $                  X, XX, XS, Y, YY, YS, YT, G, 0 )
329      $                  X, XX, XS, Y, YY, YS, YT, G, 1 )
337      $                  X, XX, XS, Y, YY, YS, YT, G, 0 )
343      $                  X, XX, XS, Y, YY, YS, YT, G, 1 )
351      $                  NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, 
357      $                  NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, 
366      $                  YT, G, Z, 0 )
372      $                  YT, G, Z, 1 )
380      $                  YT, G, Z, 0 )
386      $                  YT, G, Z, 1 )
394      $                  YT, G, Z, 0 )
400      $                  YT, G, Z, 1 )
465      $                  XS, Y, YY, YS, YT, G, IORDER )  argument
491      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
746      $                                       INCY, YT, G, YY, EPS, ERR,
821      $                  XS, Y, YY, YS, YT, G, IORDER )  argument
847      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
1100      $                                    INCX, BETA, Y, INCY, YT, G,
1559      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1587      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
1776      $                                 ONE, A( 1, J ), 1, YT, G,
1837      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1865      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
2056      $                              1, ONE, A( JJ, J ), 1, YT, G,
2131      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2159      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
2382      $                                YT, G, AA( JA ), EPS, ERR, FATAL,
2458      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2480       COMPLEX*16         A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )  local
2523          YT( IY ) = ZERO
2528                YT( IY ) = YT( IY ) + A( J, I )*X( JX )
2534                YT( IY ) = YT( IY ) + DCONJG( A( J, I ) )*X( JX )
2540                YT( IY ) = YT( IY ) + A( I, J )*X( JX )
2545          YT( IY ) = ALPHA*YT( IY ) + BETA*Y( IY )
2554          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2570             WRITE( NOUT, FMT = 9998 )I, YT( I ),
2574      $         YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )