| # | Line 10 | Line 10 | |
|---|---|---|
| 10 | ||
| 11 | #ifdef MSDOS | |
| 12 | ||
| 13 | < | #define random rand |
| 13 | > | #define random() ((long)rand()<<16^(long)rand()<<6^(long)rand()>>4) |
| 14 | ||
| 15 | #define frandom() (rand()*(1./32768.)) | |
| 16 | ||
| # | Line 32 | Line 32 | extern double drand48(); | |
| 32 | #endif | |
| 33 | #endif | |
| 34 | ||
| 35 | + | #ifdef MC |
| 36 | + | #define urand(i) frandom() |
| 37 | + | #else |
| 38 | #define urand(i) ((urperm[(i)&urmask]+frandom())/(urmask+1)) | |
| 39 | + | #endif |
| 40 | ||
| 41 | extern short *urperm; | |
| 42 | extern int urmask; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |