mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-12-24 11:40:31 -05:00
Don't execute Fox-related statements when not in Fox Mode. Protect against a bounds error.
This commit is contained in:
parent
e74c1b942a
commit
e2a73751b1
@ -517,6 +517,7 @@ contains
|
||||
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')
|
||||
|
||||
if(ncontest.eq.5) then
|
||||
i1=index(decoded0,' ')
|
||||
i2=i1 + index(decoded0(i1+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
|
||||
n30z=n30
|
||||
n30=n30+nwrap
|
||||
nfox=nfox+1
|
||||
if(nfox.lt.MAXFOX) nfox=nfox+1
|
||||
c2fox(nfox)=c2
|
||||
g2fox(nfox)=g2
|
||||
nsnrfox(nfox)=snr
|
||||
@ -547,6 +548,7 @@ contains
|
||||
n30fox(nfox)=n30
|
||||
endif
|
||||
endif
|
||||
endif
|
||||
|
||||
call flush(6)
|
||||
call flush(13)
|
||||
|
Loading…
Reference in New Issue
Block a user