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