File: graycode65.f90

package info (click to toggle)
jtdx 2.2.159%2Bimproved-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, trixie
  • size: 75,336 kB
  • sloc: cpp: 38,503; f90: 31,141; python: 27,061; ansic: 11,772; sh: 409; fortran: 353; makefile: 232
file content (9 lines) | stat: -rw-r--r-- 147 bytes parent folder | download | duplicates (18) 
1
2
3
4
5
6
7
8
9
 
subroutine graycode65(dat,n,idir)

  integer dat(n)
  do i=1,n
     dat(i)=igray(dat(i),idir)
  enddo

  return
end subroutine graycode65