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