smvch()

subroutine smvch	(	character*1	trans,
		integer	m,
		integer	n,
		real	alpha,
		real, dimension( nmax, * )	a,
		integer	nmax,
		real, dimension( * )	x,
		integer	incx,
		real	beta,
		real, dimension( * )	y,
		integer	incy,
		real, dimension( * )	yt,
		real, dimension( * )	g,
		real, dimension( * )	yy,
		real	eps,
		real	err,
		logical	fatal,
		integer	nout,
		logical	mv
	)