2909       SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,  subroutine
2921       COMPLEX            ZERO
2923       REAL               RZERO, RONE
2926       COMPLEX            ALPHA, BETA
2927       REAL               EPS, ERR
2928       INTEGER            INCX, INCY, M, N, NMAX, NOUT
2929       LOGICAL            FATAL, MV
2930       CHARACTER*1        TRANS
2932       COMPLEX            A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )  local
2933       REAL               G( * )
2935       COMPLEX            C  local
2936       REAL               ERRI
2937       INTEGER            I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL
2938       LOGICAL            CTRAN, TRAN
2942       REAL               ABS1
2983    10       CONTINUE
2989    20       CONTINUE
2995    30       CONTINUE
3000    40 CONTINUE
3012    50 CONTINUE
3038 *     End of CMVCH.  argument