| # | 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 |