WSJT-X/lib/fox_rx.f90
Joe Taylor 276c804c50 More code cleanup.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8230 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-11-09 21:33:20 +00:00

67 lines
1.7 KiB
Fortran

subroutine fox_rx(fail,called,fm,hm)
! Given fm, recently transmitted by Fox, determine hm -- the next
! message for Hound to transmit
parameter (MAXSIG=5,NCALLS=268)
character*6 xcall(NCALLS)
! character*8 mycall_plus
character*4 xgrid(NCALLS)
integer isnr(NCALLS)
character*32 fm
character*22 hm
character*6 cx,called,MyCall
character*4 gx
common/dxpfifo/nc,isnr,xcall,xgrid
data MyCall/'KH1DX'/
save
call random_number(r)
if(r.lt.fail) fm='' !Hound fails to copy
i1=index(fm,MyCall)
if(fm(1:3).eq.'CQ ' .and. i1.ge.4) then
call dxped_fifo(cx,gx,isnrx)
ntimes=1
write(hm,1000) MyCall,cx,gx
1000 format(a6,1x,a6,1x,a4)
endif
! Check for a "RR73" message
ia=index(fm,trim(cx))
ib=index(fm,';')
ic=index(fm,trim(called))
id=index(fm,'RR73;')
if((ia.eq.1 .or. ic.eq.ib+2) .and. id.ge.4) then
i1=index(fm,';')+2
i2=index(fm,'<')-2
cx=fm(i1:i2) !Callsign for next QSO
call random_number(r)
ireport=nint(-20+40*r)
! Send report to next caller
write(hm,1004) MyCall,cx,ireport
1004 format(a6,1x,a6,' R',i3.2)
if(hm(16:16).eq.' ') hm(16:16)='+'
endif
! Check for a message with a report to Hound
i1=index(fm,trim(called))
i2=index(fm,MyCall)
if(i1.eq.1 .and. i2.ge.5 .and. &
(index(fm,'+').ge.8 .or. index(fm,'-').ge.8)) then
! Send "R+rpt" to Fox
write(hm,1004) MyCall,called,isnrx
if(hm(16:16).eq.' ') hm(16:16)='+'
endif
! Collapse multiple blanks in message
iz=len(trim(hm))
do iter=1,5
ib2=index(hm(1:iz),' ')
if(ib2.lt.1) exit
hm=hm(1:ib2)//hm(ib2+2:)
iz=iz-1
enddo
return
end subroutine fox_rx