From ae19dcded2374ecfea7d5b2fccec88221c8be6ae Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Sat, 13 Oct 2018 22:32:59 +0200
Subject: [PATCH] remove NH1

---
 ft8_params.f90 | 2 +-
 sync8.f90      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ft8_params.f90 b/ft8_params.f90
index 4416519..6f510dc 100644
--- a/ft8_params.f90
+++ b/ft8_params.f90
@@ -6,7 +6,7 @@ parameter (NN=NS+ND)                  !Total channel symbols (79)
 parameter (NSPS=640)                  !Samples per symbol at 4000 S/s
 parameter (NZ=NSPS*NN)                !Samples in full 15 s waveform (50,560)
 parameter (NMAX=15*4000)              !Samples in iwave (60,000)
-parameter (NFFT1=2*NSPS, NH1=NFFT1/2) !Length of FFTs for symbol spectra
+parameter (NFFT1=2*NSPS)              !Length of FFTs for symbol spectra
 parameter (NSTEP=NSPS/4)              !Rough time-sync step size
 parameter (NHSYM=NMAX/NSTEP-3)        !Number of symbol spectra (1/4-sym steps)
 parameter (NDOWN=20)                  !Downsample factor
diff --git a/sync8.f90 b/sync8.f90
index f25de77..a499c9e 100644
--- a/sync8.f90
+++ b/sync8.f90
@@ -40,7 +40,7 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,s,candidate,ncand,sbase)
   enddo
   call baseline(savg,nfa,nfb,sbase)
 !  savg=savg/NHSYM
-!  do i=1,NH1
+!  do i=1,NFFT1
 !     write(51,3051) i*df,savg(i),db(savg(i))
 !3051 format(f10.3,e12.3,f12.3)
 !  enddo