2457       SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,  subroutine
2469       COMPLEX*16         ZERO
2471       DOUBLE PRECISION   RZERO, RONE
2474       COMPLEX*16         ALPHA, BETA
2475       DOUBLE PRECISION   EPS, ERR
2476       INTEGER            INCX, INCY, M, N, NMAX, NOUT
2477       LOGICAL            FATAL, MV
2478       CHARACTER*1        TRANS
2480       COMPLEX*16         A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )  local
2481       DOUBLE PRECISION   G( * )
2483       COMPLEX*16         C  local
2484       DOUBLE PRECISION   ERRI
2485       INTEGER            I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL
2486       LOGICAL            CTRAN, TRAN
2490       DOUBLE PRECISION   ABS1
2531    10       CONTINUE
2537    20       CONTINUE
2543    30       CONTINUE
2548    40 CONTINUE
2560    50 CONTINUE
2586 *     End of ZMVCH.  argument