lapacke_sys
pub unsafe extern "C" fn LAPACKE_dlarfg( n: lapack_int, alpha: *mut c_double, x: *mut c_double, incx: lapack_int, tau: *mut c_double) -> lapack_int