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