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