pub unsafe extern "C" fn sorgqr_(
m: *const lapack_int,
n: *const lapack_int,
k: *const lapack_int,
a: *mut c_float,
lda: *const lapack_int,
tau: *const c_float,
work: *mut c_float,
lwork: *const lapack_int,
info: *mut lapack_int,
)