LAPACK_dlantr()

double LAPACK_dlantr	(	char *	norm,
		char *	uplo,
		char *	diag,
		lapack_int *	m,
		lapack_int *	n,
		const double *	a,
		lapack_int *	lda,
		double *	work
	)