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); }
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); }