Commit c9843182 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Removed omp simd (wrong result with intel 18.0.5).

parent 84012105
...@@ -85,9 +85,13 @@ varrayMinMaxSum(const size_t len, const Varray<T> &array, double &rmin, double & ...@@ -85,9 +85,13 @@ varrayMinMaxSum(const size_t len, const Varray<T> &array, double &rmin, double &
{ {
// rmin, rmax and rsum will be initialized in Info // rmin, rmax and rsum will be initialized in Info
/*
gnu 9.2.0: correct result
intel 18.0.5: wrong result
#ifdef HAVE_OPENMP4 #ifdef HAVE_OPENMP4
#pragma omp simd reduction(+:rsum) reduction(min:rmin) reduction(max:rmax) #pragma omp simd reduction(+:rsum) reduction(min:rmin) reduction(max:rmax)
#endif #endif
*/
for (size_t i = 0; i < len; ++i) for (size_t i = 0; i < len; ++i)
{ {
if (array[i] < rmin) rmin = array[i]; if (array[i] < rmin) rmin = array[i];
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment