From c4f4e9d7bd2916d1c801026c85bc38ac69de4d6b Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 12 Dec 2017 20:33:44 +0000
Subject: [PATCH] Remove some diagnostics.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8318 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/ft8/foxgen.f90 | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/lib/ft8/foxgen.f90 b/lib/ft8/foxgen.f90
index 964d5da2c..5a9e37bf4 100644
--- a/lib/ft8/foxgen.f90
+++ b/lib/ft8/foxgen.f90
@@ -131,15 +131,14 @@ subroutine foxgen()
   peak3=maxval(abs(wave))
   wave=wave/peak3
 
-  nadd=1000
-  print*,nwave,nadd,nwave/nadd,peak3
-  j=0
-  do i=1,NWAVE,nadd
-     sx=dot_product(wave(i:i+nadd-1),wave(i:i+nadd-1))
-     j=j+1
-     write(30,3001) j,sx/nadd
-3001 format(i8,f12.6)
-  enddo
+!  nadd=1000
+!  j=0
+!  do i=1,NWAVE,nadd
+!     sx=dot_product(wave(i:i+nadd-1),wave(i:i+nadd-1))
+!     j=j+1
+!     write(30,3001) j,sx/nadd
+!3001 format(i8,f12.6)
+!  enddo
 
   call plotspec(3,wave)          !Plot the spectrum