w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-28 04:12:32 -04:00
Code Issues Packages Projects Releases Wiki Activity

Need to accommodate cases where radio's filter cuts off steeply above 240 or

Browse Source 
below 4000 Hz.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6613 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-04-12 13:47:34 +00:00
parent 592625c4bb
commit 2babc3c9c7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/refspectrum.f90
View File

@ -62,14 +62,16 @@ subroutine refspectrum(id2,brefspec,buseref,fname)
endif
enddo
! Modify these if spectrum falls off steeply inside these stated bounds:
ia=nint(240.0/df)
ib=nint(4000.0/df)
fac=fac0
do i=ia,1,-1
fac=fac*fac0
fil(i)=fac*fil(i)
enddo
ib=nint(4000.0/df)
fac=fac0
do i=ib,NH
fac=fac*fac0