SVN r8748

2018-06-14 21:27:34 -04:00
parent 419c039d08
commit 4f1fe4fc94
581 changed files with 69338 additions and 39836 deletions
@@ -0,0 +1,23 @@
+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