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

Report Q65 average decodes to the callback routine so test_q65 can distinguish them.

Browse Source
This commit is contained in:
Joe Taylor 2020-10-27 16:28:25 -04:00
parent 494a8fc9a7
commit fca76a5730
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/q65_decode.f90
View File

@ -118,7 +118,7 @@ contains
endif endif
decoded=' ' decoded=' '
if(irc.ge.0) then if(irc.ge.0) then
irc=0 !### TEMPORARY ??? ### irc=(irc/100) * 100 !### TEMPORARY ??? ###
write(c77,1000) dat4 write(c77,1000) dat4
1000 format(12b6.6,b5.5) 1000 format(12b6.6,b5.5)
call unpack77(c77,0,decoded,unpk77_success) !Unpack to get msgsent call unpack77(c77,0,decoded,unpk77_success) !Unpack to get msgsent