LAPACK_dlansp()

double LAPACK_dlansp	(	char const *	norm,
		char const *	uplo,
		lapack_int const *	n,
		double const *	AP,
		double *	work
	)