cpp/cpp_tests/openmp/prod_cons.cpp
double Sum_array(int const length, double *a) {
  double sum = 0.0;
  // #pragma omp parallel for reduction(+ : sum)
  for (int i = 0; i < length; i++)
    sum += *(a + i);
  return sum;
}
/* function to sum the elements of an array */
function to sum the elements of an array
function to sum the elements of an array
double Sum_array(int const length, double *a) {
  double sum = 0.0;
  for (int i = 0; i < length; i++)
    sum += *(a + i);
  return sum;
}
double Sum_array ( int const length , double * a ) { double sum = 0.0 ; for ( int i = 0 ; i < length ; i ++ ) sum += * ( a + i ) ; return sum ; }
function to sum the elements of an array
function to sum the elements of an array
// #pragma omp parallel for reduction(+ : sum)
