htrdr

commit 85ecaa9df430539c601d18b63a6524e4af49d69b
parent e45ac338be82686bbf0d410ff2f40c2e694f9688
Author: Vincent Forest <vincent.forest@meso-star.com>
Date:   Tue,  7 Apr 2020 15:44:41 +0200

Open an output file only for the process of rank 0

Diffstat:
M
src/htrdr.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/htrdr.c b/src/htrdr.c
@@ -502,7 +502,7 @@ htrdr_init
   if(!args->output) {
     htrdr->output = stdout;
     output_name = "<stdout>";
-  } else {
+  } else if(htrdr->mpi_rank == 0) {
     res = open_output_stream
       (htrdr, args->output, 0/*read*/, args->force_overwriting, &htrdr->output);
     if(res != RES_OK) goto error;