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