lapacke
pub unsafe fn sgetrs_work( layout: Layout, trans: u8, n: i32, nrhs: i32, a: &[f32], lda: i32, ipiv: &[i32], b: &mut [f32], ldb: i32) -> i32