2018-07-29 17:29:11 -04:00
|
|
|
subroutine ft8apset(mycall12,hiscall12,apsym)
|
2018-11-05 11:59:48 -05:00
|
|
|
use packjt77
|
|
|
|
|
character*77 c77
|
2018-12-24 11:45:02 -05:00
|
|
|
character*37 msg,msgchk
|
2018-11-05 11:59:48 -05:00
|
|
|
character*12 mycall12,hiscall12,hiscall
|
|
|
|
|
integer apsym(58)
|
2018-12-24 11:45:02 -05:00
|
|
|
logical nohiscall,unpk77_success
|
2018-11-05 11:59:48 -05:00
|
|
|
|
2018-12-24 11:45:02 -05:00
|
|
|
apsym=0
|
|
|
|
|
apsym(1)=99
|
|
|
|
|
apsym(30)=99
|
|
|
|
|
|
|
|
|
|
if(len(trim(mycall12)).lt.3) return
|
2018-11-05 11:59:48 -05:00
|
|
|
|
|
|
|
|
nohiscall=.false.
|
|
|
|
|
hiscall=hiscall12
|
|
|
|
|
if(len(trim(hiscall)).eq.0) then
|
2018-12-24 11:49:40 -05:00
|
|
|
hiscall=mycall12 ! use mycall for dummy hiscall - mycall won't be hashed.
|
2018-11-05 11:59:48 -05:00
|
|
|
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)
|
2018-12-24 11:45:02 -05:00
|
|
|
call unpack77(c77,1,msgchk,unpk77_success)
|
|
|
|
|
|
|
|
|
|
if(i3.ne.1 .or. (msg.ne.msgchk) .or. .not.unpk77_success) return
|
2018-11-05 11:59:48 -05:00
|
|
|
|
|
|
|
|
read(c77,'(58i1)',err=1) apsym(1:58)
|
2018-12-03 08:18:52 -05:00
|
|
|
apsym=2*apsym-1
|
2018-11-05 11:59:48 -05:00
|
|
|
if(nohiscall) apsym(30)=99
|
|
|
|
|
return
|
|
|
|
|
|
|
|
|
|
1 apsym=0
|
|
|
|
|
apsym(1)=99
|
|
|
|
|
apsym(30)=99
|
2017-07-14 15:35:22 -04:00
|
|
|
return
|
2017-07-28 11:50:13 -04:00
|
|
|
end subroutine ft8apset
|
