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

Protect against NaN in savg() after switch from Q65 to JT65 mode.

Browse Source
This commit is contained in:
Joe Taylor 2021-10-19 10:01:47 -04:00
parent 226c59982b
commit 089e0b9ebe
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/jt65_decode.f90
View File

@ -162,6 +162,7 @@ contains
ib=min(NSZ,nint((nfb+100)/df)) ib=min(NSZ,nint((nfb+100)/df))
nz=ib-ia+1 nz=ib-ia+1
if(nz.lt.50) go to 900 if(nz.lt.50) go to 900
if(isnan(sum(savg(ia:ia+nz-1)))) go to 900
call lorentzian(savg(ia),nz,a) call lorentzian(savg(ia),nz,a)
baseline=a(1) baseline=a(1)
amp=a(2) amp=a(2)