Updated to r8541

2018-03-05 14:49:51 -05:00
parent a4fa5b9988
commit a32fe6a4dc
200 changed files with 20394 additions and 4957 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