pub unsafe extern fn dtpqrt_(m: *const lapack_int,
n: *const lapack_int,
l: *const lapack_int,
nb: *const lapack_int,
a: *mut c_double,
lda: *const lapack_int,
b: *mut c_double,
ldb: *const lapack_int,
t: *mut c_double,
ldt: *const lapack_int,
work: *mut c_double,
info: *mut lapack_int)