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

Correct for UTC wrap-around in setting Hound 'Age'. Max Age = 99.

Browse Source
This commit is contained in:
Joe Taylor 2024-07-17 16:36:47 -04:00
parent b0bd2b6310
commit 867d2fe1d9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/decoder.f90
View File

@ -194,14 +194,15 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
nsnrfox(j)=nsnrfox(i) nsnrfox(j)=nsnrfox(i)
nfreqfox(j)=nfreqfox(i) nfreqfox(j)=nfreqfox(i)
n30fox(j)=n n30fox(j)=n
nage=n30-n nage=min(99,mod(n30-n+288000,2880))
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,nage 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