From 4425a5aad93e51de6fd5a142e2ad51763b229211 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Wed, 8 Jun 2016 21:25:11 +0000
Subject: [PATCH] Remove diagnostic print.

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

diff --git a/lib/fast_decode.f90 b/lib/fast_decode.f90
index 6d8aadc8f..47f527cb9 100644
--- a/lib/fast_decode.f90
+++ b/lib/fast_decode.f90
@@ -8,11 +8,15 @@ subroutine fast_decode(id2,narg,line)
   real psavg(450)
   logical pick
   character*6 cfile6
-  character*80 line(100),pchk_file
+  character*80 line(100)
+  character*80 pchk_file,gen_file
   save npts
 
   pchk_file=line(1)
-  print*,pchk_file
+  i=index(pchk_file,".pchk")
+  gen_file=pchk_file(1:i-1)//".gen"
+!  print*,pchk_file
+!  print*,gen_file
 
   nutc=narg(0)
   ndat0=narg(1)