Tweak the downsample filter bandwidth.

This commit is contained in:
Steven Franke 2020-05-04 13:09:05 -05:00
parent d3f8793578
commit c3ba4178e6

View File

@ -324,7 +324,7 @@ subroutine downsample_ft280(ci,f0,hmod,co)
co=0.0 co=0.0
co(0)=ct(0) co(0)=ct(0)
! b=16.0*hmod ! b=16.0*hmod
b=10.0*hmod b=16.0*hmod
icutoff=nint(24.0/df) icutoff=nint(24.0/df)
do i=1,NO/2 do i=1,NO/2
! arg=(i*df/b)**2 ! arg=(i*df/b)**2