w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -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 npts=nmax
if(single_decode) then if(single_decode) then
fa=max(100,nfqso-ntol) fa=max(100,nint(nfqso+1.5*hmod*baud-ntol))
fb=min(4800,nfqso+ntol) fb=min(4800,nint(nfqso+1.5*hmod*baud+ntol))
else else
fa=max(100,nfa) fa=max(100,nfa)
fb=min(4800,nfb) fb=min(4800,nfb)
@ -243,6 +243,7 @@ contains
fc_synced=candidates(icand,3) fc_synced=candidates(icand,3)
isbest=nint(candidates(icand,4)) isbest=nint(candidates(icand,4))
xdt=(isbest-nspsec)/fs2 xdt=(isbest-nspsec)/fs2
call fst280_downsample(c_bigfft,nfft1,ndown,fc_synced,c2) call fst280_downsample(c_bigfft,nfft1,ndown,fc_synced,c2)
do ijitter=0,jittermax do ijitter=0,jittermax
@ -520,8 +521,8 @@ contains
s(i)=s(i) + real(c_bigfft(j))**2 + aimag(c_bigfft(j))**2 s(i)=s(i) + real(c_bigfft(j))**2 + aimag(c_bigfft(j))**2
enddo enddo
enddo enddo
if(ina-hmod*3.lt.1) ina=1+hmod*3 ina=max(ina,1+3*hmod)
if(inb+hmod*3.gt.18000) inb=18000-hmod*3 inb=min(inb,18000-3*hmod)
s2=0. s2=0.
do i=ina,inb do i=ina,inb
s2(i)=s(i-hmod*3) + s(i-hmod) +s(i+hmod) +s(i+hmod*3) s2(i)=s(i-hmod*3) + s(i-hmod) +s(i+hmod) +s(i+hmod*3)