w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05: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 committed by Bill Somerville
parent 4081be94e1
commit b51bda4806
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
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