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

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

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