lapacke
pub unsafe fn slartgp_work( f: f32, g: f32, cs: &mut [f32], sn: &mut [f32], r: &mut [f32]) -> i32