Mercurial > vba-clojure

comparison src/SFMT/SFMT-params19937.h @ 23:bf9169ad4222

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add SMID-oriented fast mersenne twister
author Robert McIntyre <rlm@mit.edu>
date Sun, 04 Mar 2012 17:38:32 -0600
parents f9f4f1b99eed
children
comparison
equal deleted inserted replaced
22:8870086b716c 23:bf9169ad4222
1 #ifndef SFMT_PARAMS19937_H
2 #define SFMT_PARAMS19937_H
3
4 #define POS1 122
5 #define SL1 18
6 #define SL2 1
7 #define SR1 11
8 #define SR2 1
9 #define MSK1 0xdfffffefU
10 #define MSK2 0xddfecb7fU
11 #define MSK3 0xbffaffffU
12 #define MSK4 0xbffffff6U
13 #define PARITY1 0x00000001U
14 #define PARITY2 0x00000000U
15 #define PARITY3 0x00000000U
16 #define PARITY4 0x13c9e684U
17
18
19 /* PARAMETERS FOR ALTIVEC */
20 #if defined(__APPLE__) /* For OSX */
21 #define ALTI_SL1 (vector unsigned int)(SL1, SL1, SL1, SL1)
22 #define ALTI_SR1 (vector unsigned int)(SR1, SR1, SR1, SR1)
23 #define ALTI_MSK (vector unsigned int)(MSK1, MSK2, MSK3, MSK4)
24 #define ALTI_MSK64 \
25 (vector unsigned int)(MSK2, MSK1, MSK4, MSK3)
26 #define ALTI_SL2_PERM \
27 (vector unsigned char)(1,2,3,23,5,6,7,0,9,10,11,4,13,14,15,8)
28 #define ALTI_SL2_PERM64 \
29 (vector unsigned char)(1,2,3,4,5,6,7,31,9,10,11,12,13,14,15,0)
30 #define ALTI_SR2_PERM \
31 (vector unsigned char)(7,0,1,2,11,4,5,6,15,8,9,10,17,12,13,14)
32 #define ALTI_SR2_PERM64 \
33 (vector unsigned char)(15,0,1,2,3,4,5,6,17,8,9,10,11,12,13,14)
34 #else /* For OTHER OSs(Linux?) */
35 #define ALTI_SL1 {SL1, SL1, SL1, SL1}
36 #define ALTI_SR1 {SR1, SR1, SR1, SR1}
37 #define ALTI_MSK {MSK1, MSK2, MSK3, MSK4}
38 #define ALTI_MSK64 {MSK2, MSK1, MSK4, MSK3}
39 #define ALTI_SL2_PERM {1,2,3,23,5,6,7,0,9,10,11,4,13,14,15,8}
40 #define ALTI_SL2_PERM64 {1,2,3,4,5,6,7,31,9,10,11,12,13,14,15,0}
41 #define ALTI_SR2_PERM {7,0,1,2,11,4,5,6,15,8,9,10,17,12,13,14}
42 #define ALTI_SR2_PERM64 {15,0,1,2,3,4,5,6,17,8,9,10,11,12,13,14}
43 #endif /* For OSX */
44 #define IDSTR "SFMT-19937:122-18-1-11-1:dfffffef-ddfecb7f-bffaffff-bffffff6"
45
46 #endif /* SFMT_PARAMS19937_H */