pub unsafe extern "C" fn zhpr_( uplo: *const c_char, n: *const c_int, alpha: *const f64, x: *const Rcomplex, incx: *const c_int, ap: *mut Rcomplex )