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

Must age the houndcallers by one Rx sequence even if no decodes. Fix the UTC wraparound for computing ages of houndcallers.

Browse Source
This commit is contained in:
Joe Taylor 2024-06-23 19:52:54 -04:00
parent ec712007d9
commit a3b5b6b2ab
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lib/decoder.f90
View File

@ -169,14 +169,17 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
params%ndiskdat) params%ndiskdat)
call timer('decft8 ',1) call timer('decft8 ',1)
endif endif
if(nfox.gt.0) then
n30min=minval(n30fox(1:nfox))
n30max=maxval(n30fox(1:nfox))
endif
j=0 j=0
if(ncontest.eq.6) then if(ncontest.eq.6) then
! Fox mode: save decoded Hound calls for possible selection by FoxOp ! Fox mode: save decoded Hound calls for possible selection by FoxOp
n=params%nutc
n30=(3600*(n/10000) + 60*mod((n/100),100) + mod(n,100))/30
if(n30.lt.n30z) nwrap=nwrap+2880 !New UTC day, handle the wrap
n30z=n30
n30=n30+nwrap
rewind 19 rewind 19
if(nfox.eq.0) then if(nfox.eq.0) then
endfile 19 endfile 19
@ -184,21 +187,21 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
else else
do i=1,nfox do i=1,nfox
n=n30fox(i) n=n30fox(i)
if(n30max-n30fox(i).le.4) then if(n30-n30fox(i).le.4) then
j=j+1 j=j+1
c2fox(j)=c2fox(i) c2fox(j)=c2fox(i)
g2fox(j)=g2fox(i) g2fox(j)=g2fox(i)
nsnrfox(j)=nsnrfox(i) nsnrfox(j)=nsnrfox(i)
nfreqfox(j)=nfreqfox(i) nfreqfox(j)=nfreqfox(i)
n30fox(j)=n n30fox(j)=n
m=n30max-n nage=n30-n
if(len(trim(g2fox(j))).eq.4) then if(len(trim(g2fox(j))).eq.4) then
call azdist(mygrid,g2fox(j)//' ',0.d0,nAz,nEl,nDmiles, & call azdist(mygrid,g2fox(j)//' ',0.d0,nAz,nEl,nDmiles, &
nDkm,nHotAz,nHotABetter) nDkm,nHotAz,nHotABetter)
else else
nDkm=9999 nDkm=9999
endif endif
write(19,1004) c2fox(j),g2fox(j),nsnrfox(j),nfreqfox(j),nDkm,m write(19,1004) c2fox(j),g2fox(j),nsnrfox(j),nfreqfox(j),nDkm,nage
1004 format(a12,1x,a4,i5,i6,i7,i3) 1004 format(a12,1x,a4,i5,i6,i7,i3)
endif endif
enddo enddo
@ -680,7 +683,7 @@ contains
if(b0 .and. (b1.or.b2) .and. (nint(freq).ge.1000 .or. params%b_superfox)) then if(b0 .and. (b1.or.b2) .and. (nint(freq).ge.1000 .or. params%b_superfox)) then
n=params%nutc n=params%nutc
n30=(3600*(n/10000) + 60*mod((n/100),100) + mod(n,100))/30 n30=(3600*(n/10000) + 60*mod((n/100),100) + mod(n,100))/30
if(n30.lt.n30z) nwrap=nwrap+5760 !New UTC day, handle the wrap if(n30.lt.n30z) nwrap=nwrap+2880 !New UTC day, handle the wrap
n30z=n30 n30z=n30
n30=n30+nwrap n30=n30+nwrap
if(nfox.lt.MAXFOX) nfox=nfox+1 if(nfox.lt.MAXFOX) nfox=nfox+1