pub unsafe extern "C" fn LAPACKE_dlascl_work(
matrix_layout: c_int,
_type: c_char,
kl: lapack_int,
ku: lapack_int,
cfrom: c_double,
cto: c_double,
m: lapack_int,
n: lapack_int,
a: *mut c_double,
lda: lapack_int,
) -> lapack_int