2018-09-28 15:13:58 -04:00
|
|
|
subroutine ft8apset_174_91(mycall12,hiscall12,ncontest,apsym)
|
2018-06-11 16:10:44 -04:00
|
|
|
parameter(NAPM=4,KK=91)
|
2018-07-28 18:32:45 -04:00
|
|
|
character*37 msg,msgsent
|
2018-09-28 15:13:58 -04:00
|
|
|
character*12 mycall12,hiscall12,hiscall
|
2018-07-03 12:10:47 -04:00
|
|
|
integer apsym(77)
|
|
|
|
integer*1 msgbits(77)
|
2018-06-11 16:10:44 -04:00
|
|
|
integer itone(KK)
|
2018-09-28 15:13:58 -04:00
|
|
|
|
|
|
|
hiscall=hiscall12
|
|
|
|
if(len(trim(hiscall)).eq.0) hiscall="K9ABC"
|
|
|
|
if(ncontest.eq.0) then
|
|
|
|
msg=trim(mycall12)//' '//trim(hiscall)//' RRR'
|
|
|
|
elseif(ncontest.eq.4) then
|
|
|
|
msg=trim(mycall12)//' '//trim(hiscall)//' 599 NJ'
|
|
|
|
endif
|
|
|
|
! write(*,*) 'apset msg ',msg
|
2018-07-28 18:32:45 -04:00
|
|
|
call genft8_174_91(msg,i3,n3,msgsent,msgbits,itone)
|
2018-09-28 15:13:58 -04:00
|
|
|
! write(*,*) 'apset msg sent',msgsent
|
2018-06-11 16:10:44 -04:00
|
|
|
apsym=2*msgbits-1
|
2018-09-28 15:13:58 -04:00
|
|
|
! write(*,'(29i1,1x,29i1,1x,19i1)') (apsym(1:77)+1)/2
|
2018-06-11 16:10:44 -04:00
|
|
|
return
|
|
|
|
end subroutine ft8apset_174_91
|