Minor code cleanup.

This commit is contained in:
Joe Taylor 2019-02-15 09:55:27 -05:00
parent 41c22b0153
commit a98e1d7f37

View File

@ -25,7 +25,6 @@ subroutine ft4_downsample(iwave,f0,c)
pi=4.0*atan(1.0)
window(0:iwt-1) = 0.5*(1+cos(pi*(/(i,i=iwt-1,0,-1)/)/iwt))
window(iwt:iwt+iwf-1)=1.0
! window(iwt+iwf:2*iwt+iwf-1) = 0.5*(1+cos(pi*(/(i,i=0,iwt)/)/iwt))
window(iwt+iwf:2*iwt+iwf-1) = 0.5*(1+cos(pi*(/(i,i=0,iwt-1)/)/iwt))
window(2*iwt+iwf:)=0.0
iws = baud / df