2451       SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,  subroutine
2463       COMPLEX            ZERO
2465       REAL               RZERO, RONE
2468       COMPLEX            ALPHA, BETA
2469       REAL               EPS, ERR
2470       INTEGER            INCX, INCY, M, N, NMAX, NOUT
2471       LOGICAL            FATAL, MV
2472       CHARACTER*1        TRANS
2474       COMPLEX            A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )  local
2475       REAL               G( * )
2477       COMPLEX            C  local
2478       REAL               ERRI
2479       INTEGER            I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL
2480       LOGICAL            CTRAN, TRAN
2484       REAL               ABS1
2525    10       CONTINUE
2531    20       CONTINUE
2537    30       CONTINUE
2542    40 CONTINUE
2554    50 CONTINUE
2580 *     End of CMVCH.  argument