w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 20:28:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Minor improvement in code that checks for bad FT8 messages.

Browse Source
This commit is contained in:
Joe Taylor 2018-11-27 15:34:01 -05:00
parent 9e74125799
commit 461b87f047
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ft8/genft8.f90
View File

@ -19,11 +19,11 @@ subroutine genft8(msg,i3,n3,msgsent,msgbits,itone)
call pack77(msg,i3,n3,c77) call pack77(msg,i3,n3,c77)
call unpack77(c77,msgsent,unpk77_success) call unpack77(c77,msgsent,unpk77_success)
read(c77,'(77i1)',err=1) msgbits read(c77,'(77i1)',err=1) msgbits
go to 2 if(unpk77_success) go to 2
1 msgbits=0 1 msgbits=0
itone=0 itone=0
msgsent='*** bad message *** ' msgsent='*** bad message *** '
return go to 900
entry get_tones_from_77bits(msgbits,itone) entry get_tones_from_77bits(msgbits,itone)
@ -42,5 +42,5 @@ entry get_tones_from_77bits(msgbits,itone)
itone(k)=graymap(indx) itone(k)=graymap(indx)
enddo enddo
return 900 return
end subroutine genft8 end subroutine genft8