lapack
pub unsafe fn dlantp( norm: u8, uplo: u8, diag: u8, n: i32, ap: &[f64], work: &mut [f64]) -> f64