w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 04:42:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Store has codes for decoded standard calls. Need to check for table size and possible overflow!

Browse Source
This commit is contained in:
Joe Taylor 2018-09-19 16:47:14 -04:00
parent 705004d206
commit 78a912cbb4
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lib/77bit/packjt77.f90
View File

@ -102,6 +102,7 @@ subroutine save_hash_call(c13,n10,n12,n22)
nzhash=0 nzhash=0
first=.false. first=.false.
endif endif
if(c13(1:1).eq.' ' .or. c13(1:5).eq.'<...>') return
n10=ihashcall(c13,10) n10=ihashcall(c13,10)
n12=ihashcall(c13,12) n12=ihashcall(c13,12)
@ -350,13 +351,16 @@ subroutine unpack77(c77,msg,unpk77_success)
call unpack28(n28b,call_2,unpk28_success) call unpack28(n28b,call_2,unpk28_success)
if(.not.unpk28_success) unpk77_success=.false. if(.not.unpk28_success) unpk77_success=.false.
if(call_1(1:3).eq.'CQ_') call_1(3:3)=' ' if(call_1(1:3).eq.'CQ_') call_1(3:3)=' '
i=index(call_1,' ') if(index(call_1,'<').le.0) then
if(i.ge.4 .and. ipa.eq.1 .and. i3.eq.1) call_1(i:i+1)='/R' i=index(call_1,' ')
if(i.ge.4 .and. ipa.eq.1 .and. i3.eq.2) call_1(i:i+1)='/P' if(i.ge.4 .and. ipa.eq.1 .and. i3.eq.1) call_1(i:i+1)='/R'
i=index(call_2,' ') if(i.ge.4 .and. ipa.eq.1 .and. i3.eq.2) call_1(i:i+1)='/P'
if(i.ge.4 .and. ipb.eq.1 .and. i3.eq.1) call_2(i:i+1)='/R' endif
if(i.ge.4 .and. ipb.eq.1 .and. i3.eq.2) call_2(i:i+1)='/P' if(index(call_2,'<').le.0) then
i=index(call_2,' ')
if(i.ge.4 .and. ipb.eq.1 .and. i3.eq.1) call_2(i:i+1)='/R'
if(i.ge.4 .and. ipb.eq.1 .and. i3.eq.2) call_2(i:i+1)='/P'
endif
if(igrid4.le.MAXGRID4) then if(igrid4.le.MAXGRID4) then
n=igrid4 n=igrid4
j1=n/(18*10*10) j1=n/(18*10*10)
@ -533,6 +537,7 @@ subroutine pack28(c13,n28)
endif endif
endif endif
endif endif
! Check for <...> callsign ! Check for <...> callsign
if(c13(1:1).eq.'<')then if(c13(1:1).eq.'<')then
call save_hash_call(c13,n10,n12,n22) !Save callsign in hash table call save_hash_call(c13,n10,n12,n22) !Save callsign in hash table
@ -567,6 +572,7 @@ subroutine pack28(c13,n28)
n=len(trim(c13)) n=len(trim(c13))
! This is a standard callsign ! This is a standard callsign
call save_hash_call(c13,n10,n12,n22) !Save callsign in hash table
if(iarea.eq.2) callsign=' '//c13(1:5) if(iarea.eq.2) callsign=' '//c13(1:5)
if(iarea.eq.3) callsign=c13(1:6) if(iarea.eq.3) callsign=c13(1:6)
i1=index(a1,callsign(1:1))-1 i1=index(a1,callsign(1:1))-1