mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-17 10:46:33 -04:00
26 lines
617 B
Fortran
26 lines
617 B
Fortran
|
subroutine ft8apset(mycall12,hiscall12,hisgrid6,apsym,iaptype)
|
||
|
|
parameter(NAPM=4,KK=87)
|
||
|
|
character*12 mycall12,hiscall12
|
||
|
|
character*22 msg,msgsent
|
||
|
|
character*6 mycall,hiscall
|
||
|
|
character*6 hisgrid6
|
||
|
|
character*4 hisgrid
|
||
|
|
integer apsym(KK)
|
||
|
|
integer*1 msgbits(KK)
|
||
|
|
integer itone(KK)
|
||
|
|
|
||
|
|
mycall=mycall12(1:6)
|
||
|
|
hiscall=hiscall12(1:6)
|
||
|
|
if(len_trim(hiscall).eq.0) then
|
||
|
|
iaptype=1
|
||
|
|
hiscall="K9AN " ! dummy call
|
||
|
|
else
|
||
|
|
iaptype=2
|
||
|
|
hisgrid=hisgrid6(1:4)
|
||
|
|
endif
|
||
|
|
msg=mycall//' '//hiscall//' '//hisgrid
|
||
|
|
call genft8(msg,msgsent,msgbits,itone)
|
||
|
|
apsym=2*msgbits-1
|
||
|
|
return
|
||
|
|
end subroutine ft8apset
|