From e9551b7f10641c4b06c11883a8a8717495dc6e91 Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Sun, 1 Apr 2018 18:16:26 +0200
Subject: [PATCH] fix subtractft8

---
 subtractft8.f90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/subtractft8.f90 b/subtractft8.f90
index ee31679..26879b9 100644
--- a/subtractft8.f90
+++ b/subtractft8.f90
@@ -20,8 +20,13 @@ subroutine subtractft8(dd,itone,f0,dt)
   common/heap8/cref(NFRAME),camp(NMAX),cfilt(NMAX),cw(NMAX)
   save first
 
+  if(f0.lt.3000.0) then
+    f=f0+3000.0
+  else
+    f=f0-3000.0
+  endif
   nstart=dt*6000+1
-  call genft8refsig(itone,cref,f0)
+  call genft8refsig(itone,cref,f)
   camp=0.
   do i=1,nframe
     id=nstart-1+i