From f7b9f4493df6e5e47ea166ec0e18b9298c07744c Mon Sep 17 00:00:00 2001
From: Guilhem Lavaux <lavaux@iap.fr>
Date: Fri, 29 Jan 2016 14:57:55 +0100
Subject: [PATCH] Clear IOStream error bits to allow I/O operations again

---
 external/cosmotool/src/fortran.cpp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/external/cosmotool/src/fortran.cpp b/external/cosmotool/src/fortran.cpp
index 679f409..716d57b 100644
--- a/external/cosmotool/src/fortran.cpp
+++ b/external/cosmotool/src/fortran.cpp
@@ -78,6 +78,7 @@ int64_t UnformattedRead::position() const
 
 void UnformattedRead::seek(int64_t pos)
 {
+  f->clear();
   f->seekg(pos, istream::beg);
   checkPointRef = checkPointAccum = 0;
 }