dspr()

void F77NAME() dspr	(	char *	uplo,
		integer *	N,
		double *	alpha,
		double *	dx,
		integer *	incx,
		double *	AP
	)