pub unsafe extern "C" fn cblas_dscal(
    n: u32,
    alpha: c_double,
    x: *mut c_double,
    inc_x: u32
)