w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 06:32:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

BugFix: Rearrange code in decoder.f90, only Fox needs to open houndcallers.txt.

Browse Source
This commit is contained in:
Joe Taylor 2018-10-04 09:21:35 -04:00
parent 2f96a3ba9c
commit 35ea5f5761
1 changed files with 45 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lib/decoder.f90
View File

@ -67,7 +67,19 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
else else
open(13,file=trim(temp_dir)//'/decoded.txt',status='unknown',iostat=ios) open(13,file=trim(temp_dir)//'/decoded.txt',status='unknown',iostat=ios)
endif endif
if(ios.ne.0) then
nfail=nfail+1
if(nfail.le.3) then
call sleep_msec(10)
go to 10
endif
endif
if(params%nmode.eq.8) then if(params%nmode.eq.8) then
! We're in FT8 mode
if(ncontest.eq.5) then
! Fox mode: initialize and open houndcallers.txt
inquire(file=trim(temp_dir)//'/houndcallers.txt',exist=ex) inquire(file=trim(temp_dir)//'/houndcallers.txt',exist=ex)
if(.not.ex) then if(.not.ex) then
c2fox=' ' c2fox=' '
@ -81,16 +93,6 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
open(19,file=trim(temp_dir)//'/houndcallers.txt',status='unknown') open(19,file=trim(temp_dir)//'/houndcallers.txt',status='unknown')
endif endif
if(ios.ne.0) then
nfail=nfail+1
if(nfail.le.3) then
call sleep_msec(10)
go to 10
endif
endif
if(params%nmode.eq.8) then
! We're in FT8 mode
call timer('decft8 ',0) call timer('decft8 ',0)
newdat=params%newdat newdat=params%newdat
ncontest=iand(params%nexp_decode,7) ncontest=iand(params%nexp_decode,7)
@ -106,6 +108,9 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
n30max=maxval(n30fox(1:nfox)) n30max=maxval(n30fox(1:nfox))
endif endif
j=0 j=0
if(ncontest.eq.5) then
! Fox mode: save decoded Hound calls for possible selection by FoxOp
rewind 19 rewind 19
if(nfox.eq.0) then if(nfox.eq.0) then
endfile 19 endfile 19
@ -134,6 +139,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
nfox=j nfox=j
flush(19) flush(19)
endif endif
endif
go to 800 go to 800
endif endif