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