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