From 871198c44f0fcd471a12698b84e0770bc389e6e4 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sat, 11 Feb 2023 15:41:33 -0500 Subject: [PATCH] Disable diagnostic write. --- lib/qra/q65/q65_set_list2.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/qra/q65/q65_set_list2.f90 b/lib/qra/q65/q65_set_list2.f90 index 31c920f95..6cce406c6 100644 --- a/lib/qra/q65/q65_set_list2.f90 +++ b/lib/qra/q65/q65_set_list2.f90 @@ -61,8 +61,8 @@ subroutine q65_set_list2(mycall,hiscall,hisgrid,callers,nhist2,codewords,ncw) jj=jj+1 codewords(jj,i)=itone(kk) - 1 enddo - write(71,3001) i,j,k,codewords(1:13,i),trim(msg) -3001 format(3i3,2x,13i3,2x,a) +! write(71,3001) i,j,k,codewords(1:13,i),trim(msg) +!3001 format(3i3,2x,13i3,2x,a) enddo enddo ncw=i