From a3f5c1a1008862ca57f3af5246887c304e1661dd Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 21 Dec 2018 10:08:15 -0500
Subject: [PATCH] Do a "close(10)" only if we're in Fox mode.

---
 lib/decoder.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index f63bde44f..218a6cbf7 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -263,7 +263,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
 1010 format('<DecodeFinished>',2i4)
   call flush(6)
   close(13)
-  close(19)
+  if(ncontest.eq.5) close(19)
   if(params%nmode.eq.4 .or. params%nmode.eq.65) close(14)
 
   return