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