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);
   }
}
Beispiel #2
0
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);
    }
}