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