void cblas_cscal(const int N, const void *alpha, void *X, const int incX) { if (N > 0) { if (incX < 0) ATL_cscal(N, alpha, X, -incX); else ATL_cscal(N, alpha, X, incX); } }
void cblas_csscal(const int N, const float alpha, void *X, const int incX) { float al[2]; if (N > 0 && incX > 0) { al[0] = alpha; al[1] = ATL_rzero; if (incX < 0) ATL_cscal(N, al, X, -incX); else ATL_cscal(N, al, X, incX); } }