2788       SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,  subroutine
2800       REAL               ZERO, ONE
2803       REAL               ALPHA, BETA, EPS, ERR
2804       INTEGER            INCX, INCY, M, N, NMAX, NOUT
2805       LOGICAL            FATAL, MV
2806       CHARACTER*1        TRANS
2808       REAL               A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ),  local
2809      $                   YY( * )
2811       REAL               ERRI
2812       INTEGER            I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL
2813       LOGICAL            TRAN
2853    10       CONTINUE
2859    20       CONTINUE
2864    30 CONTINUE
2876    40 CONTINUE
2902 *     End of SMVCH.  argument