lapack
pub unsafe fn ctfttp( transr: u8, uplo: u8, n: i32, arf: &[c32], ap: &mut [c32], info: &mut i32)