MCKL
Monte Carlo Kernel Library
threefry_unroll.hpp
Go to the documentation of this file.
1 //============================================================================
2 // MCKL/include/mckl/random/internal/threefry_unroll.hpp
3 //----------------------------------------------------------------------------
4 // MCKL: Monte Carlo Kernel Library
5 //----------------------------------------------------------------------------
6 // Copyright (c) 2013-2018, Yan Zhou
7 // All rights reserved.
8 //
9 // Redistribution and use in source and binary forms, with or without
10 // modification, are permitted provided that the following conditions are met:
11 //
12 // Redistributions of source code must retain the above copyright notice,
13 // this list of conditions and the following disclaimer.
14 //
15 // Redistributions in binary form must reproduce the above copyright notice,
16 // this list of conditions and the following disclaimer in the documentation
17 // and/or other materials provided with the distribution.
18 //
19 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS AS IS
20 // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 // ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
23 // LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 // CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 // SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 // INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 // CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 // ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 // POSSIBILITY OF SUCH DAMAGE.
30 //============================================================================
31 
32 #ifndef MCKL_RANDOM_INTERNAL_THREEFRY_UNROLL_HPP
33 #define MCKL_RANDOM_INTERNAL_THREEFRY_UNROLL_HPP
34 
35 #define MCKL_RANDOM_INTERNAL_THREEFRY_UNROLL(N, s, par) \
36  MCKL_INLINE_CALL rbox<N + 0x0>(s); \
37  MCKL_INLINE_CALL kbox<N + 0x0>(s, par); \
38  MCKL_INLINE_CALL rbox<N + 0x1>(s); \
39  MCKL_INLINE_CALL kbox<N + 0x1>(s, par); \
40  MCKL_INLINE_CALL rbox<N + 0x2>(s); \
41  MCKL_INLINE_CALL kbox<N + 0x2>(s, par); \
42  MCKL_INLINE_CALL rbox<N + 0x3>(s); \
43  MCKL_INLINE_CALL kbox<N + 0x3>(s, par); \
44  MCKL_INLINE_CALL rbox<N + 0x4>(s); \
45  MCKL_INLINE_CALL kbox<N + 0x4>(s, par); \
46  MCKL_INLINE_CALL rbox<N + 0x5>(s); \
47  MCKL_INLINE_CALL kbox<N + 0x5>(s, par); \
48  MCKL_INLINE_CALL rbox<N + 0x6>(s); \
49  MCKL_INLINE_CALL kbox<N + 0x6>(s, par); \
50  MCKL_INLINE_CALL rbox<N + 0x7>(s); \
51  MCKL_INLINE_CALL kbox<N + 0x7>(s, par); \
52  MCKL_INLINE_CALL rbox<N + 0x8>(s); \
53  MCKL_INLINE_CALL kbox<N + 0x8>(s, par); \
54  MCKL_INLINE_CALL rbox<N + 0x9>(s); \
55  MCKL_INLINE_CALL kbox<N + 0x9>(s, par); \
56  MCKL_INLINE_CALL rbox<N + 0xA>(s); \
57  MCKL_INLINE_CALL kbox<N + 0xA>(s, par); \
58  MCKL_INLINE_CALL rbox<N + 0xB>(s); \
59  MCKL_INLINE_CALL kbox<N + 0xB>(s, par); \
60  MCKL_INLINE_CALL rbox<N + 0xC>(s); \
61  MCKL_INLINE_CALL kbox<N + 0xC>(s, par); \
62  MCKL_INLINE_CALL rbox<N + 0xD>(s); \
63  MCKL_INLINE_CALL kbox<N + 0xD>(s, par); \
64  MCKL_INLINE_CALL rbox<N + 0xE>(s); \
65  MCKL_INLINE_CALL kbox<N + 0xE>(s, par); \
66  MCKL_INLINE_CALL rbox<N + 0xF>(s); \
67  MCKL_INLINE_CALL kbox<N + 0xF>(s, par);
68 
69 #define MCKL_RANDOM_INTERNAL_THREEFRY_UNROLL_ROUND(N, s, par) \
70  MCKL_RANDOM_INTERNAL_THREEFRY_UNROLL(N + 0x00, s, par) \
71  MCKL_RANDOM_INTERNAL_THREEFRY_UNROLL(N + 0x10, s, par) \
72  round<N + 0x20>( \
73  s, par, std::integral_constant<bool, N + 0x20 <= Rounds>());
74 
75 #endif // MCKL_RANDOM_INTERNAL_THREEFRY_UNROLL_HPP