| # | Line 3 | Line 3 | |
|---|---|---|
| 3 | /* SCCSid "$SunId$ LBL" */ | |
| 4 | ||
| 5 | /* | |
| 6 | < | * random.h - header file for random(3) function. |
| 6 | > | * random.h - header file for random(3) and urand() function. |
| 7 | * | |
| 8 | * 10/1/85 | |
| 9 | */ | |
| # | Line 23 | Line 23 | extern double drand48(); | |
| 23 | #define frandom() drand48() | |
| 24 | ||
| 25 | #endif | |
| 26 | + | |
| 27 | + | #define urand(i) ((urperm[(i)&urmask]+frandom())/(urmask+1)) |
| 28 | + | |
| 29 | + | extern short *urperm; |
| 30 | + | extern int urmask; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |