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