2639       SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,  subroutine
2651       REAL               ZERO, ONE
2654       REAL               ALPHA, BETA, EPS, ERR
2655       INTEGER            INCX, INCY, M, N, NMAX, NOUT
2656       LOGICAL            FATAL, MV
2657       CHARACTER*1        TRANS
2659       REAL               A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ),  local
2660      $                   YY( * )
2662       REAL               ERRI
2663       INTEGER            I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL
2664       LOGICAL            TRAN
2704    10       CONTINUE
2710    20       CONTINUE
2715    30 CONTINUE
2727    40 CONTINUE
2753 *     End of SMVCH.  argument