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