w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-06-25 04:53:17 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove some diagnostic writes.

Browse Source
This commit is contained in:
Steve Franke
2018-12-21 09:51:39 -06:00
parent e87cf8dcc5
commit 5034e21291
1 changed files with 0 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/ft8/genft8.f90
-1
View File
@@ -18,7 +18,6 @@ subroutine genft8(msg,i3,n3,msgsent,msgbits,itone)
n3=-1
call pack77(msg,i3,n3,c77)
call unpack77(c77,0,msgsent,unpk77_success)
write(*,*) 'in genft8 ',i3,n3,msgsent
read(c77,'(77i1)',err=1) msgbits
if(unpk77_success) go to 2
1 msgbits=0