w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-26 06:08:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Try harder to ensure that we don't waste time trying to do ap decoding that would involve nonstandard calls. Current code does not support ap decoding with non-standard calls.

Browse Source
This commit is contained in:
Steve Franke 2018-12-24 10:45:02 -06:00
parent de9990bb60
commit 318ce0020e
1 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lib/ft8/ft8apset.f90
View File

@ -1,22 +1,21 @@
subroutine ft8apset(mycall12,hiscall12,apsym) subroutine ft8apset(mycall12,hiscall12,apsym)
use packjt77 use packjt77
character*77 c77 character*77 c77
character*37 msg character*37 msg,msgchk
character*12 mycall12,hiscall12,hiscall character*12 mycall12,hiscall12,hiscall
integer apsym(58) integer apsym(58)
logical nohiscall logical nohiscall,unpk77_success
if(len(trim(mycall12)).eq.0) then apsym=0
apsym=0 apsym(1)=99
apsym(1)=99 apsym(30)=99
apsym(30)=99
return if(len(trim(mycall12)).lt.3) return
endif
nohiscall=.false. nohiscall=.false.
hiscall=hiscall12 hiscall=hiscall12
if(len(trim(hiscall)).eq.0) then if(len(trim(hiscall)).eq.0) then
hiscall="K9ABC" hiscall=mycall ! use mycall for dummy hiscall - mycall won't be hashed.
nohiscall=.true. nohiscall=.true.
endif endif
@ -24,12 +23,9 @@ subroutine ft8apset(mycall12,hiscall12,apsym)
! !
msg=trim(mycall12)//' '//trim(hiscall)//' RRR' msg=trim(mycall12)//' '//trim(hiscall)//' RRR'
call pack77(msg,i3,n3,c77) call pack77(msg,i3,n3,c77)
if(i3.ne.1) then call unpack77(c77,1,msgchk,unpk77_success)
apsym=0
apsym(1)=99 if(i3.ne.1 .or. (msg.ne.msgchk) .or. .not.unpk77_success) return
apsym(30)=99
return
endif
read(c77,'(58i1)',err=1) apsym(1:58) read(c77,'(58i1)',err=1) apsym(1:58)
apsym=2*apsym-1 apsym=2*apsym-1