From 2df82d2b12c9ccd5a0548979a8985e838d29d992 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 19 Jul 2016 15:49:06 +0000
Subject: [PATCH] For unknown reasons, AP decode of [CQ ? ?] is not working.
 Temporary work-around effectively sets MyCall to "CQ    ".

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6930 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/qra64a.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/qra64a.f90 b/lib/qra64a.f90
index 49def418f..e46d3109f 100644
--- a/lib/qra64a.f90
+++ b/lib/qra64a.f90
@@ -126,10 +126,14 @@ subroutine qra64a(dd,nf1,nf2,nfqso,ntol,mycall_12,hiscall_12,hisgrid_6,   &
   call packcall(mycall,nmycall,ltext)
   call packcall(hiscall,nhiscall,ltext)
   call packgrid(hisgrid,nhisgrid,ltext)
+  call packcall("CQ    ",ncq,ltext)
+  nmycall=ncq
+
   snr2=-99.
   ttot=0.
   do naptype=4,0,-1
      call system_clock(count0,clkfreq)
+     if(naptype.eq.0) nmycall=ncq
      call qra64_dec(s3,nmycall,nhiscall,nhisgrid,naptype,dat4,snr2,irc)
      if(irc.ge.0) then
         call unpackmsg(dat4,decoded)           !Unpack the user message