void F77_sgemm	(	FCHAR	,
		FCHAR	,
		FINT	,
		FINT	,
		FINT	,
		const float *	,
		const float *	,
		FINT	,
		const float *	,
		FINT	,
		const float *	,
		float *	,
		FINT
	)