pub unsafe extern fn dtgsja_(jobu: *const c_char,
jobv: *const c_char,
jobq: *const c_char,
m: *const lapack_int,
p: *const lapack_int,
n: *const lapack_int,
k: *const lapack_int,
l: *const lapack_int,
a: *mut c_double,
lda: *const lapack_int,
b: *mut c_double,
ldb: *const lapack_int,
tola: *const c_double,
tolb: *const c_double,
alpha: *mut c_double,
beta: *mut c_double,
u: *mut c_double,
ldu: *const lapack_int,
v: *mut c_double,
ldv: *const lapack_int,
q: *mut c_double,
ldq: *const lapack_int,
work: *mut c_double,
ncycle: *mut lapack_int,
info: *mut lapack_int)