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