w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-04-05 19:08:38 -04:00
Code Issues Packages Projects Releases Wiki Activity

Disable diagnostic write.

Browse Source
This commit is contained in:
Joe Taylor 2023-02-11 15:41:33 -05:00
parent 31bc12e3b9
commit 871198c44f
1 changed files with 2 additions and 2 deletions

4
lib/qra/q65/q65_set_list2.f90
View File

@ -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