pub type csumsqv_ft = Option<unsafe extern "C" fn(n: dim_t, x: *const scomplex, incx: inc_t, scale: *mut f32, sumsq: *mut f32)>;