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
2016-06-24 19:56:01 +00:00 · 2016-06-24 19:56:01 +00:00 · 37d38a84db
parent dd2e5fbdda
commit 37d38a84db
1 changed files with 2 additions and 1 deletions
--- a/lib/extract.f90
+++ b/lib/extract.f90
@ -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