lapacke
pub unsafe fn slartgs_work( x: f32, y: f32, sigma: f32, cs: &mut [f32], sn: &mut [f32]) -> i32