lapack
pub fn zhptrs(uplo: u8, n: usize, nrhs: usize, ap: &[c64], ipiv: &[i32], b: &mut [c64], ldb: usize, info: &mut i32)