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 [[maybe_unused]] double time;
184 [[maybe_unused]] int count;
185
187
188 double cpeScalar =
189 events[CPU_CLK_UNHALTED_REF_id] / sizeScalar / experiments;
190 std::cout << "scalar likwid CPE\t" << cpeScalar << '\n';
191
192 std::cout << Flux[0][0] << std::endl;
193
195
196 for (size_t j = 0; j < experiments; ++j)
197 {
198
199 for (size_t i = 0; i < sizeScalar; i += vec_t::width)
200 {
201 vec_t rhoL{}, rhouL{}, rhovL{}, rhowL{}, EL{};
202 vec_t rhoR{}, rhouR{}, rhovR{}, rhowR{}, ER{};
203
204
211
212 if (spaceDim == 2)
213 {
216 }
217 else if (spaceDim == 3)
218 {
223 }
224
225 vec_t rhof{}, rhouf{}, rhovf{}, rhowf{}, Ef{};
226
227 RoeKernel(rhoL, rhouL, rhovL, rhowL, EL, rhoR, rhouR, rhovR, rhowR,
228 ER, rhof, rhouf, rhovf, rhowf, Ef, gamma);
229
230
234 if (spaceDim == 2)
235 {
237 }
238 else if (spaceDim == 3)
239 {
242 }
243
244 }
245 }
247
249
250 double cpeVector =
251 events[CPU_CLK_UNHALTED_REF_id] / sizeScalar / experiments;
252 std::cout << "vector likwid CPE\t" << cpeVector << '\t'
253 << cpeScalar / cpeVector << " %\n";
254
255 std::cout << Flux[0][0] << std::endl;
256
258
259 for (size_t j = 0; j < experiments; ++j)
260 {
261
262 for (size_t i = 0; i < sizeVec; ++i)
263 {
264 vec_t rhoL{}, rhouL{}, rhovL{}, rhowL{}, EL{};
265 vec_t rhoR{}, rhouR{}, rhovR{}, rhowR{}, ER{};
266
267
268 rhoL = alignedFwd[0][i];
269 rhouL = alignedFwd[1][i];
270 EL = alignedFwd[spaceDim + 1][i];
271 rhoR = alignedBwd[0][i];
272 rhouR = alignedBwd[1][i];
273 ER = alignedBwd[spaceDim + 1][i];
274
275 if (spaceDim == 2)
276 {
277 rhovL = alignedFwd[2][i];
278 rhovR = alignedBwd[2][i];
279 }
280 else if (spaceDim == 3)
281 {
282 rhovL = alignedFwd[2][i];
283 rhowL = alignedFwd[3][i];
284 rhovR = alignedBwd[2][i];
285 rhowR = alignedBwd[3][i];
286 }
287
288 vec_t rhof{}, rhouf{}, rhovf{}, rhowf{}, Ef{};
289
290 RoeKernel(rhoL, rhouL, rhovL, rhowL, EL, rhoR, rhouR, rhovR, rhowR,
291 ER, rhof, rhouf, rhovf, rhowf, Ef, gamma);
292
293
294 alignedFlux[0][i] = rhof;
295 alignedFlux[1][i] = rhouf;
296 alignedFlux[nVars - 1][i] = Ef;
297 if (spaceDim == 2)
298 {
299 alignedFlux[2][i] = rhovf;
300 }
301 else if (spaceDim == 3)
302 {
303 alignedFlux[2][i] = rhovf;
304 alignedFlux[3][i] = rhowf;
305 }
306
307 }
308 }
310
312
313 double cpevectorOfVector =
314 events[CPU_CLK_UNHALTED_REF_id] / sizeScalar / experiments;
315 std::cout << "vectorOfVector likwid CPE\t" << cpevectorOfVector << '\t'
316 << cpeScalar / cpevectorOfVector << " %\n";
317
318 std::cout << alignedFlux[0][0][0] << std::endl;
319
321}
#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