From 82de949a8cd496df148bd653727f5b5b00ed11bc Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 16 Jul 2021 11:26:17 -0400
Subject: [PATCH] Disable a diagnostic write.

---
 lib/qra/q65/q65.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index ece95ac45..0f77cea66 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -165,8 +165,8 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave,  &
         call timer('list_dec',0)
         call q65_dec_q3(s1,iz,jz,s3,LL,ipk,jpk,snr2,dat4,idec,decoded)
         call timer('list_dec',1)
-        if(idec.ge.0) write(70,3070) idec,better,trim(decoded)
-3070    format(i3,f8.2,2x,a)
+!        if(idec.ge.0) write(70,3070) idec,better,trim(decoded)
+!3070    format(i3,f8.2,2x,a)
      endif
 ! If idec=3 we have a q3 decode.  Continue to compute sync curve for plotting.
   endif