From 43e2a95edfe10266757c4015fb061b8f24c92639 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 13 May 2021 08:42:00 -0400
Subject: [PATCH] Disable diagnostic write.

---
 map65/libm65/wideband2_sync.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/map65/libm65/wideband2_sync.f90 b/map65/libm65/wideband2_sync.f90
index 3a20156d1..b1593587f 100644
--- a/map65/libm65/wideband2_sync.f90
+++ b/map65/libm65/wideband2_sync.f90
@@ -148,10 +148,10 @@ subroutine wb2_sync(ss,savg,jz,nfa,nfb)
   do i=1,4
      call pctile(savg(i,ia:ib),ib-ia+1,50,savg_med(i))
   enddo
-  do i=ia,ib
-     write(14,3014) 0.001*(i-1)*df3,savg(1:4,i)
-3014 format(5f10.3)
-  enddo
+!  do i=ia,ib
+!     write(14,3014) 0.001*(i-1)*df3,savg(1:4,i)
+!3014 format(5f10.3)
+!  enddo
 
   lagbest=0
   ipolbest=1