47{
48
54
57
58 size_t nEle;
59 if (argc < 2)
60 {
61 nEle = 10;
62 }
63 else
64 {
65 nEle = std::stoi(argv[1]);
66 }
67
68 std::cout << "number of faces\t" << nEle
69 << "\t(assuming 4*4 nodes per face)\n";
70
71 size_t sizeScalar = 4 * 4 * nEle;
72 size_t nVars = 5;
73 size_t spaceDim = nVars - 2;
74 size_t sizeVec = sizeScalar / vec_t::width;
75
76 double gamma = 1.4;
77
78 std::vector<std::vector<double>> Fwd(nVars), Bwd(nVars), Flux(nVars);
79
80 for (size_t i = 0; i < nVars; ++i)
81 {
82 Fwd[i] = std::vector<double>(sizeScalar);
83 Bwd[i] = std::vector<double>(sizeScalar);
84 Flux[i] = std::vector<double>(sizeScalar);
85
86 for (size_t j = 0; j < sizeScalar; ++j)
87 {
88 Fwd[i][j] = 1.;
89 Bwd[i][j] = 1.;
90
91 if (i == nVars - 1)
92 {
93 Fwd[i][j] = 10.;
94 Bwd[i][j] = 10.;
95 }
96 Flux[i][j] = 0.;
97 }
98 }
99
100 std::vector<std::vector<vec_t, allocator<vec_t>>> alignedFwd(nVars),
101 alignedBwd(nVars), alignedFlux(nVars);
102
103 for (size_t i = 0; i < nVars; ++i)
104 {
105 alignedFwd[i] = std::vector<vec_t, allocator<vec_t>>(sizeVec);
106 alignedBwd[i] = std::vector<vec_t, allocator<vec_t>>(sizeVec);
107 alignedFlux[i] = std::vector<vec_t, allocator<vec_t>>(sizeVec);
108
109 for (size_t j = 0; j < sizeVec; ++j)
110 {
111 alignedFwd[i][j] = 1.;
112 alignedBwd[i][j] = 1.;
113
114 if (i == nVars - 1)
115 {
116 alignedFwd[i][j] = 10.;
117 alignedBwd[i][j] = 10.;
118 }
119 alignedFlux[i][j] = 0.;
120 }
121 }
122
123
124 constexpr size_t experiments = 1 << 18;
125
127 for (size_t j = 0; j < experiments; ++j)
128 {
129
130
131 for (size_t i = 0; i < sizeScalar; ++i)
132 {
133 double rhoL{}, rhouL{}, rhovL{}, rhowL{}, EL{};
134 double rhoR{}, rhouR{}, rhovR{}, rhowR{}, ER{};
135
136
137 rhoL = Fwd[0][i];
138 rhouL = Fwd[1][i];
139 EL = Fwd[spaceDim + 1][i];
140 rhoR = Bwd[0][i];
141 rhouR = Bwd[1][i];
142 ER = Bwd[spaceDim + 1][i];
143
144 if (spaceDim == 2)
145 {
146 rhovL = Fwd[2][i];
147 rhovR = Bwd[2][i];
148 }
149 else if (spaceDim == 3)
150 {
151 rhovL = Fwd[2][i];
152 rhowL = Fwd[3][i];
153 rhovR = Bwd[2][i];
154 rhowR = Bwd[3][i];
155 }
156
157 double rhof{}, rhouf{}, rhovf{}, rhowf{}, Ef{};
158
159 RoeKernel(rhoL, rhouL, rhovL, rhowL, EL, rhoR, rhouR, rhovR, rhowR,
160 ER, rhof, rhouf, rhovf, rhowf, Ef, gamma);
161
162
163 Flux[0][i] = rhof;
164 Flux[1][i] = rhouf;
165 Flux[nVars - 1][i] = Ef;
166 if (spaceDim == 2)
167 {
168 Flux[2][i] = rhovf;
169 }
170 else if (spaceDim == 3)
171 {
172 Flux[2][i] = rhovf;
173 Flux[3][i] = rhowf;
174 }
175
176 }
177 }
179
180 constexpr short CPU_CLK_UNHALTED_REF_id = 2;
181 int nevents{20};
182 std::vector<double> events(nevents);
183 double time;
184 int count;
185 boost::ignore_unused(time, count);
186
188
189 double cpeScalar =
190 events[CPU_CLK_UNHALTED_REF_id] / sizeScalar / experiments;
191 std::cout << "scalar likwid CPE\t" << cpeScalar << '\n';
192
193 std::cout << Flux[0][0] << std::endl;
194
196
197 for (size_t j = 0; j < experiments; ++j)
198 {
199
200 for (size_t i = 0; i < sizeScalar; i += vec_t::width)
201 {
202 vec_t rhoL{}, rhouL{}, rhovL{}, rhowL{}, EL{};
203 vec_t rhoR{}, rhouR{}, rhovR{}, rhowR{}, ER{};
204
205
212
213 if (spaceDim == 2)
214 {
217 }
218 else if (spaceDim == 3)
219 {
224 }
225
226 vec_t rhof{}, rhouf{}, rhovf{}, rhowf{}, Ef{};
227
228 RoeKernel(rhoL, rhouL, rhovL, rhowL, EL, rhoR, rhouR, rhovR, rhowR,
229 ER, rhof, rhouf, rhovf, rhowf, Ef, gamma);
230
231
235 if (spaceDim == 2)
236 {
238 }
239 else if (spaceDim == 3)
240 {
243 }
244
245 }
246 }
248
250
251 double cpeVector =
252 events[CPU_CLK_UNHALTED_REF_id] / sizeScalar / experiments;
253 std::cout << "vector likwid CPE\t" << cpeVector << '\t'
254 << cpeScalar / cpeVector << " %\n";
255
256 std::cout << Flux[0][0] << std::endl;
257
259
260 for (size_t j = 0; j < experiments; ++j)
261 {
262
263 for (size_t i = 0; i < sizeVec; ++i)
264 {
265 vec_t rhoL{}, rhouL{}, rhovL{}, rhowL{}, EL{};
266 vec_t rhoR{}, rhouR{}, rhovR{}, rhowR{}, ER{};
267
268
269 rhoL = alignedFwd[0][i];
270 rhouL = alignedFwd[1][i];
271 EL = alignedFwd[spaceDim + 1][i];
272 rhoR = alignedBwd[0][i];
273 rhouR = alignedBwd[1][i];
274 ER = alignedBwd[spaceDim + 1][i];
275
276 if (spaceDim == 2)
277 {
278 rhovL = alignedFwd[2][i];
279 rhovR = alignedBwd[2][i];
280 }
281 else if (spaceDim == 3)
282 {
283 rhovL = alignedFwd[2][i];
284 rhowL = alignedFwd[3][i];
285 rhovR = alignedBwd[2][i];
286 rhowR = alignedBwd[3][i];
287 }
288
289 vec_t rhof{}, rhouf{}, rhovf{}, rhowf{}, Ef{};
290
291 RoeKernel(rhoL, rhouL, rhovL, rhowL, EL, rhoR, rhouR, rhovR, rhowR,
292 ER, rhof, rhouf, rhovf, rhowf, Ef, gamma);
293
294
295 alignedFlux[0][i] = rhof;
296 alignedFlux[1][i] = rhouf;
297 alignedFlux[nVars - 1][i] = Ef;
298 if (spaceDim == 2)
299 {
300 alignedFlux[2][i] = rhovf;
301 }
302 else if (spaceDim == 3)
303 {
304 alignedFlux[2][i] = rhovf;
305 alignedFlux[3][i] = rhowf;
306 }
307
308 }
309 }
311
313
314 double cpevectorOfVector =
315 events[CPU_CLK_UNHALTED_REF_id] / sizeScalar / experiments;
316 std::cout << "vectorOfVector likwid CPE\t" << cpevectorOfVector << '\t'
317 << cpeScalar / cpevectorOfVector << " %\n";
318
319 std::cout << alignedFlux[0][0][0] << std::endl;
320
322}
#define LIKWID_MARKER_THREADINIT
#define LIKWID_MARKER_START(regionTag)
#define LIKWID_MARKER_CLOSE
#define LIKWID_MARKER_INIT
#define LIKWID_MARKER_REGISTER(regionTag)
#define LIKWID_MARKER_STOP(regionTag)
#define LIKWID_MARKER_GET(regionTag, nevents, events, time, count)
void RoeKernel(T &rhoL, T &rhouL, T &rhovL, T &rhowL, T &EL, T &rhoR, T &rhouR, T &rhovR, T &rhowR, T &ER, T &rhof, T &rhouf, T &rhovf, T &rhowf, T &Ef, NekDouble gamma)
tinysimd::simd< NekDouble > vec_t
static constexpr struct tinysimd::is_not_aligned_t is_not_aligned
typename abi< ScalarType, width >::type simd