2018-07-29 16:29:11 -05:00
|
|
|
subroutine ft8apset(mycall12,hiscall12,apsym)
|
2017-07-14 19:35:22 +00:00
|
|
|
parameter(NAPM=4,KK=87)
|
|
|
|
|
character*12 mycall12,hiscall12
|
2018-07-05 15:32:04 -05:00
|
|
|
character*37 msg,msgsent
|
2017-07-14 19:35:22 +00:00
|
|
|
character*6 mycall,hiscall
|
2018-07-11 16:32:08 -04:00
|
|
|
character*6 hisgrid6
|
2017-07-14 19:35:22 +00:00
|
|
|
character*4 hisgrid
|
2018-07-29 16:29:11 -05:00
|
|
|
integer apsym(75)
|
|
|
|
|
integer*1 msgbits(77)
|
|
|
|
|
integer itone(79)
|
2017-07-14 19:35:22 +00:00
|
|
|
|
|
|
|
|
mycall=mycall12(1:6)
|
|
|
|
|
hiscall=hiscall12(1:6)
|
2018-07-29 16:29:11 -05:00
|
|
|
if(len(trim(hiscall)).eq.0) hiscall="K9ABC"
|
|
|
|
|
msg=mycall//' '//hiscall//' RRR'
|
|
|
|
|
i3=0
|
|
|
|
|
n3=0
|
2018-07-03 14:37:50 -05:00
|
|
|
isync=1
|
2018-07-11 16:32:08 -04:00
|
|
|
call genft8(msg,i3,n3,isync,msgsent,msgbits,itone)
|
2018-07-29 16:29:11 -05:00
|
|
|
apsym=2*msgbits(1:75)-1
|
2017-07-14 19:35:22 +00:00
|
|
|
return
|
2017-07-28 15:50:13 +00:00
|
|
|
end subroutine ft8apset
|
