more MPI_COMM_WORLD which where forgotten

Author: Roman Gruber

src/lib/io/utils_kill_with_error.c

@@ -14,7 +14,7 @@ void kill_with_error(LIME_FILE *fh, int const rank, char const *error) {
 #endif /* TM_USE_LEMON */
 
 #ifdef TM_USE_MPI
-  MPI_Abort(MPI_COMM_WORLD, 1);
+  MPI_Abort(app()->mpi.comm, 1);
   MPI_Finalize();
 #endif
   exit(500);

src/lib/mpi_init.c

@@ -189,7 +189,7 @@ void tmlqcd_mpi_init(int argc, char *argv[]) {
 
 #ifdef TM_USE_MPI
 #ifdef TM_USE_SHMEM
-  /* we need that the PE number in MPI_COMM_WORL  */
+  /* we need that the PE number in MPI_COMM_WORLD  */
   /* exactly correspond to the one in g_cart_grid */
   reorder = 0;
 #endif

src/lib/test/measure_rectangles.debug.c

@@ -131,7 +131,7 @@ double measure_rectangles() {
   fclose(debugfile);
   ga = (kc + ks) / 3.0;
 #ifdef TM_USE_MPI
-  MPI_Allreduce(&ga, &gas, 1, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);
+  MPI_Allreduce(&ga, &gas, 1, MPI_DOUBLE, MPI_SUM, app()->mpi.comm);
   return gas;
 #else
   return ga;