Example #1
0
double cblas_dasum(const int N, const double *X, const int incX)
{
   if (N > 0)
   {
      if (incX < 0) return(ATL_dasum(N, X, -incX));
      else return(ATL_dasum(N, X, incX));
   }
   else return(0.0);
}
Example #2
0
double cblas_dasum(const int N, const double *X, const int incX)
{
   if (N > 0 && incX > 0)
      return(ATL_dasum(N, X, incX));
   return(0.0);
}