From cbb3bb23444af6c8ef2c5569a04bf4e48d5d75d1 Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Mon, 2 Apr 2018 21:09:25 +0200
Subject: [PATCH] set NFILT to 700 in subtractft8.f90

---
 subtractft8.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/subtractft8.f90 b/subtractft8.f90
index 6f6ec88..67aed84 100644
--- a/subtractft8.f90
+++ b/subtractft8.f90
@@ -10,7 +10,7 @@ subroutine subtractft8(dd,itone,f0,dt)
   use timer_module, only: timer
 
   parameter (NMAX=15*4000,NFRAME=640*79)
-  parameter (NFFT=NMAX,NFILT=1400)
+  parameter (NFFT=NMAX,NFILT=700)
   real*4 window(-NFILT/2:NFILT/2)
   complex dd(NMAX)
   complex cref,camp,cfilt,cw