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

This commit is contained in:
Joe Taylor 2018-12-19 12:17:52 -05:00
parent e74c1b942a
commit e2a73751b1

View File

@ -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)