diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90
index 2e6f36464..7c40c904c 100644
--- a/lib/ft8_decode.f90
+++ b/lib/ft8_decode.f90
@@ -140,11 +140,11 @@ contains
               allmessages(ndecodes)=msg37
               allsnrs(ndecodes)=nsnr
            endif
-           write(81,1004) nutc,ncand,icand,ipass,iaptype,iappass,        &
-                nharderrors,dmin,hd,min(sync,999.0),nint(xsnr),          &
-                xdt,nint(f1),msg37,isync
-1004          format(i6.6,2i4,3i2,i3,3f6.1,i4,f6.2,i5,2x,a37,i4)
-           flush(81)
+!           write(81,1004) nutc,ncand,icand,ipass,iaptype,iappass,        &
+!                nharderrors,dmin,hd,min(sync,999.0),nint(xsnr),          &
+!                xdt,nint(f1),msg37,isync
+!1004          format(i6.6,2i4,3i2,i3,3f6.1,i4,f6.2,i5,2x,a37,i4)
+!           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,msg37,iaptype,qual)