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