| 1 | 
– | 
#include "config.h" | 
| 2 | 
– | 
#include "optimization/Problem.hpp" | 
| 3 | 
– | 
 | 
| 1 | 
  | 
#ifdef IS_MPI | 
| 2 | 
  | 
#include <mpi.h> | 
| 3 | 
  | 
#endif | 
| 4 | 
  | 
 | 
| 5 | 
+ | 
#include "config.h" | 
| 6 | 
+ | 
#include "optimization/Problem.hpp" | 
| 7 | 
  | 
 | 
| 8 | 
  | 
namespace QuantLib { | 
| 9 | 
  | 
  RealType Problem::DotProduct(DynamicVector<RealType>& v1,  | 
| 12 | 
  | 
#ifdef IS_MPI | 
| 13 | 
  | 
    // in parallel, we need to add up the contributions from all | 
| 14 | 
  | 
    // processors: | 
| 15 | 
< | 
    MPI::COMM_WORLD.Allreduce(MPI::IN_PLACE, &dp, 1, MPI::REALTYPE,  | 
| 16 | 
< | 
                              MPI::SUM); | 
| 15 | 
> | 
    MPI_Allreduce(MPI_IN_PLACE, &dp, 1, MPI_REALTYPE,  | 
| 16 | 
> | 
                  MPI_SUM, MPI_COMM_WORLD); | 
| 17 | 
  | 
#endif | 
| 18 | 
  | 
    return dp;     | 
| 19 | 
  | 
  } | 
| 24 | 
  | 
#ifdef IS_MPI | 
| 25 | 
  | 
    // in parallel, we need to add up the contributions from all | 
| 26 | 
  | 
    // processors: | 
| 27 | 
< | 
    MPI::COMM_WORLD.Allreduce(MPI::IN_PLACE, &dot, 1, MPI::REALTYPE,  | 
| 28 | 
< | 
                              MPI::SUM); | 
| 27 | 
> | 
    MPI_Allreduce(MPI_IN_PLACE, &dot, 1, MPI_REALTYPE,  | 
| 28 | 
> | 
                  MPI_SUM, MPI_COMM_WORLD); | 
| 29 | 
  | 
#endif | 
| 30 | 
  | 
    return dot; | 
| 31 | 
  | 
 |