lapacke
pub unsafe fn ztfttp_work( layout: Layout, transr: u8, uplo: u8, n: i32, arf: &[c64], ap: &mut [c64]) -> i32