2878       SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,  subroutine
2890       COMPLEX*16         ZERO
2892       DOUBLE PRECISION   RZERO, RONE
2895       COMPLEX*16         ALPHA, BETA
2896       DOUBLE PRECISION   EPS, ERR
2897       INTEGER            INCX, INCY, M, N, NMAX, NOUT
2898       LOGICAL            FATAL, MV
2899       CHARACTER*1        TRANS
2901       COMPLEX*16         A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )  local
2902       DOUBLE PRECISION   G( * )
2904       COMPLEX*16         C  local
2905       DOUBLE PRECISION   ERRI
2906       INTEGER            I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL
2907       LOGICAL            CTRAN, TRAN
2911       DOUBLE PRECISION   ABS1
2952    10       CONTINUE
2958    20       CONTINUE
2964    30       CONTINUE
2969    40 CONTINUE
2981    50 CONTINUE
3007 *     End of ZMVCH.  argument