From a90633fe959942754469fe4e85c5e394f709fd8a Mon Sep 17 00:00:00 2001
From: Daniel Arndt <daniel.arndt@iwr.uni-heidelberg.de>
Date: Thu, 19 Jul 2018 19:00:34 +0200
Subject: [PATCH] Fix
 Utilities::MPI::compute_point_to_point_communication_pattern

---
 source/base/mpi.cc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/base/mpi.cc b/source/base/mpi.cc
index 81d3b3aaf5..88ab64ce44 100644
--- a/source/base/mpi.cc
+++ b/source/base/mpi.cc
@@ -198,10 +198,10 @@ namespace Utilities
         }
 
 #  if DEAL_II_MPI_VERSION_GTE(2, 2)
-      // Get a binary vector from the `destinations`
+      // Calculate the number of messages to send to each process
       std::vector<unsigned int> dest_vector(n_procs);
       for (const auto &el : destinations)
-        dest_vector[el] = 1;
+        ++dest_vector[el];
 
       // Find how many processes will send to this one
       // by reducing with sum and then scattering the
-- 
2.39.5