Make the 28-bit "nmycall" available to the QRA65 decoder.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6809 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-06-24 19:56:01 +00:00
parent dd2e5fbdda
commit 37d38a84db

View File

@ -62,7 +62,8 @@ subroutine extract(s3,nadd,mode65,ntrials,naggressive,ndepth,nflip, &
endif
if(mode65.eq.101) then
call qra65_dec(s3,dat4,irc) !Decode
call packcall(mycall,nmycall,ltext)
call qra65_dec(s3,nmycall,dat4,irc) !Attempt decoding
decoded=" "
if(irc.ge.0) then
call unpackmsg(dat4,decoded) !Unpack the user message