cblas_sys
pub unsafe extern "C" fn cblas_chpr( layout: CBLAS_LAYOUT, uplo: CBLAS_UPLO, n: c_int, alpha: c_float, x: *const c_float_complex, incx: c_int, a: *mut c_float_complex)