lapacke
pub unsafe fn sspgst( layout: Layout, itype: i32, uplo: u8, n: i32, ap: &mut [f32], bp: &[f32]) -> i32