htrdr

commit 1f715f0f841197633d0f201513395e3b3941455e
parent ba238c823df8b7dfefa3eb9c0a8fcdbad1114106
Author: Vincent Forest <vincent.forest@meso-star.com>
Date:   Tue, 23 Oct 2018 09:38:27 +0200

Early stop non master processes in "dump VTK" mode

Diffstat:
M
src/htrdr_main.c
 | 
11
+++++++----

1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/src/htrdr_main.c b/src/htrdr_main.c
@@ -34,10 +34,7 @@ main(int argc, char** argv)
 
   err = MPI_Init(&argc, &argv);
   if(err != MPI_SUCCESS) {
-    char str[MPI_MAX_ERROR_STRING];
-    int i;
-    CHK(MPI_Error_string(err, str, &i) == MPI_SUCCESS);
-    fprintf(stderr, "Error initializing MPI -- %s.\n", str);
+    fprintf(stderr, "Error initializing MPI.\n");
     goto error;
   }
 
@@ -45,6 +42,12 @@ main(int argc, char** argv)
   if(res != RES_OK) goto error;
   if(args.quit) goto exit;
 
+  if(args.dump_vtk) {
+    int rank;
+    CHK(MPI_Comm_rank(MPI_COMM_WORLD, &rank) == MPI_SUCCESS);
+    if(rank != 0) goto exit; /* Nothing to do except for the master process */
+  }
+
   res = htrdr_init(NULL, &args, &htrdr);
   if(res != RES_OK) goto error;
   is_htrdr_init = 1;