From 58fbdbd69c6d261d01112f462f4a210240282178 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 2 Nov 2017 14:18:24 +0000
Subject: [PATCH] Make a special-case exception for nonstandard 3X/Guinea
 callsigns.

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

diff --git a/lib/packjt.f90 b/lib/packjt.f90
index 95ff5981b..0f110941b 100644
--- a/lib/packjt.f90
+++ b/lib/packjt.f90
@@ -64,6 +64,9 @@ subroutine packbits(dbits,nsymd,m0,sym)
  ! Work-around for Swaziland prefix:
    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:3).eq.'CQ ') then
       ncall=NBASE + 1
       if(callsign(4:4).ge.'0' .and. callsign(4:4).le.'9' .and.        &
@@ -265,7 +268,8 @@ subroutine packbits(dbits,nsymd,m0,sym)
       psfx = '    '
    endif
 
- 999 if(word(1:3).eq.'3D0') word='3DA0'//word(4:)
+999 if(word(1:3).eq.'3D0') word='3DA0'//word(4:)
+   if(word(1:1).eq.'Q') word='3X'//word(2:)
 
    return
  end subroutine unpackcall