w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-04 22:27:50 -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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/ft8/genft8.f90
View File

@ -18,7 +18,6 @@ subroutine genft8(msg,i3,n3,msgsent,msgbits,itone)
n3=-1 n3=-1
call pack77(msg,i3,n3,c77) call pack77(msg,i3,n3,c77)
call unpack77(c77,0,msgsent,unpk77_success) call unpack77(c77,0,msgsent,unpk77_success)
write(*,*) 'in genft8 ',i3,n3,msgsent
read(c77,'(77i1)',err=1) msgbits read(c77,'(77i1)',err=1) msgbits
if(unpk77_success) go to 2 if(unpk77_success) go to 2
1 msgbits=0 1 msgbits=0