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