LAPACK_dlanhs()

double LAPACK_dlanhs	(	char const *	norm,
		lapack_int const *	n,
		double const *	A,
		lapack_int const *	lda,
		double *	work
	)