w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-02 22:22:33 -04:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'release-2.2.0' of bitbucket.org:k1jt/wsjtx into release-2.2.0

Browse Source
This commit is contained in:
Bill Somerville 2020-06-01 16:48:01 +01:00
commit 6af862c054
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/jt65_decode.f90
View File

@ -176,8 +176,8 @@ contains
endif endif
df=12000.0/8192.0 !df = 1.465 Hz df=12000.0/8192.0 !df = 1.465 Hz
if(bVHF) then if(bVHF) then
ia=max(1,nint(nfa/df)-ntol) ia=max(1,nint((nfa-100)/df))
ib=min(NSZ,nint(nfb/df)+ntol) ib=min(NSZ,nint((nfb+100)/df))
nz=ib-ia+1 nz=ib-ia+1
call lorentzian(savg(ia),nz,a) call lorentzian(savg(ia),nz,a)
baseline=a(1) baseline=a(1)