w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Slightly more restrictive conditions for allowing 3X? prefixes.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8213 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-11-03 15:18:08 +00:00
parent ebe5ec5b2e
commit 25ffeb2eb5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/packjt.f90
View File

@ -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