F77_chpr()

void F77_chpr	(	CBLAS_INT *	layout,
		char *	uplow,
		CBLAS_INT *	n,
		float *	alpha,
		CBLAS_TEST_COMPLEX *	x,
		CBLAS_INT *	incx,
		CBLAS_TEST_COMPLEX *	ap
	)