pub unsafe extern "C" fn dtgsna_(
job: *mut c_char,
howmny: *mut c_char,
select: *mut c_int,
n: *mut c_int,
a: *mut c_double,
lda: *mut c_int,
b: *mut c_double,
ldb: *mut c_int,
vl: *mut c_double,
ldvl: *mut c_int,
vr: *mut c_double,
ldvr: *mut c_int,
s: *mut c_double,
dif: *mut c_double,
mm: *mut c_int,
m: *mut c_int,
work: *mut c_double,
lwork: *mut c_int,
iwork: *mut c_int,
info: *mut c_int,
)