From ac1d0f837ddf219e599976bbd4ae7e8c04621efb Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Mon, 17 Feb 2020 10:56:47 -0600 Subject: [PATCH] Comment out diagnostic write statement. --- lib/ft8/ft8b.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/ft8/ft8b.f90 b/lib/ft8/ft8b.f90 index b72e70164..70040d1af 100644 --- a/lib/ft8/ft8b.f90 +++ b/lib/ft8/ft8b.f90 @@ -419,9 +419,9 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon, & nbadcrc=0 ! If we get this far: valid codeword, valid (i3,n3), nonquirky message. call get_ft8_tones_from_77bits(message77,itone) if(lsubtract) call subtractft8(dd0,itone,f1,xdt) - write(21,3001) nzhsym,npasses,nqsoprogress,ipass,iaptype,lsubtract, & - f1,xdt,msg37(1:22); flush(21) -3001 format(5i3,L3,f7.1,f7.2,2x,a22) +! write(21,3001) nzhsym,npasses,nqsoprogress,ipass,iaptype,lsubtract, & +! f1,xdt,msg37(1:22); flush(21) +!3001 format(5i3,L3,f7.1,f7.2,2x,a22) xsig=0.0 xnoi=0.0 do i=1,79