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