WSJT-X/libm65/graycode.f90

10 lines
139 B
Fortran
Raw Normal View History

subroutine graycode(ia,n,idir,ib)
integer ia(n),ib(n)
do i=1,n
ib(i)=igray(ia(i),idir)
enddo
return
end subroutine graycode