blas
pub fn chpr(uplo: Uplo, n: usize, alpha: Complex<f32>, x: &[Complex<f32>], incx: usize, ap: &mut [Complex<f32>])