mirror of https://github.com/saitohirga/WSJT-X.git
40 lines
892 B
Fortran
40 lines
892 B
Fortran
subroutine ft8apset(mycall12,hiscall12,apsym)
|
|
use packjt77
|
|
character*77 c77
|
|
character*37 msg,msgchk
|
|
character*12 mycall12,hiscall12,hiscall
|
|
integer apsym(58)
|
|
logical nohiscall,unpk77_success
|
|
|
|
apsym=0
|
|
apsym(1)=99
|
|
apsym(30)=99
|
|
|
|
if(len(trim(mycall12)).lt.3) return
|
|
|
|
nohiscall=.false.
|
|
hiscall=hiscall12
|
|
if(len(trim(hiscall)).lt.3) then
|
|
hiscall=mycall12 ! use mycall for dummy hiscall - mycall won't be hashed.
|
|
nohiscall=.true.
|
|
endif
|
|
|
|
! Encode a dummy standard message: i3=1, 28 1 28 1 1 15
|
|
!
|
|
msg=trim(mycall12)//' '//trim(hiscall)//' RRR'
|
|
call pack77(msg,i3,n3,c77)
|
|
call unpack77(c77,1,msgchk,unpk77_success)
|
|
|
|
if(i3.ne.1 .or. (msg.ne.msgchk) .or. .not.unpk77_success) return
|
|
|
|
read(c77,'(58i1)',err=1) apsym(1:58)
|
|
apsym=2*apsym-1
|
|
if(nohiscall) apsym(30)=99
|
|
return
|
|
|
|
1 apsym=0
|
|
apsym(1)=99
|
|
apsym(30)=99
|
|
return
|
|
end subroutine ft8apset
|