From 55fde76d597fbda9f105f165a8cbb637eb07ca77 Mon Sep 17 00:00:00 2001
From: Axel Kohlmeyer <akohlmey@gmail.com>
Date: Mon, 16 Dec 2019 07:22:41 -0500
Subject: [PATCH] may only close files on MPI ranks that have a file reader
 instance

---
 src/read_dump.cpp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/read_dump.cpp b/src/read_dump.cpp
index dd9395c092..c61c467a59 100644
--- a/src/read_dump.cpp
+++ b/src/read_dump.cpp
@@ -434,8 +434,9 @@ bigint ReadDump::next(bigint ncurrent, bigint nlast, int nevery, int nskip)
   // all filereader procs close all their files and return
 
   if (ntimestep < 0) {
-    for (int i = 0; i < nreader; i++)
-      readers[i]->close_file();
+    if (filereader)
+      for (int i = 0; i < nreader; i++)
+        readers[i]->close_file();
     return ntimestep;
   }