2018-09-29 10:16:56 -04:00
|
|
|
subroutine ft8apset_174_91(mycall12,hiscall12,apsym)
|
|
|
|
|
use packjt77
|
|
|
|
|
character*77 c77
|
|
|
|
|
character*37 msg
|
2018-09-28 15:13:58 -04:00
|
|
|
character*12 mycall12,hiscall12,hiscall
|
2018-09-29 10:16:56 -04:00
|
|
|
integer apsym(58)
|
2018-07-03 12:10:47 -04:00
|
|
|
integer*1 msgbits(77)
|
2018-09-29 10:16:56 -04:00
|
|
|
logical nohiscall
|
|
|
|
|
|
|
|
|
|
if(len(trim(mycall12)).eq.0) then
|
|
|
|
|
apsym=0
|
|
|
|
|
apsym(1)=99
|
|
|
|
|
apsym(30)=99
|
|
|
|
|
return
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
nohiscall=.false.
|
2018-09-28 15:13:58 -04:00
|
|
|
hiscall=hiscall12
|
2018-09-29 10:16:56 -04:00
|
|
|
if(len(trim(hiscall)).eq.0) then
|
|
|
|
|
hiscall="K9ABC"
|
|
|
|
|
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)
|
|
|
|
|
if(i3.ne.1) then
|
|
|
|
|
apsym=0
|
|
|
|
|
apsym(1)=99
|
|
|
|
|
apsym(30)=99
|
|
|
|
|
return
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
read(c77,'(58i1)',err=1) apsym(1:58)
|
|
|
|
|
if(nohiscall) apsym(30)=99
|
|
|
|
|
return
|
|
|
|
|
|
|
|
|
|
1 apsym=0
|
|
|
|
|
apsym(1)=99
|
|
|
|
|
apsym(30)=99
|
2018-06-11 16:10:44 -04:00
|
|
|
return
|
|
|
|
|
end subroutine ft8apset_174_91
|
