mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-18 10:01:57 -05:00
abcf3706eb
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8226 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
24 lines
417 B
Fortran
24 lines
417 B
Fortran
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
|