w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-06 23:27:55 -04:00
Code Issues Packages Projects Releases Wiki Activity

Make a special-case exception for nonstandard 3X/Guinea callsigns.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8208 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-11-02 14:18:24 +00:00
parent b11a653480
commit 58fbdbd69c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/packjt.f90
View File

@ -64,6 +64,9 @@ subroutine packbits(dbits,nsymd,m0,sym)
! Work-around for Swaziland prefix: ! Work-around for Swaziland prefix:
if(callsign(1:4).eq.'3DA0') callsign='3D0'//callsign(5:6) 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 if(callsign(1:3).eq.'CQ ') then
ncall=NBASE + 1 ncall=NBASE + 1
if(callsign(4:4).ge.'0' .and. callsign(4:4).le.'9' .and. & if(callsign(4:4).ge.'0' .and. callsign(4:4).le.'9' .and. &
@ -265,7 +268,8 @@ subroutine packbits(dbits,nsymd,m0,sym)
psfx = ' ' psfx = ' '
endif 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 return
end subroutine unpackcall end subroutine unpackcall