w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-31 13:10:19 -04:00
Code Issues Packages Projects Releases Wiki Activity

FT8: Fix jt9 crash when nagain is invoked.

Browse Source
This commit is contained in:
Steven Franke 2020-12-25 12:22:25 -06:00
parent b26d29dd1e
commit 27bf7bb964
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/ft8/get_spectrum_baseline.f90
View File

@ -35,8 +35,19 @@ subroutine get_spectrum_baseline(dd,nfa,nfb,sbase)
savg=savg + s(1:NH1,j) !Average spectrum savg=savg + s(1:NH1,j) !Average spectrum
enddo enddo
if(nfa.lt.100) nfa=100 nwin=nfb-nfa
if(nfb.gt.4910) nfb=4910 if(nfa.lt.100) then
nfa=100
if(nwin.lt.100) then ! nagain
nfb=nfa+nwin
endif
endif
if(nfb.gt.4910) then
nfb=4910
if(nwin.lt.100) then
nfa=nfb-nwin
endif
endif
call baseline(savg,nfa,nfb,sbase) call baseline(savg,nfa,nfb,sbase)
return return