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
	)