cblas_sys
pub unsafe extern "C" fn cblas_dscal( n: c_int, alpha: c_double, x: *mut c_double, incx: c_int)