Fix along the lines of discussion in #1621

McStasMcXtrace · Sep 13, 2024 · 7422d37 · 7422d37
1 parent 4627ee0
commit 7422d37
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/mcxtrace-comps/misc/MCPL_output.comp b/mcxtrace-comps/misc/MCPL_output.comp
@@ -348,6 +348,15 @@ SAVE
 
 FINALLY
 %{
+#ifdef USE_MPI
+  if (merge_mpi && mpi_node_count > 1) {
+    mcpl_close_outfile(outputfile);
+  } else {
+    mcpl_closeandgzip_outfile(outputfile);
+  }
+#else
+  mcpl_closeandgzip_outfile(outputfile);
+#endif
 #ifdef USE_MPI
  MPI_Barrier(MPI_COMM_WORLD);
  MPI_MASTER(
@@ -390,15 +399,6 @@ FINALLY
     }
   );
 #endif
-#ifdef USE_MPI
-  if (merge_mpi && mpi_node_count > 1) {
-    mcpl_close_outfile(outputfile);
-  } else {
-    mcpl_closeandgzip_outfile(outputfile);
-  }
-#else
-  mcpl_closeandgzip_outfile(outputfile);
-#endif
 %}
 
 MCDISPLAY