message: only print mpi init warning on rank 0
diff: @@ -270,6 +270,10 @@ static void MpiInitialize()
  }
  if (provided != MPI_THREAD_MULTIPLE)
  + {
  + int rank;
  + MPI_Comm_rank(MPI_COMM_WORLD, &rank);
  + if (!rank)
  {
  fprintf(stderr,
  "MPI init without MPI_THREAD_MULTIPLE (Externally "
  @@ -277,6 +281,7 @@ static void MpiInitialize()
  IsInitialized ? "true" : "false");
  }
  }
  +}
  /*****Public accessible functions********************************************/
  