94      $                   YS( NMAX*INCMAX ), YT( NMAX ),  variable
281       CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
283       SAME = LCE( YY, YT, N )
289       CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
291       SAME = LCE( 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
490      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
745      $                                       INCY, YT, G, YY, EPS, ERR,
820      $                  XS, Y, YY, YS, YT, G, IORDER )  argument
845      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
1098      $                                    INCX, BETA, Y, INCY, YT, G,
1556      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1583      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
1772      $                                 ONE, A( 1, J ), 1, YT, G,
1833      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1860      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
2051      $                              1, ONE, A( JJ, J ), 1, YT, G,
2126      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2153      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
2376      $                                YT, G, AA( JA ), EPS, ERR, FATAL,
2452      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2474       COMPLEX            A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )  local
2517          YT( IY ) = ZERO
2522                YT( IY ) = YT( IY ) + A( J, I )*X( JX )
2528                YT( IY ) = YT( IY ) + CONJG( A( J, I ) )*X( JX )
2534                YT( IY ) = YT( IY ) + A( I, J )*X( JX )
2539          YT( IY ) = ALPHA*YT( IY ) + BETA*Y( IY )
2548          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2564             WRITE( NOUT, FMT = 9998 )I, YT( I ),
2568      $         YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )