dmmch()

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