smake()

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