WSJT-X/lib/dxped_fifo.f90
Joe Taylor abcf3706eb New versions of Fox test proigs.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8226 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-11-09 20:23:04 +00:00

24 lines
417 B
Fortran

subroutine dxped_fifo(cx,gx,isnrx)
parameter (NCALLS=268)
character*6 xcall(NCALLS)
character*4 xgrid(NCALLS)
integer isnr(NCALLS)
character cx*6,gx*4
common/dxpfifo/nc,isnr,xcall,xgrid
if(nc.lt.NCALLS) then
nc=nc+1
cx=xcall(nc)
gx=xgrid(nc)
isnrx=isnr(nc)
else
cx=' '
gx=' '
isnrx=0
endif
return
end subroutine dxped_fifo