From a7b7c19f8899e3481fb0b5973ee2a742e0277f04 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Fri, 28 Jul 2017 15:35:17 +0000 Subject: [PATCH] Comment out diagnostic write to lun 81. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7968 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 de3dad5ba..b80ab60e9 100644 --- a/lib/ft8_decode.f90 +++ b/lib/ft8_decode.f90 @@ -103,10 +103,10 @@ contains allmessages(ndecodes)=message allsnrs(ndecodes)=nsnr endif - write(81,1004) nutc,ncand,icand,ipass,iaptype,iappass, & - iflag,nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), & - xdt,nint(f1),message - flush(81) +! write(81,1004) nutc,ncand,icand,ipass,iaptype,iappass, & +! iflag,nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), & +! xdt,nint(f1),message +! flush(81) if(.not.ldupe .and. associated(this%callback)) then qual=1.0-(nharderrors+dmin)/60.0 ! scale qual to [0.0,1.0] call this%callback(sync,nsnr,xdt,f1,message,iaptype,qual)