WSJT-X/map65/libm65/graycode65.f90

10 lines
138 B
Fortran
Raw Normal View History

subroutine graycode65(dat,n,idir)
integer dat(n)
do i=1,n
dat(i)=igray(dat(i),idir)
enddo
return
end subroutine graycode65