cmake()

subroutine cmake	(	character*2	type,
		character*1	uplo,
		character*1	diag,
		integer	m,
		integer	n,
		complex, dimension( nmax, * )	a,
		integer	nmax,
		complex, dimension( * )	aa,
		integer	lda,
		logical	reset,
		complex	transl
	)