# | Line 5 | Line 5 | static char SCCSid[] = "$SunId$ LBL"; | |
---|---|---|
5 | #endif | |
6 | ||
7 | /* | |
8 | < | * Uncorrelated (anticorrelated) random function |
8 | > | * Anticorrelated random function due to Christophe Schlick |
9 | */ | |
10 | ||
11 | #include "random.h" | |
# | Line 44 | Line 44 | int size; | |
44 | else | |
45 | urperm[i+offset]++; | |
46 | } | |
47 | + | } |
48 | + | |
49 | + | |
50 | + | int |
51 | + | ilhash(d, n) /* hash a set of integer values */ |
52 | + | register int *d; |
53 | + | register int n; |
54 | + | { |
55 | + | static int tab[8] = {13623,353,1637,5831,2314,3887,5832,8737}; |
56 | + | register int hval; |
57 | + | |
58 | + | hval = 0; |
59 | + | while (n-- > 0) |
60 | + | hval += *d++ * tab[n&7]; |
61 | + | return(hval); |
62 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |