lapacke
pub unsafe fn zptcon_work( n: i32, d: &[f64], e: &[c64], anorm: f64, rcond: &mut f64, work: &mut [f64]) -> i32