lapacke
pub unsafe fn slapmr( layout: Layout, forwrd: i32, m: i32, n: i32, x: &mut [f32], ldx: i32, k: &mut [i32]) -> i32