From 25ffeb2eb584ef0ea3106354bb0bd58df204bf29 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 3 Nov 2017 15:18:08 +0000
Subject: [PATCH] Slightly more restrictive conditions for allowing 3X?
 prefixes.

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

diff --git a/lib/packjt.f90 b/lib/packjt.f90
index 0f110941b..d7d90fb46 100644
--- a/lib/packjt.f90
+++ b/lib/packjt.f90
@@ -65,7 +65,8 @@ subroutine packbits(dbits,nsymd,m0,sym)
    if(callsign(1:4).eq.'3DA0') callsign='3D0'//callsign(5:6)
 
  ! Work-around for Guinea prefixes:
-   if(callsign(1:2).eq.'3X') callsign='Q'//callsign(3:6)
+   if(callsign(1:2).eq.'3X' .and. callsign(3:3).ge.'A' .and.          &
+        callsign(3:3).le.'Z') callsign='Q'//callsign(3:6)
    
    if(callsign(1:3).eq.'CQ ') then
       ncall=NBASE + 1
@@ -269,7 +270,8 @@ subroutine packbits(dbits,nsymd,m0,sym)
    endif
 
 999 if(word(1:3).eq.'3D0') word='3DA0'//word(4:)
-   if(word(1:1).eq.'Q') word='3X'//word(2:)
+   if(word(1:1).eq.'Q' .and. word(2:2).ge.'A' .and.                 &
+        word(2:2).le.'Z') word='3X'//word(2:)
 
    return
  end subroutine unpackcall