From 285c5b738ab30c1460b6af9a9abc63f7e0021cc0 Mon Sep 17 00:00:00 2001
From: Adrian Pope <adrianpope@gmail.com>
Date: Thu, 25 Jun 2020 00:45:10 -0500
Subject: [PATCH] fixes for rank0 file create case
---
GenericIO.cxx | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/GenericIO.cxx b/GenericIO.cxx
index b3cb882..4082cfe 100644
--- a/GenericIO.cxx
+++ b/GenericIO.cxx
@@ -518,6 +518,11 @@ void GenericIO::write() {
LocalFileName = FileName;
}
+#ifndef GENERICIO_NO_MPI
+ if(Rank0CreateAll && NRanks > 1)
+ MPI_Barrier(Comm);
+#endif
+
RankHeader<IsBigEndian> RHLocal;
int Dims[3], Periods[3], Coords[3];
@@ -797,7 +802,7 @@ nocomp:
setFH(MPI_COMM_SELF);
- FH.get()->open(LocalFileName, false, Rank0CreateAll);
+ FH.get()->open(LocalFileName, false, Rank0CreateAll && NRanks>1);
FH.get()->setSize(FileSize);
FH.get()->write(&Header[0], HeaderSize, 0, "header");
--
GitLab