Do a "close(10)" only if we're in Fox mode.

This commit is contained in:
Joe Taylor 2018-12-21 10:08:15 -05:00
parent c1b1daf9db
commit a3f5c1a100

View File

@ -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