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