mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-05 00:41:19 -05:00
9e73f87218
MAP65 v2.3.0, r631, as checked out from the SVN repository on pulsar.princeton.edu. If all goes well with this commit, subsequent MAP65 development will use the Berlios repository. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2461 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
23 lines
337 B
C
23 lines
337 B
C
#ifdef CVF
|
|
extern int __stdcall IGRAY(int *n0, int *idir)
|
|
#else
|
|
int igray_(int *n0, int *idir)
|
|
#endif
|
|
{
|
|
int n;
|
|
unsigned long sh;
|
|
unsigned long nn;
|
|
n=*n0;
|
|
|
|
if(*idir>0) return (n ^ (n >> 1));
|
|
|
|
sh = 1;
|
|
nn = (n >> sh);
|
|
while (nn > 0) {
|
|
n ^= nn;
|
|
sh <<= 1;
|
|
nn = (n >> sh);
|
|
}
|
|
return (n);
|
|
}
|