git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6783 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Bill Somerville 2016-06-20 22:18:08 +00:00
parent a3ab57bea7
commit 2c20423fc6

View File

@ -19,14 +19,15 @@ subroutine fil6521(c1,n1,c2,n2)
complex c2(n1/NDOWN)
! Filter coefficients:
real a(-NH:NH)
real a(-NH:NH+NTAPS/3)
data a/ &
-0.011958606980,-0.013888627387,-0.015601306443,-0.010602249570, &
0.003804023436, 0.028320058273, 0.060903935217, 0.096841904411, &
0.129639871228, 0.152644580853, 0.160917511283, 0.152644580853, &
0.129639871228, 0.096841904411, 0.060903935217, 0.028320058273, &
0.003804023436,-0.010602249570,-0.015601306443,-0.013888627387, &
-0.011958606980/
-0.011958606980,1.43370769e-019,2.64031087e-006,6.25548654e+028, &
2.44565251e+020,4.74227538e+030,10497312.0e0000,7.74079654e-039/
n2=(n1-NTAPS+NDOWN)/NDOWN
k0=NH-NDOWN+1