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

Don't execute Fox-related statements when not in Fox Mode. Protect against a bounds error.

Browse Source
This commit is contained in:
Joe Taylor 2018-12-19 12:17:52 -05:00
parent e74c1b942a
commit e2a73751b1
1 changed files with 30 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/decoder.f90
View File

@ -517,6 +517,7 @@ contains
write(13,1002) params%nutc,nint(sync),snr,dt,freq,0,decoded0 write(13,1002) params%nutc,nint(sync),snr,dt,freq,0,decoded0
1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a37,' FT8') 1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a37,' FT8')
if(ncontest.eq.5) then
i1=index(decoded0,' ') i1=index(decoded0,' ')
i2=i1 + index(decoded0(i1+1:),' ') i2=i1 + index(decoded0(i1+1:),' ')
i3=i2 + index(decoded0(i2+1:),' ') i3=i2 + index(decoded0(i2+1:),' ')
@ -539,7 +540,7 @@ contains
if(n30.lt.n30z) nwrap=nwrap+5760 !New UTC day, handle the wrap if(n30.lt.n30z) nwrap=nwrap+5760 !New UTC day, handle the wrap
n30z=n30 n30z=n30
n30=n30+nwrap n30=n30+nwrap
nfox=nfox+1 if(nfox.lt.MAXFOX) nfox=nfox+1
c2fox(nfox)=c2 c2fox(nfox)=c2
g2fox(nfox)=g2 g2fox(nfox)=g2
nsnrfox(nfox)=snr nsnrfox(nfox)=snr
@ -547,6 +548,7 @@ contains
n30fox(nfox)=n30 n30fox(nfox)=n30
endif endif
endif endif
endif
call flush(6) call flush(6)
call flush(13) call flush(13)