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