dmake()

subroutine dmake	(	character*2	type,
		character*1	uplo,
		character*1	diag,
		integer	m,
		integer	n,
		double precision, dimension( nmax, * )	a,
		integer	nmax,
		double precision, dimension( * )	aa,
		integer	lda,
		integer	kl,
		integer	ku,
		logical	reset,
		double precision	transl
	)