From a98e1d7f37b62e372877f1e3772aff9ca7ce43bf Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 15 Feb 2019 09:55:27 -0500 Subject: [PATCH] Minor code cleanup. --- lib/ft4/ft4_downsample.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/lib/ft4/ft4_downsample.f90 b/lib/ft4/ft4_downsample.f90 index 37b4fbc29..ca5991346 100644 --- a/lib/ft4/ft4_downsample.f90 +++ b/lib/ft4/ft4_downsample.f90 @@ -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