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

Adjust analysis window when single-decode is checked.

Browse Source
This commit is contained in:
Steven Franke 2020-06-26 08:40:01 -05:00
parent 37d5af9311
commit 2cfe0513bb
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/fst280_decode.f90
View File

@ -105,8 +105,8 @@ contains
npts=nmax
if(single_decode) then
fa=max(100,nfqso-ntol)
fb=min(4800,nfqso+ntol)
fa=max(100,nint(nfqso+1.5*hmod*baud-ntol))
fb=min(4800,nint(nfqso+1.5*hmod*baud+ntol))
else
fa=max(100,nfa)
fb=min(4800,nfb)
@ -243,6 +243,7 @@ contains
fc_synced=candidates(icand,3)
isbest=nint(candidates(icand,4))
xdt=(isbest-nspsec)/fs2
call fst280_downsample(c_bigfft,nfft1,ndown,fc_synced,c2)
do ijitter=0,jittermax
@ -520,8 +521,8 @@ contains
s(i)=s(i) + real(c_bigfft(j))**2 + aimag(c_bigfft(j))**2
enddo
enddo
if(ina-hmod*3.lt.1) ina=1+hmod*3
if(inb+hmod*3.gt.18000) inb=18000-hmod*3
ina=max(ina,1+3*hmod)
inb=min(inb,18000-3*hmod)
s2=0.
do i=ina,inb
s2(i)=s(i-hmod*3) + s(i-hmod) +s(i+hmod) +s(i+hmod*3)