From 254e2f61fa08da93a82333712d465f6cc4b9952e Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 6 Aug 2020 07:07:16 -0400
Subject: [PATCH] Remove diagnostic write to fort.71.

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

diff --git a/lib/qra66_decode.f90 b/lib/qra66_decode.f90
index 39e7371f6..308dd97a2 100644
--- a/lib/qra66_decode.f90
+++ b/lib/qra66_decode.f90
@@ -108,8 +108,8 @@ contains
     do j=1,63                              !Normalize to symbol baseline
        call pctile(s3(:,j),192,40,base)
        s3(:,j)=s3(:,j)/base
-       write(71,3071)j,maxloc(s3(:,j))
-3071   format(2i5)
+!       write(71,3071)j,maxloc(s3(:,j))
+!3071   format(2i5)
     enddo
 
     s3max=20.0