From 37d38a84dbd42e56b4b743069292b579e8847ffe Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 24 Jun 2016 19:56:01 +0000
Subject: [PATCH] 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
---
 lib/extract.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/extract.f90 b/lib/extract.f90
index d2775a575..6e4c275e7 100644
--- 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