From fc5e10fc08882a354dc7669e3eb5a7782dd65346 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 20 Jul 2017 19:25:08 +0000
Subject: [PATCH] Comment out diagnostic write.

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

diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90
index 0cfe51c59..2c6bdd054 100644
--- a/lib/ft8_decode.f90
+++ b/lib/ft8_decode.f90
@@ -87,10 +87,10 @@ contains
            call jtmsg(message,iflag)
            if(iand(iflag,16).ne.0) message(22:22)='?'
            if(iand(iflag,15).eq.0) then
-              write(81,1004) nutc,ncand,icand,ipass,iaptype,iap,iera,       &
-                   iflag,nharderrors,dmin,hd,min(sync,999.0),nint(xsnr),    &
-                   xdt,nint(f1),message
-              flush(81)
+!              write(81,1004) nutc,ncand,icand,ipass,iaptype,iap,iera,       &
+!                   iflag,nharderrors,dmin,hd,min(sync,999.0),nint(xsnr),    &
+!                   xdt,nint(f1),message
+!              flush(81)
               if(associated(this%callback)) then
                  call this%callback(sync,nsnr,xdt,f1,iap,iera,message)
               endif