lapacke
pub unsafe fn dlarfg_work( n: i32, alpha: &mut f64, x: &mut [f64], incx: i32, tau: &mut [f64]) -> i32