lapack
pub fn clacn2(n: usize, v: &mut [c32], x: &mut [c32], est: &mut [f32], kase: &mut u32, isave: &mut [i32])