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