Updated to r8541

lib/packjt.f90

@@ -64,6 +64,10 @@ 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' .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
       if(callsign(4:4).ge.'0' .and. callsign(4:4).le.'9' .and.        &
@@ -265,7 +269,9 @@ 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' .and. word(2:2).ge.'A' .and.                 &
+        word(2:2).le.'Z') word='3X'//word(2:)
 
    return
  end subroutine unpackcall
@@ -423,6 +429,8 @@ subroutine packbits(dbits,nsymd,m0,sym)
    end if
 
    call fmtmsg(msg,iz)
+   if(msg(1:3).eq.'CQ ' .and. msg(4:4).ge.'0' .and. msg(4:4).le.'9'   &
+        .and. msg(5:5).eq.' ') msg='CQ 00'//msg(4:)
 
    if(msg(1:6).eq.'CQ DX ') msg(3:3)='9'
    if(msg(1:3).eq.'CQ ' .and.                                         &
@@ -652,6 +660,9 @@ subroutine packbits(dbits,nsymd,m0,sym)
 
    if(bcontest) call fix_contest_msg(mygrid,msg)
 
+   if(msg(1:5).eq.'CQ 00' .and. msg(6:6).ge.'0' .and.                 &
+        msg(6:6).le.'9') msg='CQ '//msg(6:)
+
    return
  end subroutine unpackmsg