src/common/random.h

/* RCSid $Id: random.h,v 2.19 2015/01/26 20:04:30 greg Exp $ */
/*
 *  random.h - header file for random(3) and urand() function.
 */
#ifndef _RAD_RANDOM_H_
#define _RAD_RANDOM_H_
#ifdef __cplusplus
extern "C" {
#endif

#ifdef  _WIN32

#include <stdlib.h>

#if (RAND_MAX <= 65536)
#define random()        ((long)rand()<<16^(long)rand()<<6^(long)rand()>>4)
#else
#define random()        rand()
#endif
#define srandom(s)      srand((unsigned)(s))

#define frandom()       (rand()*(1./(RAND_MAX+.5)))

#else

extern long  lrand48();
extern double  drand48();

#define  random()       lrand48()
#define  srandom(s)     srand48((long)(s))
#define  frandom()      drand48()

#endif

extern unsigned short   *urperm;
extern int      urmask;

#define  urand(i)       (urmask ? (urperm[(i)&urmask]+frandom())/(urmask+1.) \
                                : frandom())

extern int      initurand(int size);

                                /* defined in urand.c */
extern int      ilhash(int *d, int n);
                                /* defined in urind.c */
extern int      urind(int s, int i);
                                /* defined in multisamp.c */
extern void     multisamp(double t[], int n, double r);


#ifdef __cplusplus
}
#endif
#endif /* _RAD_RANDOM_H_ */

Revision:	2.20
Committed:	Wed May 27 08:37:26 2015 UTC (10 years, 5 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.19:	+2 -10 lines
Log Message:	Make drand48() the standard random number generator even with -DBSD
#	User	Rev	Content
1	greg	2.20	/* RCSid $Id: random.h,v 2.19 2015/01/26 20:04:30 greg Exp $ */
2	greg	1.1	/*
3	greg	1.4	* random.h - header file for random(3) and urand() function.
4	greg	2.8	*/
5	schorsch	2.12	#ifndef _RAD_RANDOM_H_
6			#define _RAD_RANDOM_H_
7			#ifdef __cplusplus
8			extern "C" {
9			#endif
10	greg	1.1
11	schorsch	2.11	#ifdef _WIN32
12	greg	1.3
13	greg	2.19	#include <stdlib.h>
14
15	greg	2.10	#if (RAND_MAX <= 65536)
16	greg	2.3	#define random() ((long)rand()<<16^(long)rand()<<6^(long)rand()>>4)
17	greg	2.10	#else
18			#define random() rand()
19			#endif
20	gwlarson	2.7	#define srandom(s) srand((unsigned)(s))
21	greg	2.2
22	greg	2.18	#define frandom() (rand()*(1./(RAND_MAX+.5)))
23	greg	2.2
24			#else
25	greg	1.3
26			extern long lrand48();
27			extern double drand48();
28
29	greg	2.2	#define random() lrand48()
30	gwlarson	2.7	#define srandom(s) srand48((long)(s))
31	greg	2.2	#define frandom() drand48()
32	greg	1.3
33			#endif
34	greg	1.4
35	gregl	2.6	extern unsigned short *urperm;
36	greg	2.8	extern int urmask;
37	gregl	2.5
38	greg	2.20	#define urand(i) (urmask ? (urperm[(i)&urmask]+frandom())/(urmask+1.) \
39	greg	2.16	: frandom())
40	greg	2.8
41	greg	2.14	extern int initurand(int size);
42
43	greg	2.8	/* defined in urand.c */
44			extern int ilhash(int *d, int n);
45			/* defined in urind.c */
46			extern int urind(int s, int i);
47			/* defined in multisamp.c */
48			extern void multisamp(double t[], int n, double r);
49	gregl	2.5
50	schorsch	2.12
51			#ifdef __cplusplus
52			}
53	greg	2.4	#endif
54	schorsch	2.12	#endif /* _RAD_RANDOM_H_ */
55