lapack
pub fn slarfx(side: u8, m: usize, n: usize, v: &[f32], tau: &[f32], c: &mut [f32], ldc: usize, work: &mut [f32])