Mercurial > vba-clojure

view src/SFMT/SFMT-params19937.h @ 514:a00981db92da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
can now display black and white images (still working on color).
author Robert McIntyre <rlm@mit.edu>
date Fri, 22 Jun 2012 21:03:04 -0500
parents f9f4f1b99eed
children
line wrap: on
line source
     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 */