pub fn zhpr2<T>( order: CblasOrder, uplo: CblasUplo, N: i32, alpha: &[T], x: &[T], incx: i32, y: &[f64], incy: i32, Ap: &mut [f64])