pub unsafe fn scal(n: usize, alpha: f64, x: *mut f64, incx: usize)
General-purpose SCAL operation: x = alpha * x