Merged master 8748

2018-08-05 11:33:30 -04:00
parent 8f8772f1bd
commit 62899069bf
1222 changed files with 70382 additions and 406763 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