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

This commit is contained in:
Joe Taylor 2020-10-27 16:28:25 -04:00
parent 494a8fc9a7
commit fca76a5730

View File

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