rlm@1: /** 
rlm@1:  * @file SFMT.h 
rlm@1:  *
rlm@1:  * @brief SIMD oriented Fast Mersenne Twister(SFMT) pseudorandom
rlm@1:  * number generator
rlm@1:  *
rlm@1:  * @author Mutsuo Saito (Hiroshima University)
rlm@1:  * @author Makoto Matsumoto (Hiroshima University)
rlm@1:  *
rlm@1:  * Copyright (C) 2006, 2007 Mutsuo Saito, Makoto Matsumoto and Hiroshima
rlm@1:  * University. All rights reserved.
rlm@1:  *
rlm@1:  * The new BSD License is applied to this software.
rlm@1:  * see LICENSE.txt
rlm@1:  *
rlm@1:  * @note We assume that your system has inttypes.h.  If your system
rlm@1:  * doesn't have inttypes.h, you have to typedef uint32_t and uint64_t,
rlm@1:  * and you have to define PRIu64 and PRIx64 in this file as follows:
rlm@1:  * @verbatim
rlm@1:  typedef unsigned int uint32_t
rlm@1:  typedef unsigned long long uint64_t  
rlm@1:  #define PRIu64 "llu"
rlm@1:  #define PRIx64 "llx"
rlm@1: @endverbatim
rlm@1:  * uint32_t must be exactly 32-bit unsigned integer type (no more, no
rlm@1:  * less), and uint64_t must be exactly 64-bit unsigned integer type.
rlm@1:  * PRIu64 and PRIx64 are used for printf function to print 64-bit
rlm@1:  * unsigned int and 64-bit unsigned int in hexadecimal format.
rlm@1:  */
rlm@1: 
rlm@1: #ifndef SFMT_H
rlm@1: #define SFMT_H
rlm@1: 
rlm@1: #include <stdio.h>
rlm@1: 
rlm@1: #if defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L)
rlm@1:   #include <inttypes.h>
rlm@1: #elif defined(_MSC_VER) || defined(__BORLANDC__)
rlm@1:   typedef unsigned int uint32_t;
rlm@1:   typedef unsigned __int64 uint64_t;
rlm@1:   #define inline __inline
rlm@1: #else
rlm@1:   #include <inttypes.h>
rlm@1:   #if defined(__GNUC__)
rlm@1:     #define inline __inline__
rlm@1:   #endif
rlm@1: #endif
rlm@1: 
rlm@1: #ifndef PRIu64
rlm@1:   #if defined(_MSC_VER) || defined(__BORLANDC__)
rlm@1:     #define PRIu64 "I64u"
rlm@1:     #define PRIx64 "I64x"
rlm@1:   #else
rlm@1:     #define PRIu64 "llu"
rlm@1:     #define PRIx64 "llx"
rlm@1:   #endif
rlm@1: #endif
rlm@1: 
rlm@1: #if defined(__GNUC__)
rlm@1: #define ALWAYSINLINE __attribute__((always_inline))
rlm@1: #else
rlm@1: #define ALWAYSINLINE
rlm@1: #endif
rlm@1: 
rlm@1: #if defined(_MSC_VER)
rlm@1:   #if _MSC_VER >= 1200
rlm@1:     #define PRE_ALWAYS __forceinline
rlm@1:   #else
rlm@1:     #define PRE_ALWAYS inline
rlm@1:   #endif
rlm@1: #else
rlm@1:   #define PRE_ALWAYS inline
rlm@1: #endif
rlm@1: 
rlm@1: #if defined(__cplusplus) || defined(c_plusplus)
rlm@1: //extern "C" {
rlm@1: #endif
rlm@1: 
rlm@1: uint32_t gen_rand32(void);
rlm@1: uint64_t gen_rand64(void);
rlm@1: void fill_array32(uint32_t *array, int size);
rlm@1: void fill_array64(uint64_t *array, int size);
rlm@1: void init_gen_rand(uint32_t seed);
rlm@1: void init_by_array(uint32_t *init_key, int key_length);
rlm@1: const char *get_idstring(void);
rlm@1: int get_min_array_size32(void);
rlm@1: int get_min_array_size64(void);
rlm@1: 
rlm@1: #if defined(__cplusplus) || defined(c_plusplus)
rlm@1: //} // end extern
rlm@1: #endif
rlm@1: 
rlm@1: /* These real versions are due to Isaku Wada */
rlm@1: /** generates a random number on [0,1]-real-interval */
rlm@1: inline static double to_real1(uint32_t v)
rlm@1: {
rlm@1:     return v * (1.0/4294967295.0); 
rlm@1:     /* divided by 2^32-1 */ 
rlm@1: }
rlm@1: 
rlm@1: /** generates a random number on [0,1]-real-interval */
rlm@1: inline static double genrand_real1(void)
rlm@1: {
rlm@1:     return to_real1(gen_rand32());
rlm@1: }
rlm@1: 
rlm@1: /** generates a random number on [0,1)-real-interval */
rlm@1: inline static double to_real2(uint32_t v)
rlm@1: {
rlm@1:     return v * (1.0/4294967296.0); 
rlm@1:     /* divided by 2^32 */
rlm@1: }
rlm@1: 
rlm@1: /** generates a random number on [0,1)-real-interval */
rlm@1: inline static double genrand_real2(void)
rlm@1: {
rlm@1:     return to_real2(gen_rand32());
rlm@1: }
rlm@1: 
rlm@1: /** generates a random number on (0,1)-real-interval */
rlm@1: inline static double to_real3(uint32_t v)
rlm@1: {
rlm@1:     return (((double)v) + 0.5)*(1.0/4294967296.0); 
rlm@1:     /* divided by 2^32 */
rlm@1: }
rlm@1: 
rlm@1: /** generates a random number on (0,1)-real-interval */
rlm@1: inline static double genrand_real3(void)
rlm@1: {
rlm@1:     return to_real3(gen_rand32());
rlm@1: }
rlm@1: /** These real versions are due to Isaku Wada */
rlm@1: 
rlm@1: /** generates a random number on [0,1) with 53-bit resolution*/
rlm@1: inline static double to_res53(uint64_t v) 
rlm@1: { 
rlm@1:     return v * (1.0/18446744073709551616.0L);
rlm@1: }
rlm@1: 
rlm@1: /** generates a random number on [0,1) with 53-bit resolution from two
rlm@1:  * 32 bit integers */
rlm@1: inline static double to_res53_mix(uint32_t x, uint32_t y) 
rlm@1: { 
rlm@1:     return to_res53(x | ((uint64_t)y << 32));
rlm@1: }
rlm@1: 
rlm@1: /** generates a random number on [0,1) with 53-bit resolution
rlm@1:  */
rlm@1: inline static double genrand_res53(void) 
rlm@1: { 
rlm@1:     return to_res53(gen_rand64());
rlm@1: } 
rlm@1: 
rlm@1: /** generates a random number on [0,1) with 53-bit resolution
rlm@1:     using 32bit integer.
rlm@1:  */
rlm@1: inline static double genrand_res53_mix(void) 
rlm@1: { 
rlm@1:     uint32_t x, y;
rlm@1: 
rlm@1:     x = gen_rand32();
rlm@1:     y = gen_rand32();
rlm@1:     return to_res53_mix(x, y);
rlm@1: } 
rlm@1: #endif