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