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