lapacke
pub unsafe fn cungqr_work( layout: Layout, m: i32, n: i32, k: i32, a: &mut [c32], lda: i32, tau: &[c32], work: &mut [c32], lwork: i32) -> i32