lapack_sys
pub unsafe extern "C" fn dlassq_( n: *const c_int, X: *const f64, incx: *const c_int, scale: *mut f64, sumsq: *mut f64)