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