pub unsafe extern "C" fn cher_( uploa: *const f77_char, m: *const f77_int, alpha: *const f32, x: *const scomplex, incx: *const f77_int, a: *mut scomplex, lda: *const f77_int, )