mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-26 14:18:38 -05:00
25 lines
745 B
Fortran
25 lines
745 B
Fortran
subroutine ft8apset_174_91(mycall12,mygrid6,hiscall12,hisgrid6,bcontest,apsym)
|
|
parameter(NAPM=4,KK=91)
|
|
character*12 mycall12,hiscall12
|
|
character*22 msg,msgsent
|
|
character*6 mycall,hiscall
|
|
character*6 mygrid6,hisgrid6
|
|
character*4 hisgrid
|
|
logical bcontest
|
|
integer apsym(77)
|
|
integer*1 msgbits(77)
|
|
integer itone(KK)
|
|
|
|
mycall=mycall12(1:6)
|
|
hiscall=hiscall12(1:6)
|
|
if(index(hiscall," ").eq.0) hiscall="K9ABC"
|
|
hisgrid=hisgrid6(1:4)
|
|
if(index(hisgrid," ").eq.0) hisgrid="AA00"
|
|
msg=mycall//' '//hiscall//' '//hisgrid
|
|
i3=1 ! ### TEMPORARY ??? ###
|
|
n3=0
|
|
call genft8_174_91(msg,mygrid6,bcontest,i3,n3,msgsent,msgbits,itone)
|
|
apsym=2*msgbits-1
|
|
return
|
|
end subroutine ft8apset_174_91
|