blas
pub unsafe fn chpr2( uplo: u8, n: i32, alpha: c32, x: &[c32], incx: i32, y: &[c32], incy: i32, ap: &mut [c32])