| 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 |
|
|