lapack_sys
pub unsafe extern "C" fn dorghr_( n: *const c_int, ilo: *const c_int, ihi: *const c_int, A: *mut f64, lda: *const c_int, tau: *const f64, work: *mut f64, lwork: *const c_int, info: *mut c_int)