142      $                   YS( NMAX*INCMAX ), YT( NMAX ),  variable
309       CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
311       SAME = LZE( YY, YT, N )
317       CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
319       SAME = LZE( YY, YT, N )
350      $                  X, XX, XS, Y, YY, YS, YT, G )
356      $                  X, XX, XS, Y, YY, YS, YT, G )
362      $                  NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
368      $                  YT, G, Z )
374      $                  YT, G, Z )
380      $                  YT, G, Z )
441      $                  XS, Y, YY, YS, YT, G )  argument
467      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
713      $                                       INCY, YT, G, YY, EPS, ERR,
787      $                  XS, Y, YY, YS, YT, G )  argument
813      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
1058      $                                    INCX, BETA, Y, INCY, YT, G,
1497      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1524      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
1713      $                                 ONE, A( 1, J ), 1, YT, G,
1775      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1802      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
1985      $                              1, ONE, A( JJ, J ), 1, YT, G,
2060      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2087      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
2304      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2918      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2940       COMPLEX*16         A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )  local
2983          YT( IY ) = ZERO
2988                YT( IY ) = YT( IY ) + A( J, I )*X( JX )
2994                YT( IY ) = YT( IY ) + DCONJG( A( J, I ) )*X( JX )
3000                YT( IY ) = YT( IY ) + A( I, J )*X( JX )
3005          YT( IY ) = ALPHA*YT( IY ) + BETA*Y( IY )
3014          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
3030             WRITE( NOUT, FMT = 9998 )I, YT( I ),
3034      $         YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )