Fix block placement according to g5t comment in #1621

McStasMcXtrace · Sep 13, 2024 · 4627ee0 · 4627ee0
1 parent 6a10c9c
commit 4627ee0
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/mcstas-comps/misc/MCPL_output.comp b/mcstas-comps/misc/MCPL_output.comp
@@ -385,6 +385,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(
@@ -436,15 +445,6 @@ FINALLY
         free(mpi_node_files);
     }
   );
-#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
   if(verbose) {
     MPI_MASTER(