smmch()

subroutine smmch	(	character*1	transa,
		character*1	transb,
		integer	m,
		integer	n,
		integer	kk,
		real	alpha,
		real, dimension( lda, * )	a,
		integer	lda,
		real, dimension( ldb, * )	b,
		integer	ldb,
		real	beta,
		real, dimension( ldc, * )	c,
		integer	ldc,
		real, dimension( * )	ct,
		real, dimension( * )	g,
		real, dimension( ldcc, * )	cc,
		integer	ldcc,
		real	eps,
		real	err,
		logical	fatal,
		integer	nout,
		logical	mv
	)