CarpetLib: Initialise Carpet's MPI communicator with an arbitrary communicator

Initialise Carpet's MPI communicator not with MPI_COMM_WORLD, but with
a communicator that is passed in.

darcs-hash:20050825084335-891bb-38744ff9cbfb5349e34676897dba3356ef7e462e.gz

1 files changed, 3 insertions, 3 deletions

diff --git a/Carpet/CarpetLib/src/dist.cc b/Carpet/CarpetLib/src/dist.cc
index 353f4929b..7bb09c0ae 100644
--- a/Carpet/CarpetLib/src/dist.cc
+++ b/Carpet/CarpetLib/src/dist.cc
@@ -29,11 +29,11 @@ namespace dist {
   
   void init (int& argc, char**& argv) {
     MPI_Init (&argc, &argv);
-    pseudoinit();
+    pseudoinit (MPI_COMM_WORLD);
   }
   
-  void pseudoinit () {
-    comm = MPI_COMM_WORLD;
+  void pseudoinit (MPI_Comm const c) {
+    comm = c;
     
 #if 0
     MPI_Type_contiguous (2, MPI_FLOAT, &mpi_complex_float);