w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix a bounds error.

Browse Source
This commit is contained in:
Steven Franke 2022-03-02 11:15:59 -06:00 committed by Joe Taylor
parent c952bee07e
commit 283d7d32e4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft8_decode.f90
View File

@ -253,7 +253,7 @@ contains
index(grid4,'-').gt.0) grid4=' ' index(grid4,'-').gt.0) grid4=' '
xdt=dt0(i,jseq,0) xdt=dt0(i,jseq,0)
f1=f0(i,jseq,0) f1=f0(i,jseq,0)
xbase=10.0**(0.1*(sbase(nint(f1/3.125))-40.0)) xbase=10.0**(0.1*(sbase(max(1,nint(f1/3.125)))-40.0))
msg37=' ' msg37=' '
call timer('ft8_a7d ',0) call timer('ft8_a7d ',0)
call ft8_a7d(dd,newdat,call_1,call_2,grid4,xdt,f1,xbase,nharderrors, & call ft8_a7d(dd,newdat,call_1,call_2,grid4,xdt,f1,xbase,nharderrors, &