1subroutine graycode65(dat,n,idir)
2
3  integer dat(n)
4  do i=1,n
5     dat(i)=igray(dat(i),idir)
6  enddo
7
8  return
9end subroutine graycode65
10