This website requires JavaScript.
Explore
Drone CI
Help
Register
Sign In
w4kek
/
WSJT-X
Watch
1
Star
0
Fork
0
You've already forked WSJT-X
mirror of
https://github.com/saitohirga/WSJT-X.git
synced
2024-11-03 16:01:18 -05:00
Code
Issues
Packages
Projects
Releases
Wiki
Activity
71ddb3fd1e
WSJT-X
/
libm65
/
graycode.f
11 lines
147 B
FortranFixed
Raw
Normal View
History
Unescape
Escape
Set properties for native eol style and the "Rev" keyword. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2464 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-05-22 13:09:48 -04:00
subroutine
graycode
(
dat
,
n
,
idir
)
integer
dat
(
n
)
do
i
=
1
,
n
dat
(
i
)
=
igray
(
dat
(
i
)
,
idir
)
enddo
return
end
Reference in New Issue
Copy Permalink