From 58731f8caab24963ac69349b3009bc3b78ae6308 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 1 May 2018 17:14:21 +0000 Subject: [PATCH] LU=19 shound be opened even if nagain is true; otherwise it will try to write in the exe directory. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8646 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/decoder.f90 | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) diff --git a/lib/decoder.f90 b/lib/decoder.f90 index faafe6277..74434fab0 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -56,20 +56,21 @@ subroutine multimode_decoder(ss,id2,params,nfsample) position='append',iostat=ios) else open(13,file=trim(temp_dir)//'/decoded.txt',status='unknown',iostat=ios) - if(params%nmode.eq.8) then - inquire(file=trim(temp_dir)//'/houndcallers.txt',exist=ex) - if(.not.ex) then - c2fox=' ' - g2fox=' ' - nsnrfox=-99 - nfreqfox=-99 - n30z=0 - nwrap=0 - nfox=0 - endif - open(19,file=trim(temp_dir)//'/houndcallers.txt',status='unknown') - endif endif + if(params%nmode.eq.8) then + inquire(file=trim(temp_dir)//'/houndcallers.txt',exist=ex) + if(.not.ex) then + c2fox=' ' + g2fox=' ' + nsnrfox=-99 + nfreqfox=-99 + n30z=0 + nwrap=0 + nfox=0 + endif + open(19,file=trim(temp_dir)//'/houndcallers.txt',status='unknown') + endif + if(ios.ne.0) then nfail=nfail+1 if(nfail.le.3) then