From b767b2adb08731c55b786bf7d55fb6c8d335074b Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Wed, 21 Aug 2019 08:39:38 -0500 Subject: [PATCH] Change MPI_REAL8 -> MPI_DOUBLE in state_point.cpp (Thanks to Cliff Dugal, CNL) --- src/state_point.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/state_point.cpp b/src/state_point.cpp index 6ea666fde2..7239f3284f 100644 --- a/src/state_point.cpp +++ b/src/state_point.cpp @@ -742,7 +742,7 @@ void write_tally_results_nr(hid_t file_id) } else { // Receive buffer not significant at other processors #ifdef OPENMC_MPI - MPI_Reduce(values.data(), nullptr, values.size(), MPI_REAL8, MPI_SUM, + MPI_Reduce(values.data(), nullptr, values.size(), MPI_DOUBLE, MPI_SUM, 0, mpi::intracomm); #endif }