lapack
pub fn sgeqr2(m: usize, n: usize, a: &mut [f32], lda: usize, tau: &mut [f32], work: &mut [f32], info: &mut i32)