1subroutine dxped_fifo(cx,gx,isnrx)
2
3  parameter (NCALLS=268)
4  character*6 xcall(NCALLS)
5  character*4 xgrid(NCALLS)
6  integer isnr(NCALLS)
7
8  character cx*6,gx*4
9  common/dxpfifo/nc,isnr,xcall,xgrid
10
11  if(nc.lt.NCALLS) then
12     nc=nc+1
13     cx=xcall(nc)
14     gx=xgrid(nc)
15     isnrx=isnr(nc)
16  else
17     cx='      '
18     gx='    '
19     isnrx=0
20  endif
21
22  return
23end subroutine dxped_fifo
24