lapacke
pub unsafe fn sppcon_work( layout: Layout, uplo: u8, n: i32, ap: &[f32], anorm: f32, rcond: &mut f32, work: &mut [f32], iwork: &mut [i32]) -> i32