pub unsafe extern "C" fn dlassq_( n: *const c_int, x: *const c_double, incx: *const c_int, scale: *mut c_double, sumsq: *mut c_double, )