Bridge++  Ver. 1.3.x
fopr_Wilson_eo_impl_thread.cpp
Go to the documentation of this file.
1 
14 #include "fopr_Wilson_eo_impl.h"
15 
16 #include "field_G.h"
17 #include "bridgeIO.h"
18 using Bridge::vout;
19 
20 #include "threadManager_OpenMP.h"
21 
22 
23 #if defined USE_GROUP_SU3
24 #include "fopr_Wilson_impl_SU3.inc"
25 #elif defined USE_GROUP_SU2
26 #include "fopr_Wilson_impl_SU2.inc"
27 #elif defined USE_GROUP_SU_N
28 #include "fopr_Wilson_impl_SU_N.inc"
29 #endif
30 
31 //====================================================================
32 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::setup_thread()
33 {
34  m_Nthread = ThreadManager_OpenMP::get_num_threads_available();
35 
36  // The following setup corresponds to uniform division of volume.
37  if (m_Nthread <= m_Nt) {
38  m_Ntask_t = m_Nthread;
39  } else if (m_Nthread <= m_Nz * m_Nt) {
40  m_Ntask_t = m_Nt;
41  } else {
42  vout.crucial(m_vl, "%s: Too large Nthread = %d\n", class_name.c_str(), m_Nthread);
43  exit(EXIT_FAILURE);
44  }
45 
46  m_Ntask_z = m_Nthread / m_Ntask_t;
47 
48  if (m_Ntask_z * m_Ntask_t != m_Nthread) {
49  vout.crucial(m_vl, "%s: Nz = %d and Nt = %d do not match Nthread = %d\n",
50  class_name.c_str(), m_Nz, m_Nt, m_Nthread);
51  exit(EXIT_FAILURE);
52  }
53 
54  m_Ntask = m_Ntask_t * m_Ntask_z;
55  m_Mz = m_Nz / m_Ntask_z;
56  m_Mt = m_Nt / m_Ntask_t;
57 
58  if (m_Mz * m_Ntask_z != m_Nz) {
59  vout.crucial(m_vl, "%s: Mz = %d and Ntask_z = %d do not match Nz = %d\n",
60  class_name.c_str(), m_Mz, m_Ntask_z, m_Nz);
61  exit(EXIT_FAILURE);
62  }
63 
64  if (m_Mt * m_Ntask_t != m_Nt) {
65  vout.crucial(m_vl, "%s: Mt = %d and Ntask_t = %d do not match Nt = %d\n",
66  class_name.c_str(), m_Mt, m_Ntask_t, m_Nt);
67  exit(EXIT_FAILURE);
68  }
69 
70  vout.general(m_vl, " Nthread = %d\n", m_Nthread);
71  vout.general(m_vl, " Ntask = %d\n", m_Ntask);
72  vout.general(m_vl, " Ntask_z = %d Ntask_t = %d\n", m_Ntask_z, m_Ntask_t);
73  vout.general(m_vl, " Mz = %d Mt = %d\n", m_Mz, m_Mt);
74 
75  // setup of arguments
76  int Nxy2 = m_Nx2 * m_Ny;
77  m_arg.resize(m_Ntask);
78  for (int ith_t = 0; ith_t < m_Ntask_t; ++ith_t) {
79  for (int ith_z = 0; ith_z < m_Ntask_z; ++ith_z) {
80  int itask = ith_z + m_Ntask_z * ith_t;
81 
82  m_arg[itask].isite = (ith_z * m_Mz + ith_t * (m_Nz * m_Mt)) * Nxy2;
83 
84  m_arg[itask].kt0 = 0;
85  m_arg[itask].kt1 = 0;
86  m_arg[itask].kz0 = 0;
87  m_arg[itask].kz1 = 0;
88  if (ith_t == 0) m_arg[itask].kt0 = 1;
89  if (ith_z == 0) m_arg[itask].kz0 = 1;
90  if (ith_t == m_Ntask_t - 1) m_arg[itask].kt1 = 1;
91  if (ith_z == m_Ntask_z - 1) m_arg[itask].kz1 = 1;
92 
93  m_arg[itask].isite_cpx = itask * m_Mz * m_Mt * (m_Ny / 2);
94  m_arg[itask].isite_cpy = itask * m_Mz * m_Mt * m_Nx2;
95  m_arg[itask].isite_cpz = ith_t * m_Mt * Nxy2;
96  m_arg[itask].isite_cpt = ith_z * m_Mz * Nxy2;
97  }
98  }
99 }
100 
101 
102 //====================================================================
103 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::scal_thread(int itask,
104  double *w, double fac)
105 {
106  int Nvcd = m_Nvc * m_Nd;
107  int Nvxy = Nvcd * m_Nx2 * m_Ny;
108 
109  int isite = m_arg[itask].isite;
110  double *wp = &w[Nvcd * isite];
111 
112  for (int it = 0; it < m_Mt; ++it) {
113  for (int iz = 0; iz < m_Mz; ++iz) {
114  for (int ivxy = 0; ivxy < Nvxy; ++ivxy) {
115  int iv = ivxy + Nvxy * (iz + m_Nz * it);
116  wp[iv] = fac * wp[iv];
117  }
118  }
119  }
120 }
121 
122 
123 //====================================================================
124 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::clear_thread(int itask,
125  double *v)
126 {
127  int Nvcd = m_Nvc * m_Nd;
128  int Nvxy = Nvcd * m_Nx2 * m_Ny;
129 
130  int isite = m_arg[itask].isite;
131  double *wp = &v[Nvcd * isite];
132 
133  for (int it = 0; it < m_Mt; ++it) {
134  for (int iz = 0; iz < m_Mz; ++iz) {
135  for (int ivxy = 0; ivxy < Nvxy; ++ivxy) {
136  int iv = ivxy + Nvxy * (iz + m_Nz * it);
137  wp[iv] = 0.0;
138  }
139  }
140  }
141 }
142 
143 
144 //====================================================================
145 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_xp1_thread(
146  int itask, double *vcp1, const double *v1, int ieo)
147 {
148  int Nvc2 = 2 * m_Nvc;
149  int Nvcd = m_Nvc * m_Nd;
150  int Nvcd2 = Nvcd / 2;
151 
152  int id1 = 0;
153  int id2 = m_Nvc;
154  int id3 = m_Nvc * 2;
155  int id4 = m_Nvc * 3;
156 
157  int isite = m_arg[itask].isite;
158  int isite_cp = m_arg[itask].isite_cpx;
159  int iyzt0 = isite / m_Nx2;
160 
161  const double *w1 = &v1[Nvcd * isite];
162  double *w2 = &vcp1[Nvcd2 * isite_cp];
163 
164  int idir = 0;
165  double bc2 = m_boundary2[idir];
166 
167  int ix = 0;
168  int ibf = 0;
169 
170  for (int it = 0; it < m_Mt; ++it) {
171  for (int iz = 0; iz < m_Mz; ++iz) {
172  for (int iy = 0; iy < m_Ny; ++iy) {
173  int iyzt = iy + m_Ny * (iz + m_Nz * it);
174  int Leo = ieo + (1 - 2 * ieo) * m_Leo[iyzt0 + iyzt];
175  if (Leo == 1) {
176  int is = ix + m_Nx2 * iyzt;
177  int in = Nvcd * is;
178 
179  int ix1 = Nvc2 * ibf;
180  int ix2 = ix1 + m_Nvc;
181 
182  for (int ic = 0; ic < m_Nc; ++ic) {
183  w2[2 * ic + ix1] = bc2 * (w1[2 * ic + id1 + in] - w1[2 * ic + 1 + id4 + in]);
184  w2[2 * ic + 1 + ix1] = bc2 * (w1[2 * ic + 1 + id1 + in] + w1[2 * ic + id4 + in]);
185  w2[2 * ic + ix2] = bc2 * (w1[2 * ic + id2 + in] - w1[2 * ic + 1 + id3 + in]);
186  w2[2 * ic + 1 + ix2] = bc2 * (w1[2 * ic + 1 + id2 + in] + w1[2 * ic + id3 + in]);
187  }
188  ++ibf;
189  }
190  }
191  }
192  }
193 }
194 
195 
196 //====================================================================
197 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_xp2_thread(
198  int itask, double *v2, const double *vcp2, int ieo)
199 {
200  int Nvc2 = 2 * m_Nvc;
201  int Nvcd = m_Nvc * m_Nd;
202  int Nvcd2 = Nvcd / 2;
203 
204  int id1 = 0;
205  int id2 = m_Nvc;
206  int id3 = m_Nvc * 2;
207  int id4 = m_Nvc * 3;
208 
209  int idir = 0;
210 
211  double wt1r, wt1i, wt2r, wt2i;
212 
213  int isite = m_arg[itask].isite;
214  int isite_cp = m_arg[itask].isite_cpx;
215  int iyzt0 = isite / m_Nx2;
216 
217  const double *w1 = &vcp2[Nvcd2 * isite_cp];
218  double *w2 = &v2[Nvcd * isite];
219  const double *u = m_U->ptr(m_Ndf * (isite + ieo * m_Nvol / 2 + idir * m_Nvol));
220 
221  int ix = m_Nx2 - 1;
222  int ibf = 0;
223 
224  for (int it = 0; it < m_Mt; ++it) {
225  for (int iz = 0; iz < m_Mz; ++iz) {
226  for (int iy = 0; iy < m_Ny; ++iy) {
227  int iyzt = iy + m_Ny * (iz + m_Nz * it);
228  int Leo = ieo + (1 - 2 * ieo) * m_Leo[iyzt0 + iyzt];
229 
230  if (Leo == 1) {
231  int is = ix + m_Nx2 * iyzt;
232  int iv = Nvcd * is;
233  int ig = m_Ndf * is;
234  int ix1 = Nvc2 * ibf;
235  int ix2 = ix1 + m_Nvc;
236 
237  for (int ic = 0; ic < m_Nc; ++ic) {
238  int ic2 = ic * m_Nvc;
239  wt1r = mult_uv_r(&u[ic2 + ig], &w1[ix1], m_Nc);
240  wt1i = mult_uv_i(&u[ic2 + ig], &w1[ix1], m_Nc);
241  wt2r = mult_uv_r(&u[ic2 + ig], &w1[ix2], m_Nc);
242  wt2i = mult_uv_i(&u[ic2 + ig], &w1[ix2], m_Nc);
243  w2[2 * ic + id1 + iv] += wt1r;
244  w2[2 * ic + 1 + id1 + iv] += wt1i;
245  w2[2 * ic + id2 + iv] += wt2r;
246  w2[2 * ic + 1 + id2 + iv] += wt2i;
247  w2[2 * ic + id3 + iv] += wt2i;
248  w2[2 * ic + 1 + id3 + iv] += -wt2r;
249  w2[2 * ic + id4 + iv] += wt1i;
250  w2[2 * ic + 1 + id4 + iv] += -wt1r;
251  }
252  ++ibf;
253  }
254  }
255  }
256  }
257 }
258 
259 
260 //====================================================================
261 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_xpb_thread(
262  int itask, double *v2, const double *v1, int ieo)
263 {
264  int Nvcd = m_Nvc * m_Nd;
265 
266  int id1 = 0;
267  int id2 = m_Nvc;
268  int id3 = m_Nvc * 2;
269  int id4 = m_Nvc * 3;
270 
271  int idir = 0;
272 
273  double vt1[m_Nvc], vt2[m_Nvc];
274  double wt1r, wt1i, wt2r, wt2i;
275 
276  int isite = m_arg[itask].isite;
277  int iyzt0 = isite / m_Nx2;
278 
279  const double *w1 = &v1[Nvcd * isite];
280  double *w2 = &v2[Nvcd * isite];
281  const double *u = m_U->ptr(m_Ndf * (isite + ieo * m_Nvol / 2 + idir * m_Nvol));
282 
283  for (int it = 0; it < m_Mt; ++it) {
284  for (int iz = 0; iz < m_Mz; ++iz) {
285  for (int iy = 0; iy < m_Ny; ++iy) {
286  int iyzt = iy + m_Ny * (iz + m_Nz * it);
287  int Leo = ieo + (1 - 2 * ieo) * m_Leo[iyzt0 + iyzt];
288  for (int ix = 0; ix < m_Nx2 - Leo; ++ix) {
289  int is = ix + m_Nx2 * iyzt;
290  int iv = Nvcd * is;
291  int in = Nvcd * (is + Leo);
292  int ig = m_Ndf * is;
293 
294  for (int ic = 0; ic < m_Nc; ++ic) {
295  vt1[2 * ic] = w1[2 * ic + id1 + in] - w1[2 * ic + 1 + id4 + in];
296  vt1[2 * ic + 1] = w1[2 * ic + 1 + id1 + in] + w1[2 * ic + id4 + in];
297  vt2[2 * ic] = w1[2 * ic + id2 + in] - w1[2 * ic + 1 + id3 + in];
298  vt2[2 * ic + 1] = w1[2 * ic + 1 + id2 + in] + w1[2 * ic + id3 + in];
299  }
300 
301  for (int ic = 0; ic < m_Nc; ++ic) {
302  int ic2 = ic * m_Nvc;
303 
304  wt1r = mult_uv_r(&u[ic2 + ig], vt1, m_Nc);
305  wt1i = mult_uv_i(&u[ic2 + ig], vt1, m_Nc);
306  wt2r = mult_uv_r(&u[ic2 + ig], vt2, m_Nc);
307  wt2i = mult_uv_i(&u[ic2 + ig], vt2, m_Nc);
308 
309  w2[2 * ic + id1 + iv] += wt1r;
310  w2[2 * ic + 1 + id1 + iv] += wt1i;
311  w2[2 * ic + id2 + iv] += wt2r;
312  w2[2 * ic + 1 + id2 + iv] += wt2i;
313  w2[2 * ic + id3 + iv] += wt2i;
314  w2[2 * ic + 1 + id3 + iv] += -wt2r;
315  w2[2 * ic + id4 + iv] += wt1i;
316  w2[2 * ic + 1 + id4 + iv] += -wt1r;
317  }
318  }
319  }
320  }
321  }
322 }
323 
324 
325 //====================================================================
326 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_xm1_thread(
327  int itask, double *vcp1, const double *v1, int ieo)
328 {
329  int Nvc2 = 2 * m_Nvc;
330  int Nvcd = m_Nvc * m_Nd;
331  int Nvcd2 = Nvcd / 2;
332 
333  int id1 = 0;
334  int id2 = m_Nvc;
335  int id3 = m_Nvc * 2;
336  int id4 = m_Nvc * 3;
337 
338  int idir = 0;
339 
340  int isite = m_arg[itask].isite;
341  int isite_cp = m_arg[itask].isite_cpx;
342  int iyzt0 = isite / m_Nx2;
343 
344  const double *w1 = &v1[Nvcd * isite];
345  double *w2 = &vcp1[Nvcd2 * isite_cp];
346  const double *u = m_U->ptr(m_Ndf * (isite + (1 - ieo) * m_Nvol / 2 + idir * m_Nvol));
347 
348  double vt1[m_Nvc], vt2[m_Nvc];
349 
350  int ix = m_Nx2 - 1;
351  int ibf = 0;
352 
353  for (int it = 0; it < m_Mt; ++it) {
354  for (int iz = 0; iz < m_Mz; ++iz) {
355  for (int iy = 0; iy < m_Ny; ++iy) {
356  int iyzt = iy + m_Ny * (iz + m_Nz * it);
357  int Leo = ieo + (1 - 2 * ieo) * m_Leo[iyzt0 + iyzt];
358  if (Leo == 0) {
359  int is = ix + m_Nx2 * iyzt;
360  int in = Nvcd * is;
361  int ig = m_Ndf * is;
362 
363  int ix1 = Nvc2 * ibf;
364  int ix2 = ix1 + m_Nvc;
365 
366  for (int ic = 0; ic < m_Nc; ++ic) {
367  vt1[2 * ic] = w1[2 * ic + id1 + in] + w1[2 * ic + 1 + id4 + in];
368  vt1[2 * ic + 1] = w1[2 * ic + 1 + id1 + in] - w1[2 * ic + id4 + in];
369  vt2[2 * ic] = w1[2 * ic + id2 + in] + w1[2 * ic + 1 + id3 + in];
370  vt2[2 * ic + 1] = w1[2 * ic + 1 + id2 + in] - w1[2 * ic + id3 + in];
371  }
372 
373  for (int ic = 0; ic < m_Nc; ++ic) {
374  int icr = 2 * ic;
375  w2[icr + ix1] = mult_udagv_r(&u[icr + ig], vt1, m_Nc);
376  w2[icr + 1 + ix1] = mult_udagv_i(&u[icr + ig], vt1, m_Nc);
377  w2[icr + ix2] = mult_udagv_r(&u[icr + ig], vt2, m_Nc);
378  w2[icr + 1 + ix2] = mult_udagv_i(&u[icr + ig], vt2, m_Nc);
379  }
380  ++ibf;
381  }
382  }
383  }
384  }
385 }
386 
387 
388 //====================================================================
389 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_xm2_thread(
390  int itask, double *v2, const double *vcp2, int ieo)
391 {
392  int Nvc2 = 2 * m_Nvc;
393  int Nvcd = m_Nvc * m_Nd;
394  int Nvcd2 = Nvcd / 2;
395 
396  int id1 = 0;
397  int id2 = m_Nvc;
398  int id3 = m_Nvc * 2;
399  int id4 = m_Nvc * 3;
400 
401  int idir = 0;
402  double bc2 = m_boundary2[idir];
403 
404  // double wt1r, wt1i, wt2r, wt2i;
405 
406  int isite = m_arg[itask].isite;
407  int isite_cp = m_arg[itask].isite_cpx;
408  int iyzt0 = isite / m_Nx2;
409 
410  const double *w1 = &vcp2[Nvcd2 * isite_cp];
411  double *w2 = &v2[Nvcd * isite];
412 
413  int ix = 0;
414  int ibf = 0;
415 
416  for (int it = 0; it < m_Mt; ++it) {
417  for (int iz = 0; iz < m_Mz; ++iz) {
418  for (int iy = 0; iy < m_Ny; ++iy) {
419  int iyzt = iy + m_Ny * (iz + m_Nz * it);
420  int Leo = ieo + (1 - 2 * ieo) * m_Leo[iyzt0 + iyzt];
421  if (Leo == 0) {
422  int is = ix + m_Nx2 * iyzt;
423  int iv = Nvcd * is;
424 
425  int ix1 = Nvc2 * ibf;
426  int ix2 = ix1 + m_Nvc;
427 
428  for (int ic = 0; ic < m_Nc; ++ic) {
429  int icr = 2 * ic;
430  int ici = 2 * ic + 1;
431  w2[icr + id1 + iv] += bc2 * w1[icr + ix1];
432  w2[ici + id1 + iv] += bc2 * w1[ici + ix1];
433  w2[icr + id2 + iv] += bc2 * w1[icr + ix2];
434  w2[ici + id2 + iv] += bc2 * w1[ici + ix2];
435  w2[icr + id3 + iv] += -bc2 * w1[ici + ix2];
436  w2[ici + id3 + iv] += +bc2 * w1[icr + ix2];
437  w2[icr + id4 + iv] += -bc2 * w1[ici + ix1];
438  w2[ici + id4 + iv] += +bc2 * w1[icr + ix1];
439  }
440  ++ibf;
441  }
442  }
443  }
444  }
445 }
446 
447 
448 //====================================================================
449 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_xmb_thread(
450  int itask, double *v2, const double *v1, int ieo)
451 {
452  int Nvcd = m_Nvc * m_Nd;
453 
454  int id1 = 0;
455  int id2 = m_Nvc;
456  int id3 = m_Nvc * 2;
457  int id4 = m_Nvc * 3;
458 
459  int idir = 0;
460 
461  double vt1[m_Nvc], vt2[m_Nvc];
462  double wt1r, wt1i, wt2r, wt2i;
463 
464  int isite = m_arg[itask].isite;
465  int iyzt0 = isite / m_Nx2;
466 
467  const double *w1 = &v1[Nvcd * isite];
468  double *w2 = &v2[Nvcd * isite];
469  const double *u = m_U->ptr(m_Ndf * (isite + (1 - ieo) * m_Nvol / 2 + idir * m_Nvol));
470 
471  for (int it = 0; it < m_Mt; ++it) {
472  for (int iz = 0; iz < m_Mz; ++iz) {
473  for (int iy = 0; iy < m_Ny; ++iy) {
474  int iyzt = iy + m_Ny * (iz + m_Nz * it);
475  int Leo = ieo + (1 - 2 * ieo) * m_Leo[iyzt0 + iyzt];
476  int Meo = 1 - Leo;
477  for (int ix = Meo; ix < m_Nx2; ++ix) {
478  int is = ix + m_Nx2 * iyzt;
479  int iv = Nvcd * is;
480  int in = Nvcd * (is - Meo);
481  int ig = m_Ndf * (is - Meo);
482 
483  for (int ic = 0; ic < m_Nc; ++ic) {
484  vt1[2 * ic] = w1[2 * ic + id1 + in] + w1[2 * ic + 1 + id4 + in];
485  vt1[2 * ic + 1] = w1[2 * ic + 1 + id1 + in] - w1[2 * ic + id4 + in];
486  vt2[2 * ic] = w1[2 * ic + id2 + in] + w1[2 * ic + 1 + id3 + in];
487  vt2[2 * ic + 1] = w1[2 * ic + 1 + id2 + in] - w1[2 * ic + id3 + in];
488  }
489 
490  for (int ic = 0; ic < m_Nc; ++ic) {
491  int ic2 = 2 * ic;
492 
493  wt1r = mult_udagv_r(&u[ic2 + ig], vt1, m_Nc);
494  wt1i = mult_udagv_i(&u[ic2 + ig], vt1, m_Nc);
495  wt2r = mult_udagv_r(&u[ic2 + ig], vt2, m_Nc);
496  wt2i = mult_udagv_i(&u[ic2 + ig], vt2, m_Nc);
497 
498  w2[2 * ic + id1 + iv] += wt1r;
499  w2[2 * ic + 1 + id1 + iv] += wt1i;
500  w2[2 * ic + id2 + iv] += wt2r;
501  w2[2 * ic + 1 + id2 + iv] += wt2i;
502  w2[2 * ic + id3 + iv] += -wt2i;
503  w2[2 * ic + 1 + id3 + iv] += +wt2r;
504  w2[2 * ic + id4 + iv] += -wt1i;
505  w2[2 * ic + 1 + id4 + iv] += +wt1r;
506  }
507  }
508  }
509  }
510  }
511 }
512 
513 
514 //====================================================================
515 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_yp1_thread(
516  int itask, double *vcp1, const double *v1, int ieo)
517 {
518  int Nvc2 = 2 * m_Nvc;
519  int Nvcd = m_Nvc * m_Nd;
520  int Nvcd2 = Nvcd / 2;
521 
522  int id1 = 0;
523  int id2 = m_Nvc;
524  int id3 = m_Nvc * 2;
525  int id4 = m_Nvc * 3;
526 
527  int isite = m_arg[itask].isite;
528  int isite_cp = m_arg[itask].isite_cpy;
529 
530  const double *w1 = &v1[Nvcd * isite];
531  double *w2 = &vcp1[Nvcd2 * isite_cp];
532 
533  int idir = 1;
534  double bc2 = m_boundary2[idir];
535 
536  int iy = 0;
537 
538  for (int it = 0; it < m_Mt; ++it) {
539  for (int iz = 0; iz < m_Mz; ++iz) {
540  for (int ix = 0; ix < m_Nx2; ++ix) {
541  int is = ix + m_Nx2 * (iy + m_Ny * (iz + m_Nz * it));
542  int is2 = ix + m_Nx2 * (iz + m_Mz * it);
543  int in = Nvcd * is;
544  int ix1 = Nvc2 * is2;
545  int ix2 = ix1 + m_Nvc;
546 
547  for (int ic = 0; ic < m_Nc; ++ic) {
548  w2[2 * ic + ix1] = bc2 * (w1[2 * ic + id1 + in] + w1[2 * ic + id4 + in]);
549  w2[2 * ic + 1 + ix1] = bc2 * (w1[2 * ic + 1 + id1 + in] + w1[2 * ic + 1 + id4 + in]);
550  w2[2 * ic + ix2] = bc2 * (w1[2 * ic + id2 + in] - w1[2 * ic + id3 + in]);
551  w2[2 * ic + 1 + ix2] = bc2 * (w1[2 * ic + 1 + id2 + in] - w1[2 * ic + 1 + id3 + in]);
552  }
553  }
554  }
555  }
556 }
557 
558 
559 //====================================================================
560 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_yp2_thread(
561  int itask, double *v2, const double *vcp2, int ieo)
562 {
563  int Nvc2 = 2 * m_Nvc;
564  int Nvcd = m_Nvc * m_Nd;
565  int Nvcd2 = Nvcd / 2;
566 
567  int id1 = 0;
568  int id2 = m_Nvc;
569  int id3 = m_Nvc * 2;
570  int id4 = m_Nvc * 3;
571 
572  int idir = 1;
573 
574  double wt1r, wt1i, wt2r, wt2i;
575 
576  int isite = m_arg[itask].isite;
577  int isite_cp = m_arg[itask].isite_cpy;
578 
579  const double *w1 = &vcp2[Nvcd2 * isite_cp];
580  double *w2 = &v2[Nvcd * isite];
581  const double *u = m_U->ptr(m_Ndf * (isite + ieo * m_Nvol / 2 + idir * m_Nvol));
582 
583  int iy = m_Ny - 1;
584 
585  for (int it = 0; it < m_Mt; ++it) {
586  for (int iz = 0; iz < m_Mz; ++iz) {
587  for (int ix = 0; ix < m_Nx2; ++ix) {
588  int is = ix + m_Nx2 * (iy + m_Ny * (iz + m_Nz * it));
589  int is2 = ix + m_Nx2 * (iz + m_Mz * it);
590  int iv = Nvcd * is;
591  int ig = m_Ndf * is;
592  int ix1 = Nvc2 * is2;
593  int ix2 = ix1 + m_Nvc;
594 
595  for (int ic = 0; ic < m_Nc; ++ic) {
596  int ic2 = ic * m_Nvc;
597 
598  wt1r = mult_uv_r(&u[ic2 + ig], &w1[ix1], m_Nc);
599  wt1i = mult_uv_i(&u[ic2 + ig], &w1[ix1], m_Nc);
600  wt2r = mult_uv_r(&u[ic2 + ig], &w1[ix2], m_Nc);
601  wt2i = mult_uv_i(&u[ic2 + ig], &w1[ix2], m_Nc);
602 
603  w2[2 * ic + id1 + iv] += wt1r;
604  w2[2 * ic + 1 + id1 + iv] += wt1i;
605  w2[2 * ic + id2 + iv] += wt2r;
606  w2[2 * ic + 1 + id2 + iv] += wt2i;
607  w2[2 * ic + id3 + iv] += -wt2r;
608  w2[2 * ic + 1 + id3 + iv] += -wt2i;
609  w2[2 * ic + id4 + iv] += wt1r;
610  w2[2 * ic + 1 + id4 + iv] += wt1i;
611  }
612  }
613  }
614  }
615 }
616 
617 
618 //====================================================================
619 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_ypb_thread(
620  int itask, double *v2, const double *v1, int ieo)
621 {
622  int Nvcd = m_Nvc * m_Nd;
623 
624  int id1 = 0;
625  int id2 = m_Nvc;
626  int id3 = m_Nvc * 2;
627  int id4 = m_Nvc * 3;
628 
629  int idir = 1;
630 
631  double vt1[m_Nvc], vt2[m_Nvc];
632  double wt1r, wt1i, wt2r, wt2i;
633 
634  int isite = m_arg[itask].isite;
635 
636  const double *w1 = &v1[Nvcd * isite];
637  double *w2 = &v2[Nvcd * isite];
638  const double *u = m_U->ptr(m_Ndf * (isite + ieo * m_Nvol / 2 + idir * m_Nvol));
639 
640  for (int it = 0; it < m_Mt; ++it) {
641  for (int iz = 0; iz < m_Mz; ++iz) {
642  for (int iy = 0; iy < m_Ny - 1; ++iy) {
643  for (int ix = 0; ix < m_Nx2; ++ix) {
644  int is = ix + m_Nx2 * (iy + m_Ny * (iz + m_Nz * it));
645  int iv = Nvcd * is;
646  int in = Nvcd * (is + m_Nx2);
647  int ig = m_Ndf * is;
648 
649  for (int ic = 0; ic < m_Nc; ++ic) {
650  vt1[2 * ic] = w1[2 * ic + id1 + in] + w1[2 * ic + id4 + in];
651  vt1[2 * ic + 1] = w1[2 * ic + 1 + id1 + in] + w1[2 * ic + 1 + id4 + in];
652  vt2[2 * ic] = w1[2 * ic + id2 + in] - w1[2 * ic + id3 + in];
653  vt2[2 * ic + 1] = w1[2 * ic + 1 + id2 + in] - w1[2 * ic + 1 + id3 + in];
654  }
655 
656  for (int ic = 0; ic < m_Nc; ++ic) {
657  int ic2 = ic * m_Nvc;
658 
659  wt1r = mult_uv_r(&u[ic2 + ig], vt1, m_Nc);
660  wt1i = mult_uv_i(&u[ic2 + ig], vt1, m_Nc);
661  wt2r = mult_uv_r(&u[ic2 + ig], vt2, m_Nc);
662  wt2i = mult_uv_i(&u[ic2 + ig], vt2, m_Nc);
663 
664  w2[2 * ic + id1 + iv] += wt1r;
665  w2[2 * ic + 1 + id1 + iv] += wt1i;
666  w2[2 * ic + id2 + iv] += wt2r;
667  w2[2 * ic + 1 + id2 + iv] += wt2i;
668  w2[2 * ic + id3 + iv] += -wt2r;
669  w2[2 * ic + 1 + id3 + iv] += -wt2i;
670  w2[2 * ic + id4 + iv] += wt1r;
671  w2[2 * ic + 1 + id4 + iv] += wt1i;
672  }
673  }
674  }
675  }
676  }
677 }
678 
679 
680 //====================================================================
681 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_ym1_thread(
682  int itask, double *vcp1, const double *v1, int ieo)
683 {
684  int Nvc2 = 2 * m_Nvc;
685  int Nvcd = m_Nvc * m_Nd;
686  int Nvcd2 = Nvcd / 2;
687 
688  int id1 = 0;
689  int id2 = m_Nvc;
690  int id3 = m_Nvc * 2;
691  int id4 = m_Nvc * 3;
692 
693  int idir = 1;
694 
695  int isite = m_arg[itask].isite;
696  int isite_cp = m_arg[itask].isite_cpy;
697 
698  const double *w1 = &v1[Nvcd * isite];
699  double *w2 = &vcp1[Nvcd2 * isite_cp];
700  const double *u = m_U->ptr(m_Ndf * (isite + (1 - ieo) * m_Nvol / 2 + idir * m_Nvol));
701 
702  double vt1[m_Nvc], vt2[m_Nvc];
703 
704  int iy = m_Ny - 1;
705 
706  for (int it = 0; it < m_Mt; ++it) {
707  for (int iz = 0; iz < m_Mz; ++iz) {
708  for (int ix = 0; ix < m_Nx2; ++ix) {
709  int is = ix + m_Nx2 * (iy + m_Ny * (iz + m_Nz * it));
710  int is2 = ix + m_Nx2 * (iz + m_Mz * it);
711  int in = Nvcd * is;
712  int ig = m_Ndf * is;
713  int ix1 = Nvc2 * is2;
714  int ix2 = ix1 + m_Nvc;
715 
716  for (int ic = 0; ic < m_Nc; ++ic) {
717  vt1[2 * ic] = w1[2 * ic + id1 + in] - w1[2 * ic + id4 + in];
718  vt1[2 * ic + 1] = w1[2 * ic + 1 + id1 + in] - w1[2 * ic + 1 + id4 + in];
719  vt2[2 * ic] = w1[2 * ic + id2 + in] + w1[2 * ic + id3 + in];
720  vt2[2 * ic + 1] = w1[2 * ic + 1 + id2 + in] + w1[2 * ic + 1 + id3 + in];
721  }
722 
723  for (int ic = 0; ic < m_Nc; ++ic) {
724  int icr = 2 * ic;
725  w2[icr + ix1] = mult_udagv_r(&u[icr + ig], vt1, m_Nc);
726  w2[icr + 1 + ix1] = mult_udagv_i(&u[icr + ig], vt1, m_Nc);
727  w2[icr + ix2] = mult_udagv_r(&u[icr + ig], vt2, m_Nc);
728  w2[icr + 1 + ix2] = mult_udagv_i(&u[icr + ig], vt2, m_Nc);
729  }
730  }
731  }
732  }
733 }
734 
735 
736 //====================================================================
737 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_ym2_thread(
738  int itask, double *v2, const double *vcp2, int ieo)
739 {
740  int Nvc2 = 2 * m_Nvc;
741  int Nvcd = m_Nvc * m_Nd;
742  int Nvcd2 = Nvcd / 2;
743 
744  int id1 = 0;
745  int id2 = m_Nvc;
746  int id3 = m_Nvc * 2;
747  int id4 = m_Nvc * 3;
748 
749  int idir = 1;
750  double bc2 = m_boundary2[idir];
751 
752  // double wt1r, wt1i, wt2r, wt2i;
753 
754  int isite = m_arg[itask].isite;
755  int isite_cp = m_arg[itask].isite_cpy;
756 
757  const double *w1 = &vcp2[Nvcd2 * isite_cp];
758  double *w2 = &v2[Nvcd * isite];
759 
760  int iy = 0;
761 
762  for (int it = 0; it < m_Mt; ++it) {
763  for (int iz = 0; iz < m_Mz; ++iz) {
764  for (int ix = 0; ix < m_Nx2; ++ix) {
765  int is = ix + m_Nx2 * (iy + m_Ny * (iz + m_Nz * it));
766  int is2 = ix + m_Nx2 * (iz + m_Mz * it);
767  int iv = Nvcd * is;
768  int ix1 = Nvc2 * is2;
769  int ix2 = ix1 + m_Nvc;
770 
771  for (int ic = 0; ic < m_Nc; ++ic) {
772  int icr = 2 * ic;
773  int ici = 2 * ic + 1;
774  w2[icr + id1 + iv] += bc2 * w1[icr + ix1];
775  w2[ici + id1 + iv] += bc2 * w1[ici + ix1];
776  w2[icr + id2 + iv] += bc2 * w1[icr + ix2];
777  w2[ici + id2 + iv] += bc2 * w1[ici + ix2];
778  w2[icr + id3 + iv] += bc2 * w1[icr + ix2];
779  w2[ici + id3 + iv] += bc2 * w1[ici + ix2];
780  w2[icr + id4 + iv] += -bc2 * w1[icr + ix1];
781  w2[ici + id4 + iv] += -bc2 * w1[ici + ix1];
782  }
783  }
784  }
785  }
786 }
787 
788 
789 //====================================================================
790 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_ymb_thread(
791  int itask, double *v2, const double *v1, int ieo)
792 {
793  int Nvcd = m_Nvc * m_Nd;
794 
795  int id1 = 0;
796  int id2 = m_Nvc;
797  int id3 = m_Nvc * 2;
798  int id4 = m_Nvc * 3;
799 
800  int idir = 1;
801 
802  double vt1[m_Nvc], vt2[m_Nvc];
803  double wt1r, wt1i, wt2r, wt2i;
804 
805  int isite = m_arg[itask].isite;
806 
807  const double *w1 = &v1[Nvcd * isite];
808  double *w2 = &v2[Nvcd * isite];
809  const double *u = m_U->ptr(m_Ndf * (isite + (1 - ieo) * m_Nvol / 2 + idir * m_Nvol));
810 
811  for (int it = 0; it < m_Mt; ++it) {
812  for (int iz = 0; iz < m_Mz; ++iz) {
813  for (int iy = 1; iy < m_Ny; ++iy) {
814  for (int ix = 0; ix < m_Nx2; ++ix) {
815  int is = ix + m_Nx2 * (iy + m_Ny * (iz + m_Nz * it));
816  int iv = Nvcd * is;
817  int in = Nvcd * (is - m_Nx2);
818  int ig = m_Ndf * (is - m_Nx2);
819 
820  for (int ic = 0; ic < m_Nc; ++ic) {
821  vt1[2 * ic] = w1[2 * ic + id1 + in] - w1[2 * ic + id4 + in];
822  vt1[2 * ic + 1] = w1[2 * ic + 1 + id1 + in] - w1[2 * ic + 1 + id4 + in];
823  vt2[2 * ic] = w1[2 * ic + id2 + in] + w1[2 * ic + id3 + in];
824  vt2[2 * ic + 1] = w1[2 * ic + 1 + id2 + in] + w1[2 * ic + 1 + id3 + in];
825  }
826 
827  for (int ic = 0; ic < m_Nc; ++ic) {
828  int ic2 = 2 * ic;
829  wt1r = mult_udagv_r(&u[ic2 + ig], vt1, m_Nc);
830  wt1i = mult_udagv_i(&u[ic2 + ig], vt1, m_Nc);
831  wt2r = mult_udagv_r(&u[ic2 + ig], vt2, m_Nc);
832  wt2i = mult_udagv_i(&u[ic2 + ig], vt2, m_Nc);
833 
834  w2[ic2 + id1 + iv] += wt1r;
835  w2[ic2 + 1 + id1 + iv] += wt1i;
836  w2[ic2 + id2 + iv] += wt2r;
837  w2[ic2 + 1 + id2 + iv] += wt2i;
838  w2[ic2 + id3 + iv] += wt2r;
839  w2[ic2 + 1 + id3 + iv] += wt2i;
840  w2[ic2 + id4 + iv] += -wt1r;
841  w2[ic2 + 1 + id4 + iv] += -wt1i;
842  }
843  }
844  }
845  }
846  }
847 }
848 
849 
850 //====================================================================
851 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_zp1_thread(
852  int itask, double *vcp1, const double *v1, int ieo)
853 {
854  int Nvc2 = 2 * m_Nvc;
855  int Nvcd = m_Nvc * m_Nd;
856  int Nvcd2 = Nvcd / 2;
857 
858  int id1 = 0;
859  int id2 = m_Nvc;
860  int id3 = m_Nvc * 2;
861  int id4 = m_Nvc * 3;
862 
863  int isite = m_arg[itask].isite;
864  int isite_cp = m_arg[itask].isite_cpz;
865 
866  const double *w1 = &v1[Nvcd * isite];
867  double *w2 = &vcp1[Nvcd2 * isite_cp];
868 
869  int idir = 2;
870  double bc2 = m_boundary2[idir];
871 
872  if (m_arg[itask].kz0 == 1) {
873  int Nxy = m_Nx2 * m_Ny;
874  int iz = 0;
875  for (int it = 0; it < m_Mt; ++it) {
876  for (int ixy = 0; ixy < Nxy; ++ixy) {
877  int is = ixy + Nxy * (iz + m_Nz * it);
878  int is2 = ixy + Nxy * it;
879 
880  int in = Nvcd * is;
881  int ix1 = Nvc2 * is2;
882  int ix2 = ix1 + m_Nvc;
883 
884  for (int ic = 0; ic < m_Nc; ++ic) {
885  w2[2 * ic + ix1] = bc2 * (w1[2 * ic + id1 + in] - w1[2 * ic + 1 + id3 + in]);
886  w2[2 * ic + 1 + ix1] = bc2 * (w1[2 * ic + 1 + id1 + in] + w1[2 * ic + id3 + in]);
887  w2[2 * ic + ix2] = bc2 * (w1[2 * ic + id2 + in] + w1[2 * ic + 1 + id4 + in]);
888  w2[2 * ic + 1 + ix2] = bc2 * (w1[2 * ic + 1 + id2 + in] - w1[2 * ic + id4 + in]);
889  }
890  }
891  }
892  }
893 }
894 
895 
896 //====================================================================
897 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_zp2_thread(
898  int itask, double *v2, const double *vcp2, int ieo)
899 {
900  int Nvc2 = 2 * m_Nvc;
901  int Nvcd = m_Nvc * m_Nd;
902  int Nvcd2 = Nvcd / 2;
903 
904  int id1 = 0;
905  int id2 = m_Nvc;
906  int id3 = m_Nvc * 2;
907  int id4 = m_Nvc * 3;
908 
909  int idir = 2;
910 
911  double wt1r, wt1i, wt2r, wt2i;
912 
913  int isite = m_arg[itask].isite;
914  int isite_cp = m_arg[itask].isite_cpz;
915 
916  const double *w1 = &vcp2[Nvcd2 * isite_cp];
917  double *w2 = &v2[Nvcd * isite];
918  const double *u = m_U->ptr(m_Ndf * (isite + ieo * m_Nvol / 2 + idir * m_Nvol));
919 
920  if (m_arg[itask].kz1 == 1) {
921  int Nxy = m_Nx2 * m_Ny;
922  int iz = m_Mz - 1;
923  for (int it = 0; it < m_Mt; ++it) {
924  for (int ixy = 0; ixy < Nxy; ++ixy) {
925  int is = ixy + Nxy * (iz + m_Nz * it);
926  int is2 = ixy + Nxy * it;
927  int iv = Nvcd * is;
928  int ig = m_Ndf * is;
929  int ix1 = Nvc2 * is2;
930  int ix2 = ix1 + m_Nvc;
931 
932  for (int ic = 0; ic < m_Nc; ++ic) {
933  int ic2 = ic * m_Nvc;
934 
935  wt1r = mult_uv_r(&u[ic2 + ig], &w1[ix1], m_Nc);
936  wt1i = mult_uv_i(&u[ic2 + ig], &w1[ix1], m_Nc);
937  wt2r = mult_uv_r(&u[ic2 + ig], &w1[ix2], m_Nc);
938  wt2i = mult_uv_i(&u[ic2 + ig], &w1[ix2], m_Nc);
939 
940  w2[2 * ic + id1 + iv] += wt1r;
941  w2[2 * ic + 1 + id1 + iv] += wt1i;
942  w2[2 * ic + id2 + iv] += wt2r;
943  w2[2 * ic + 1 + id2 + iv] += wt2i;
944  w2[2 * ic + id3 + iv] += wt1i;
945  w2[2 * ic + 1 + id3 + iv] += -wt1r;
946  w2[2 * ic + id4 + iv] += -wt2i;
947  w2[2 * ic + 1 + id4 + iv] += wt2r;
948  }
949  }
950  }
951  }
952 }
953 
954 
955 //====================================================================
956 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_zpb_thread(
957  int itask, double *v2, const double *v1, int ieo)
958 {
959  int Nvcd = m_Nvc * m_Nd;
960 
961  int id1 = 0;
962  int id2 = m_Nvc;
963  int id3 = m_Nvc * 2;
964  int id4 = m_Nvc * 3;
965 
966  int idir = 2;
967 
968  double vt1[m_Nvc], vt2[m_Nvc];
969  double wt1r, wt1i, wt2r, wt2i;
970 
971  int isite = m_arg[itask].isite;
972 
973  const double *w1 = &v1[Nvcd * isite];
974  double *w2 = &v2[Nvcd * isite];
975  const double *u = m_U->ptr(m_Ndf * (isite + ieo * m_Nvol / 2 + idir * m_Nvol));
976 
977  int kz1 = m_arg[itask].kz1;
978  int Nxy = m_Nx2 * m_Ny;
979 
980  for (int it = 0; it < m_Mt; ++it) {
981  for (int iz = 0; iz < m_Mz - kz1; ++iz) {
982  for (int ixy = 0; ixy < Nxy; ++ixy) {
983  int is = ixy + Nxy * (iz + m_Nz * it);
984  int iv = Nvcd * is;
985  int in = Nvcd * (is + Nxy);
986  int ig = m_Ndf * is;
987 
988  for (int ic = 0; ic < m_Nc; ++ic) {
989  vt1[2 * ic] = w1[2 * ic + id1 + in] - w1[2 * ic + 1 + id3 + in];
990  vt1[2 * ic + 1] = w1[2 * ic + 1 + id1 + in] + w1[2 * ic + id3 + in];
991  vt2[2 * ic] = w1[2 * ic + id2 + in] + w1[2 * ic + 1 + id4 + in];
992  vt2[2 * ic + 1] = w1[2 * ic + 1 + id2 + in] - w1[2 * ic + id4 + in];
993  }
994 
995  for (int ic = 0; ic < m_Nc; ++ic) {
996  int ic2 = ic * m_Nvc;
997 
998  wt1r = mult_uv_r(&u[ic2 + ig], vt1, m_Nc);
999  wt1i = mult_uv_i(&u[ic2 + ig], vt1, m_Nc);
1000  wt2r = mult_uv_r(&u[ic2 + ig], vt2, m_Nc);
1001  wt2i = mult_uv_i(&u[ic2 + ig], vt2, m_Nc);
1002 
1003  w2[2 * ic + id1 + iv] += wt1r;
1004  w2[2 * ic + 1 + id1 + iv] += wt1i;
1005  w2[2 * ic + id2 + iv] += wt2r;
1006  w2[2 * ic + 1 + id2 + iv] += wt2i;
1007  w2[2 * ic + id3 + iv] += wt1i;
1008  w2[2 * ic + 1 + id3 + iv] += -wt1r;
1009  w2[2 * ic + id4 + iv] += -wt2i;
1010  w2[2 * ic + 1 + id4 + iv] += wt2r;
1011  }
1012  }
1013  }
1014  }
1015 }
1016 
1017 
1018 //====================================================================
1019 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_zm1_thread(
1020  int itask, double *vcp1, const double *v1, int ieo)
1021 {
1022  int Nvc2 = 2 * m_Nvc;
1023  int Nvcd = m_Nvc * m_Nd;
1024  int Nvcd2 = Nvcd / 2;
1025 
1026  int id1 = 0;
1027  int id2 = m_Nvc;
1028  int id3 = m_Nvc * 2;
1029  int id4 = m_Nvc * 3;
1030 
1031  int idir = 2;
1032 
1033  int isite = m_arg[itask].isite;
1034  int isite_cp = m_arg[itask].isite_cpz;
1035 
1036  const double *w1 = &v1[Nvcd * isite];
1037  double *w2 = &vcp1[Nvcd2 * isite_cp];
1038  const double *u = m_U->ptr(m_Ndf * (isite + (1 - ieo) * m_Nvol / 2 + idir * m_Nvol));
1039 
1040  double vt1[m_Nvc], vt2[m_Nvc];
1041 
1042  if (m_arg[itask].kz1 == 1) {
1043  int Nxy = m_Nx2 * m_Ny;
1044  int iz = m_Mz - 1;
1045  for (int it = 0; it < m_Mt; ++it) {
1046  for (int ixy = 0; ixy < Nxy; ++ixy) {
1047  int is = ixy + Nxy * (iz + m_Nz * it);
1048  int is2 = ixy + Nxy * it;
1049  int in = Nvcd * is;
1050  int ig = m_Ndf * is;
1051  int ix1 = Nvc2 * is2;
1052  int ix2 = ix1 + m_Nvc;
1053 
1054  for (int ic = 0; ic < m_Nc; ++ic) {
1055  vt1[2 * ic] = w1[2 * ic + id1 + in] + w1[2 * ic + 1 + id3 + in];
1056  vt1[2 * ic + 1] = w1[2 * ic + 1 + id1 + in] - w1[2 * ic + id3 + in];
1057  vt2[2 * ic] = w1[2 * ic + id2 + in] - w1[2 * ic + 1 + id4 + in];
1058  vt2[2 * ic + 1] = w1[2 * ic + 1 + id2 + in] + w1[2 * ic + id4 + in];
1059  }
1060 
1061  for (int ic = 0; ic < m_Nc; ++ic) {
1062  int icr = 2 * ic;
1063  w2[icr + ix1] = mult_udagv_r(&u[icr + ig], vt1, m_Nc);
1064  w2[icr + 1 + ix1] = mult_udagv_i(&u[icr + ig], vt1, m_Nc);
1065  w2[icr + ix2] = mult_udagv_r(&u[icr + ig], vt2, m_Nc);
1066  w2[icr + 1 + ix2] = mult_udagv_i(&u[icr + ig], vt2, m_Nc);
1067  }
1068  }
1069  }
1070  }
1071 }
1072 
1073 
1074 //====================================================================
1075 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_zm2_thread(
1076  int itask, double *v2, const double *vcp2, int ieo)
1077 {
1078  int Nvc2 = 2 * m_Nvc;
1079  int Nvcd = m_Nvc * m_Nd;
1080  int Nvcd2 = Nvcd / 2;
1081 
1082  int id1 = 0;
1083  int id2 = m_Nvc;
1084  int id3 = m_Nvc * 2;
1085  int id4 = m_Nvc * 3;
1086 
1087  int idir = 2;
1088  double bc2 = m_boundary2[idir];
1089 
1090  // double wt1r, wt1i, wt2r, wt2i;
1091 
1092  int isite = m_arg[itask].isite;
1093  int isite_cp = m_arg[itask].isite_cpz;
1094 
1095  const double *w1 = &vcp2[Nvcd2 * isite_cp];
1096  double *w2 = &v2[Nvcd * isite];
1097 
1098  if (m_arg[itask].kz0 == 1) {
1099  int Nxy = m_Nx2 * m_Ny;
1100 
1101  int iz = 0;
1102  for (int it = 0; it < m_Mt; ++it) {
1103  for (int ixy = 0; ixy < Nxy; ++ixy) {
1104  int is = ixy + Nxy * (iz + m_Nz * it);
1105  int is2 = ixy + Nxy * it;
1106  int iv = Nvcd * is;
1107  int ix1 = Nvc2 * is2;
1108  int ix2 = ix1 + m_Nvc;
1109 
1110  for (int ic = 0; ic < m_Nc; ++ic) {
1111  int icr = 2 * ic;
1112  int ici = 2 * ic + 1;
1113  w2[icr + id1 + iv] += bc2 * w1[icr + ix1];
1114  w2[ici + id1 + iv] += bc2 * w1[ici + ix1];
1115  w2[icr + id2 + iv] += bc2 * w1[icr + ix2];
1116  w2[ici + id2 + iv] += bc2 * w1[ici + ix2];
1117  w2[icr + id3 + iv] += -bc2 * w1[ici + ix1];
1118  w2[ici + id3 + iv] += bc2 * w1[icr + ix1];
1119  w2[icr + id4 + iv] += bc2 * w1[ici + ix2];
1120  w2[ici + id4 + iv] += -bc2 * w1[icr + ix2];
1121  }
1122  }
1123  }
1124  }
1125 }
1126 
1127 
1128 //====================================================================
1129 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_zmb_thread(
1130  int itask, double *v2, const double *v1, int ieo)
1131 {
1132  int Nvcd = m_Nvc * m_Nd;
1133 
1134  int id1 = 0;
1135  int id2 = m_Nvc;
1136  int id3 = m_Nvc * 2;
1137  int id4 = m_Nvc * 3;
1138 
1139  int idir = 2;
1140 
1141  double vt1[m_Nvc], vt2[m_Nvc];
1142  double wt1r, wt1i, wt2r, wt2i;
1143 
1144  int isite = m_arg[itask].isite;
1145 
1146  const double *w1 = &v1[Nvcd * isite];
1147  double *w2 = &v2[Nvcd * isite];
1148  const double *u = m_U->ptr(m_Ndf * (isite + (1 - ieo) * m_Nvol / 2 + idir * m_Nvol));
1149 
1150  int kz0 = m_arg[itask].kz0;
1151  int Nxy = m_Nx2 * m_Ny;
1152 
1153  for (int it = 0; it < m_Mt; ++it) {
1154  for (int iz = kz0; iz < m_Mz; ++iz) {
1155  for (int ixy = 0; ixy < Nxy; ++ixy) {
1156  int is = ixy + Nxy * (iz + m_Nz * it);
1157  int iv = Nvcd * is;
1158  int in = Nvcd * (is - Nxy);
1159  int ig = m_Ndf * (is - Nxy);
1160 
1161  for (int ic = 0; ic < m_Nc; ++ic) {
1162  vt1[2 * ic] = w1[2 * ic + id1 + in] + w1[2 * ic + 1 + id3 + in];
1163  vt1[2 * ic + 1] = w1[2 * ic + 1 + id1 + in] - w1[2 * ic + id3 + in];
1164  vt2[2 * ic] = w1[2 * ic + id2 + in] - w1[2 * ic + 1 + id4 + in];
1165  vt2[2 * ic + 1] = w1[2 * ic + 1 + id2 + in] + w1[2 * ic + id4 + in];
1166  }
1167 
1168  for (int ic = 0; ic < m_Nc; ++ic) {
1169  int ic2 = 2 * ic;
1170  wt1r = mult_udagv_r(&u[ic2 + ig], vt1, m_Nc);
1171  wt1i = mult_udagv_i(&u[ic2 + ig], vt1, m_Nc);
1172  wt2r = mult_udagv_r(&u[ic2 + ig], vt2, m_Nc);
1173  wt2i = mult_udagv_i(&u[ic2 + ig], vt2, m_Nc);
1174 
1175  w2[ic2 + id1 + iv] += wt1r;
1176  w2[ic2 + 1 + id1 + iv] += wt1i;
1177  w2[ic2 + id2 + iv] += wt2r;
1178  w2[ic2 + 1 + id2 + iv] += wt2i;
1179  w2[ic2 + id3 + iv] += -wt1i;
1180  w2[ic2 + 1 + id3 + iv] += wt1r;
1181  w2[ic2 + id4 + iv] += wt2i;
1182  w2[ic2 + 1 + id4 + iv] += -wt2r;
1183  }
1184  }
1185  }
1186  }
1187 }
1188 
1189 
1190 //====================================================================
1191 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tp1_dirac_thread(
1192  int itask, double *vcp1, const double *v1, int ieo)
1193 {
1194  int Nvc2 = 2 * m_Nvc;
1195  int Nvcd = m_Nvc * m_Nd;
1196  int Nvcd2 = Nvcd / 2;
1197 
1198  // int id1 = 0;
1199  // int id2 = m_Nvc;
1200  int id3 = m_Nvc * 2;
1201  int id4 = m_Nvc * 3;
1202 
1203  int isite = m_arg[itask].isite;
1204  int isite_cp = m_arg[itask].isite_cpt;
1205 
1206  const double *w1 = &v1[Nvcd * isite];
1207  double *w2 = &vcp1[Nvcd2 * isite_cp];
1208 
1209  int idir = 3;
1210  double bc2 = m_boundary2[idir];
1211 
1212  if (m_arg[itask].kt0 == 1) {
1213  int Nxy = m_Nx2 * m_Ny;
1214  int it = 0;
1215  for (int iz = 0; iz < m_Mz; ++iz) {
1216  for (int ixy = 0; ixy < Nxy; ++ixy) {
1217  int is = ixy + Nxy * (iz + m_Nz * it);
1218  int is2 = ixy + Nxy * iz;
1219 
1220  int in = Nvcd * is;
1221  int ix1 = Nvc2 * is2;
1222  int ix2 = ix1 + m_Nvc;
1223 
1224  for (int ic = 0; ic < m_Nc; ++ic) {
1225  w2[2 * ic + ix1] = 2.0 * bc2 * w1[2 * ic + id3 + in];
1226  w2[2 * ic + 1 + ix1] = 2.0 * bc2 * w1[2 * ic + 1 + id3 + in];
1227  w2[2 * ic + ix2] = 2.0 * bc2 * w1[2 * ic + id4 + in];
1228  w2[2 * ic + 1 + ix2] = 2.0 * bc2 * w1[2 * ic + 1 + id4 + in];
1229  }
1230  }
1231  }
1232  }
1233 }
1234 
1235 
1236 //====================================================================
1237 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tp2_dirac_thread(
1238  int itask, double *v2, const double *vcp2, int ieo)
1239 {
1240  int Nvc2 = 2 * m_Nvc;
1241  int Nvcd = m_Nvc * m_Nd;
1242  int Nvcd2 = Nvcd / 2;
1243 
1244  // int id1 = 0;
1245  // int id2 = m_Nvc;
1246  int id3 = m_Nvc * 2;
1247  int id4 = m_Nvc * 3;
1248 
1249  int idir = 3;
1250 
1251  double wt1r, wt1i, wt2r, wt2i;
1252 
1253  int isite = m_arg[itask].isite;
1254  int isite_cp = m_arg[itask].isite_cpt;
1255 
1256  const double *w1 = &vcp2[Nvcd2 * isite_cp];
1257  double *w2 = &v2[Nvcd * isite];
1258  const double *u = m_U->ptr(m_Ndf * (isite + ieo * m_Nvol / 2 + idir * m_Nvol));
1259 
1260  if (m_arg[itask].kt1 == 1) {
1261  int Nxy = m_Nx2 * m_Ny;
1262  int it = m_Mt - 1;
1263  for (int iz = 0; iz < m_Mz; ++iz) {
1264  for (int ixy = 0; ixy < Nxy; ++ixy) {
1265  int is = ixy + Nxy * (iz + m_Nz * it);
1266  int is2 = ixy + Nxy * iz;
1267  int iv = Nvcd * is;
1268  int ig = m_Ndf * is;
1269  int ix1 = Nvc2 * is2;
1270  int ix2 = ix1 + m_Nvc;
1271 
1272  for (int ic = 0; ic < m_Nc; ++ic) {
1273  int ic2 = ic * m_Nvc;
1274 
1275  wt1r = mult_uv_r(&u[ic2 + ig], &w1[ix1], m_Nc);
1276  wt1i = mult_uv_i(&u[ic2 + ig], &w1[ix1], m_Nc);
1277  wt2r = mult_uv_r(&u[ic2 + ig], &w1[ix2], m_Nc);
1278  wt2i = mult_uv_i(&u[ic2 + ig], &w1[ix2], m_Nc);
1279 
1280  w2[2 * ic + id3 + iv] += wt1r;
1281  w2[2 * ic + 1 + id3 + iv] += wt1i;
1282  w2[2 * ic + id4 + iv] += wt2r;
1283  w2[2 * ic + 1 + id4 + iv] += wt2i;
1284  }
1285  }
1286  }
1287  }
1288 }
1289 
1290 
1291 //====================================================================
1292 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tpb_dirac_thread(
1293  int itask, double *v2, const double *v1, int ieo)
1294 {
1295  int Nvcd = m_Nvc * m_Nd;
1296 
1297  // int id1 = 0;
1298  // int id2 = m_Nvc;
1299  int id3 = m_Nvc * 2;
1300  int id4 = m_Nvc * 3;
1301 
1302  int idir = 3;
1303 
1304  double vt1[m_Nvc], vt2[m_Nvc];
1305  double wt1r, wt1i, wt2r, wt2i;
1306 
1307  int isite = m_arg[itask].isite;
1308 
1309  const double *w1 = &v1[Nvcd * isite];
1310  double *w2 = &v2[Nvcd * isite];
1311  const double *u = m_U->ptr(m_Ndf * (isite + ieo * m_Nvol / 2 + idir * m_Nvol));
1312 
1313  int kt1 = m_arg[itask].kt1;
1314  int Nxy = m_Nx2 * m_Ny;
1315  int Nxyz = Nxy * m_Nz;
1316 
1317  for (int it = 0; it < m_Mt - kt1; ++it) {
1318  for (int iz = 0; iz < m_Mz; ++iz) {
1319  for (int ixy = 0; ixy < Nxy; ++ixy) {
1320  int is = ixy + Nxy * (iz + m_Nz * it);
1321  int iv = Nvcd * is;
1322  int in = Nvcd * (is + Nxyz);
1323  int ig = m_Ndf * is;
1324 
1325  for (int ic = 0; ic < m_Nc; ++ic) {
1326  vt1[2 * ic] = 2.0 * w1[2 * ic + id3 + in];
1327  vt1[2 * ic + 1] = 2.0 * w1[2 * ic + 1 + id3 + in];
1328  vt2[2 * ic] = 2.0 * w1[2 * ic + id4 + in];
1329  vt2[2 * ic + 1] = 2.0 * w1[2 * ic + 1 + id4 + in];
1330  }
1331 
1332  for (int ic = 0; ic < m_Nc; ++ic) {
1333  int ic2 = ic * m_Nvc;
1334 
1335  wt1r = mult_uv_r(&u[ic2 + ig], vt1, m_Nc);
1336  wt1i = mult_uv_i(&u[ic2 + ig], vt1, m_Nc);
1337  wt2r = mult_uv_r(&u[ic2 + ig], vt2, m_Nc);
1338  wt2i = mult_uv_i(&u[ic2 + ig], vt2, m_Nc);
1339 
1340  w2[2 * ic + id3 + iv] += wt1r;
1341  w2[2 * ic + 1 + id3 + iv] += wt1i;
1342  w2[2 * ic + id4 + iv] += wt2r;
1343  w2[2 * ic + 1 + id4 + iv] += wt2i;
1344  }
1345  }
1346  }
1347  }
1348 }
1349 
1350 
1351 //====================================================================
1352 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tm1_dirac_thread(
1353  int itask, double *vcp1, const double *v1, int ieo)
1354 {
1355  int Nvc2 = 2 * m_Nvc;
1356  int Nvcd = m_Nvc * m_Nd;
1357  int Nvcd2 = Nvcd / 2;
1358 
1359  int id1 = 0;
1360  int id2 = m_Nvc;
1361  // int id3 = m_Nvc * 2;
1362  // int id4 = m_Nvc * 3;
1363 
1364  int idir = 3;
1365 
1366  int isite = m_arg[itask].isite;
1367  int isite_cp = m_arg[itask].isite_cpt;
1368 
1369  const double *w1 = &v1[Nvcd * isite];
1370  double *w2 = &vcp1[Nvcd2 * isite_cp];
1371  const double *u = m_U->ptr(m_Ndf * (isite + (1 - ieo) * m_Nvol / 2 + idir * m_Nvol));
1372 
1373  double vt1[m_Nvc], vt2[m_Nvc];
1374 
1375  if (m_arg[itask].kt1 == 1) {
1376  int Nxy = m_Nx2 * m_Ny;
1377  int it = m_Mt - 1;
1378  for (int iz = 0; iz < m_Mz; ++iz) {
1379  for (int ixy = 0; ixy < Nxy; ++ixy) {
1380  int is = ixy + Nxy * (iz + m_Nz * it);
1381  int is2 = ixy + Nxy * iz;
1382  int in = Nvcd * is;
1383  int ig = m_Ndf * is;
1384  int ix1 = Nvc2 * is2;
1385  int ix2 = ix1 + m_Nvc;
1386 
1387  for (int ic = 0; ic < m_Nc; ++ic) {
1388  vt1[2 * ic] = 2.0 * w1[2 * ic + id1 + in];
1389  vt1[2 * ic + 1] = 2.0 * w1[2 * ic + 1 + id1 + in];
1390  vt2[2 * ic] = 2.0 * w1[2 * ic + id2 + in];
1391  vt2[2 * ic + 1] = 2.0 * w1[2 * ic + 1 + id2 + in];
1392  }
1393 
1394  for (int ic = 0; ic < m_Nc; ++ic) {
1395  int icr = 2 * ic;
1396  w2[icr + ix1] = mult_udagv_r(&u[icr + ig], vt1, m_Nc);
1397  w2[icr + 1 + ix1] = mult_udagv_i(&u[icr + ig], vt1, m_Nc);
1398  w2[icr + ix2] = mult_udagv_r(&u[icr + ig], vt2, m_Nc);
1399  w2[icr + 1 + ix2] = mult_udagv_i(&u[icr + ig], vt2, m_Nc);
1400  }
1401  }
1402  }
1403  }
1404 }
1405 
1406 
1407 //====================================================================
1408 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tm2_dirac_thread(
1409  int itask, double *v2, const double *vcp2, int ieo)
1410 {
1411  int Nvc2 = 2 * m_Nvc;
1412  int Nvcd = m_Nvc * m_Nd;
1413  int Nvcd2 = Nvcd / 2;
1414 
1415  int id1 = 0;
1416  int id2 = m_Nvc;
1417  // int id3 = m_Nvc * 2;
1418  // int id4 = m_Nvc * 3;
1419 
1420  int idir = 3;
1421  double bc2 = m_boundary2[idir];
1422 
1423  // double wt1r, wt1i, wt2r, wt2i;
1424 
1425  int isite = m_arg[itask].isite;
1426  int isite_cp = m_arg[itask].isite_cpt;
1427 
1428  const double *w1 = &vcp2[Nvcd2 * isite_cp];
1429  double *w2 = &v2[Nvcd * isite];
1430 
1431  if (m_arg[itask].kt0 == 1) {
1432  int Nxy = m_Nx2 * m_Ny;
1433  int it = 0;
1434  for (int iz = 0; iz < m_Mz; ++iz) {
1435  for (int ixy = 0; ixy < Nxy; ++ixy) {
1436  int is = ixy + Nxy * (iz + m_Nz * it);
1437  int is2 = ixy + Nxy * iz;
1438  int iv = Nvcd * is;
1439  int ix1 = Nvc2 * is2;
1440  int ix2 = ix1 + m_Nvc;
1441 
1442  for (int ic = 0; ic < m_Nc; ++ic) {
1443  int icr = 2 * ic;
1444  int ici = 2 * ic + 1;
1445  w2[icr + id1 + iv] += bc2 * w1[icr + ix1];
1446  w2[ici + id1 + iv] += bc2 * w1[ici + ix1];
1447  w2[icr + id2 + iv] += bc2 * w1[icr + ix2];
1448  w2[ici + id2 + iv] += bc2 * w1[ici + ix2];
1449  }
1450  }
1451  }
1452  }
1453 }
1454 
1455 
1456 //====================================================================
1457 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tmb_dirac_thread(
1458  int itask, double *v2, const double *v1, int ieo)
1459 {
1460  int Nvcd = m_Nvc * m_Nd;
1461 
1462  int id1 = 0;
1463  int id2 = m_Nvc;
1464  // int id3 = m_Nvc * 2;
1465  // int id4 = m_Nvc * 3;
1466 
1467  int idir = 3;
1468 
1469  double vt1[m_Nvc], vt2[m_Nvc];
1470  double wt1r, wt1i, wt2r, wt2i;
1471 
1472  int isite = m_arg[itask].isite;
1473 
1474  const double *w1 = &v1[Nvcd * isite];
1475  double *w2 = &v2[Nvcd * isite];
1476  const double *u = m_U->ptr(m_Ndf * (isite + (1 - ieo) * m_Nvol / 2 + idir * m_Nvol));
1477 
1478  int kt0 = m_arg[itask].kt0;
1479  int Nxy = m_Nx2 * m_Ny;
1480  int Nxyz = Nxy * m_Nz;
1481 
1482  for (int it = kt0; it < m_Mt; ++it) {
1483  for (int iz = 0; iz < m_Mz; ++iz) {
1484  for (int ixy = 0; ixy < Nxy; ++ixy) {
1485  int is = ixy + Nxy * (iz + m_Nz * it);
1486  int iv = Nvcd * is;
1487  int in = Nvcd * (is - Nxyz);
1488  int ig = m_Ndf * (is - Nxyz);
1489 
1490  for (int ic = 0; ic < m_Nc; ++ic) {
1491  vt1[2 * ic] = 2.0 * w1[2 * ic + id1 + in];
1492  vt1[2 * ic + 1] = 2.0 * w1[2 * ic + 1 + id1 + in];
1493  vt2[2 * ic] = 2.0 * w1[2 * ic + id2 + in];
1494  vt2[2 * ic + 1] = 2.0 * w1[2 * ic + 1 + id2 + in];
1495  }
1496 
1497  for (int ic = 0; ic < m_Nc; ++ic) {
1498  int ic2 = 2 * ic;
1499  wt1r = mult_udagv_r(&u[ic2 + ig], vt1, m_Nc);
1500  wt1i = mult_udagv_i(&u[ic2 + ig], vt1, m_Nc);
1501  wt2r = mult_udagv_r(&u[ic2 + ig], vt2, m_Nc);
1502  wt2i = mult_udagv_i(&u[ic2 + ig], vt2, m_Nc);
1503 
1504  w2[ic2 + id1 + iv] += wt1r;
1505  w2[ic2 + 1 + id1 + iv] += wt1i;
1506  w2[ic2 + id2 + iv] += wt2r;
1507  w2[ic2 + 1 + id2 + iv] += wt2i;
1508  }
1509  }
1510  }
1511  }
1512 }
1513 
1514 
1515 //====================================================================
1516 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tp1_chiral_thread(
1517  int itask, double *vcp1, const double *v1, int ieo)
1518 {
1519  int Nvc2 = 2 * m_Nvc;
1520  int Nvcd = m_Nvc * m_Nd;
1521  int Nvcd2 = Nvcd / 2;
1522 
1523  int id1 = 0;
1524  int id2 = m_Nvc;
1525  int id3 = m_Nvc * 2;
1526  int id4 = m_Nvc * 3;
1527 
1528  int isite = m_arg[itask].isite;
1529  int isite_cp = m_arg[itask].isite_cpt;
1530 
1531  const double *w1 = &v1[Nvcd * isite];
1532  double *w2 = &vcp1[Nvcd2 * isite_cp];
1533 
1534  int idir = 3;
1535  double bc2 = m_boundary2[idir];
1536 
1537  if (m_arg[itask].kt0 == 1) {
1538  int Nxy = m_Nx2 * m_Ny;
1539  int it = 0;
1540  for (int iz = 0; iz < m_Mz; ++iz) {
1541  for (int ixy = 0; ixy < Nxy; ++ixy) {
1542  int is = ixy + Nxy * (iz + m_Nz * it);
1543  int is2 = ixy + Nxy * iz;
1544 
1545  int in = Nvcd * is;
1546  int ix1 = Nvc2 * is2;
1547  int ix2 = ix1 + m_Nvc;
1548 
1549  for (int ic = 0; ic < m_Nc; ++ic) {
1550  w2[2 * ic + ix1] = bc2 * (w1[2 * ic + id1 + in] + w1[2 * ic + id3 + in]);
1551  w2[2 * ic + 1 + ix1] = bc2 * (w1[2 * ic + 1 + id1 + in] + w1[2 * ic + 1 + id3 + in]);
1552  w2[2 * ic + ix2] = bc2 * (w1[2 * ic + id2 + in] + w1[2 * ic + id4 + in]);
1553  w2[2 * ic + 1 + ix2] = bc2 * (w1[2 * ic + 1 + id2 + in] + w1[2 * ic + 1 + id4 + in]);
1554  }
1555  }
1556  }
1557  }
1558 }
1559 
1560 
1561 //====================================================================
1562 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tp2_chiral_thread(
1563  int itask, double *v2, const double *vcp2, int ieo)
1564 {
1565  int Nvc2 = 2 * m_Nvc;
1566  int Nvcd = m_Nvc * m_Nd;
1567  int Nvcd2 = Nvcd / 2;
1568 
1569  int id1 = 0;
1570  int id2 = m_Nvc;
1571  int id3 = m_Nvc * 2;
1572  int id4 = m_Nvc * 3;
1573 
1574  int idir = 3;
1575 
1576  double wt1r, wt1i, wt2r, wt2i;
1577 
1578  int isite = m_arg[itask].isite;
1579  int isite_cp = m_arg[itask].isite_cpt;
1580 
1581  const double *w1 = &vcp2[Nvcd2 * isite_cp];
1582  double *w2 = &v2[Nvcd * isite];
1583  const double *u = m_U->ptr(m_Ndf * (isite + ieo * m_Nvol / 2 + idir * m_Nvol));
1584 
1585  if (m_arg[itask].kt1 == 1) {
1586  int Nxy = m_Nx2 * m_Ny;
1587  int it = m_Mt - 1;
1588  for (int iz = 0; iz < m_Mz; ++iz) {
1589  for (int ixy = 0; ixy < Nxy; ++ixy) {
1590  int is = ixy + Nxy * (iz + m_Nz * it);
1591  int is2 = ixy + Nxy * iz;
1592  int iv = Nvcd * is;
1593  int ig = m_Ndf * is;
1594  int ix1 = Nvc2 * is2;
1595  int ix2 = ix1 + m_Nvc;
1596 
1597  for (int ic = 0; ic < m_Nc; ++ic) {
1598  int ic2 = ic * m_Nvc;
1599 
1600  wt1r = mult_uv_r(&u[ic2 + ig], &w1[ix1], m_Nc);
1601  wt1i = mult_uv_i(&u[ic2 + ig], &w1[ix1], m_Nc);
1602  wt2r = mult_uv_r(&u[ic2 + ig], &w1[ix2], m_Nc);
1603  wt2i = mult_uv_i(&u[ic2 + ig], &w1[ix2], m_Nc);
1604 
1605  w2[2 * ic + id1 + iv] += wt1r;
1606  w2[2 * ic + 1 + id1 + iv] += wt1i;
1607  w2[2 * ic + id2 + iv] += wt2r;
1608  w2[2 * ic + 1 + id2 + iv] += wt2i;
1609  w2[2 * ic + id3 + iv] += wt1r;
1610  w2[2 * ic + 1 + id3 + iv] += wt1i;
1611  w2[2 * ic + id4 + iv] += wt2r;
1612  w2[2 * ic + 1 + id4 + iv] += wt2i;
1613  }
1614  }
1615  }
1616  }
1617 }
1618 
1619 
1620 //====================================================================
1621 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tpb_chiral_thread(
1622  int itask, double *v2, const double *v1, int ieo)
1623 {
1624  int Nvcd = m_Nvc * m_Nd;
1625 
1626  int id1 = 0;
1627  int id2 = m_Nvc;
1628  int id3 = m_Nvc * 2;
1629  int id4 = m_Nvc * 3;
1630 
1631  int idir = 3;
1632 
1633  double vt1[m_Nvc], vt2[m_Nvc];
1634  double wt1r, wt1i, wt2r, wt2i;
1635 
1636  int isite = m_arg[itask].isite;
1637 
1638  const double *w1 = &v1[Nvcd * isite];
1639  double *w2 = &v2[Nvcd * isite];
1640  const double *u = m_U->ptr(m_Ndf * (isite + ieo * m_Nvol / 2 + idir * m_Nvol));
1641 
1642  int kt1 = m_arg[itask].kt1;
1643  int Nxy = m_Nx2 * m_Ny;
1644  int Nxyz = Nxy * m_Nz;
1645 
1646  for (int it = 0; it < m_Mt - kt1; ++it) {
1647  for (int iz = 0; iz < m_Mz; ++iz) {
1648  for (int ixy = 0; ixy < Nxy; ++ixy) {
1649  int is = ixy + Nxy * (iz + m_Nz * it);
1650  int iv = Nvcd * is;
1651  int in = Nvcd * (is + Nxyz);
1652  int ig = m_Ndf * is;
1653 
1654  for (int ic = 0; ic < m_Nc; ++ic) {
1655  vt1[2 * ic] = w1[2 * ic + id1 + in] + w1[2 * ic + id3 + in];
1656  vt1[2 * ic + 1] = w1[2 * ic + 1 + id1 + in] + w1[2 * ic + 1 + id3 + in];
1657  vt2[2 * ic] = w1[2 * ic + id2 + in] + w1[2 * ic + id4 + in];
1658  vt2[2 * ic + 1] = w1[2 * ic + 1 + id2 + in] + w1[2 * ic + 1 + id4 + in];
1659  }
1660 
1661  for (int ic = 0; ic < m_Nc; ++ic) {
1662  int ic2 = ic * m_Nvc;
1663 
1664  wt1r = mult_uv_r(&u[ic2 + ig], vt1, m_Nc);
1665  wt1i = mult_uv_i(&u[ic2 + ig], vt1, m_Nc);
1666  wt2r = mult_uv_r(&u[ic2 + ig], vt2, m_Nc);
1667  wt2i = mult_uv_i(&u[ic2 + ig], vt2, m_Nc);
1668 
1669  w2[2 * ic + id1 + iv] += wt1r;
1670  w2[2 * ic + 1 + id1 + iv] += wt1i;
1671  w2[2 * ic + id2 + iv] += wt2r;
1672  w2[2 * ic + 1 + id2 + iv] += wt2i;
1673  w2[2 * ic + id3 + iv] += wt1r;
1674  w2[2 * ic + 1 + id3 + iv] += wt1i;
1675  w2[2 * ic + id4 + iv] += wt2r;
1676  w2[2 * ic + 1 + id4 + iv] += wt2i;
1677  }
1678  }
1679  }
1680  }
1681 }
1682 
1683 
1684 //====================================================================
1685 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tm1_chiral_thread(
1686  int itask, double *vcp1, const double *v1, int ieo)
1687 {
1688  int Nvc2 = 2 * m_Nvc;
1689  int Nvcd = m_Nvc * m_Nd;
1690  int Nvcd2 = Nvcd / 2;
1691 
1692  int id1 = 0;
1693  int id2 = m_Nvc;
1694  int id3 = m_Nvc * 2;
1695  int id4 = m_Nvc * 3;
1696 
1697  int idir = 3;
1698 
1699  int isite = m_arg[itask].isite;
1700  int isite_cp = m_arg[itask].isite_cpt;
1701 
1702  const double *w1 = &v1[Nvcd * isite];
1703  double *w2 = &vcp1[Nvcd2 * isite_cp];
1704  const double *u = m_U->ptr(m_Ndf * (isite + (1 - ieo) * m_Nvol / 2 + idir * m_Nvol));
1705 
1706  double vt1[m_Nvc], vt2[m_Nvc];
1707 
1708  if (m_arg[itask].kt1 == 1) {
1709  int Nxy = m_Nx2 * m_Ny;
1710  int it = m_Mt - 1;
1711  for (int iz = 0; iz < m_Mz; ++iz) {
1712  for (int ixy = 0; ixy < Nxy; ++ixy) {
1713  int is = ixy + Nxy * (iz + m_Nz * it);
1714  int is2 = ixy + Nxy * iz;
1715  int in = Nvcd * is;
1716  int ig = m_Ndf * is;
1717  int ix1 = Nvc2 * is2;
1718  int ix2 = ix1 + m_Nvc;
1719 
1720  for (int ic = 0; ic < m_Nc; ++ic) {
1721  vt1[2 * ic] = w1[2 * ic + id1 + in] - w1[2 * ic + id3 + in];
1722  vt1[2 * ic + 1] = w1[2 * ic + 1 + id1 + in] - w1[2 * ic + 1 + id3 + in];
1723  vt2[2 * ic] = w1[2 * ic + id2 + in] - w1[2 * ic + id4 + in];
1724  vt2[2 * ic + 1] = w1[2 * ic + 1 + id2 + in] - w1[2 * ic + 1 + id4 + in];
1725  }
1726 
1727  for (int ic = 0; ic < m_Nc; ++ic) {
1728  int icr = 2 * ic;
1729  w2[icr + ix1] = mult_udagv_r(&u[icr + ig], vt1, m_Nc);
1730  w2[icr + 1 + ix1] = mult_udagv_i(&u[icr + ig], vt1, m_Nc);
1731  w2[icr + ix2] = mult_udagv_r(&u[icr + ig], vt2, m_Nc);
1732  w2[icr + 1 + ix2] = mult_udagv_i(&u[icr + ig], vt2, m_Nc);
1733  }
1734  }
1735  }
1736  }
1737 }
1738 
1739 
1740 //====================================================================
1741 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tm2_chiral_thread(
1742  int itask, double *v2, const double *vcp2, int ieo)
1743 {
1744  int Nvc2 = 2 * m_Nvc;
1745  int Nvcd = m_Nvc * m_Nd;
1746  int Nvcd2 = Nvcd / 2;
1747 
1748  int id1 = 0;
1749  int id2 = m_Nvc;
1750  int id3 = m_Nvc * 2;
1751  int id4 = m_Nvc * 3;
1752 
1753  int idir = 3;
1754  double bc2 = m_boundary2[idir];
1755 
1756  // double wt1r, wt1i, wt2r, wt2i;
1757 
1758  int isite = m_arg[itask].isite;
1759  int isite_cp = m_arg[itask].isite_cpt;
1760 
1761  const double *w1 = &vcp2[Nvcd2 * isite_cp];
1762  double *w2 = &v2[Nvcd * isite];
1763 
1764  if (m_arg[itask].kt0 == 1) {
1765  int Nxy = m_Nx2 * m_Ny;
1766  int it = 0;
1767  for (int iz = 0; iz < m_Mz; ++iz) {
1768  for (int ixy = 0; ixy < Nxy; ++ixy) {
1769  int is = ixy + Nxy * (iz + m_Nz * it);
1770  int is2 = ixy + Nxy * iz;
1771  int iv = Nvcd * is;
1772  int ix1 = Nvc2 * is2;
1773  int ix2 = ix1 + m_Nvc;
1774 
1775  for (int ic = 0; ic < m_Nc; ++ic) {
1776  int icr = 2 * ic;
1777  int ici = 2 * ic + 1;
1778  w2[icr + id1 + iv] += bc2 * w1[icr + ix1];
1779  w2[ici + id1 + iv] += bc2 * w1[ici + ix1];
1780  w2[icr + id2 + iv] += bc2 * w1[icr + ix2];
1781  w2[ici + id2 + iv] += bc2 * w1[ici + ix2];
1782  w2[icr + id3 + iv] -= bc2 * w1[icr + ix1];
1783  w2[ici + id3 + iv] -= bc2 * w1[ici + ix1];
1784  w2[icr + id4 + iv] -= bc2 * w1[icr + ix2];
1785  w2[ici + id4 + iv] -= bc2 * w1[ici + ix2];
1786  }
1787  }
1788  }
1789  }
1790 }
1791 
1792 
1793 //====================================================================
1794 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tmb_chiral_thread(
1795  int itask, double *v2, const double *v1, int ieo)
1796 {
1797  int Nvcd = m_Nvc * m_Nd;
1798 
1799  int id1 = 0;
1800  int id2 = m_Nvc;
1801  int id3 = m_Nvc * 2;
1802  int id4 = m_Nvc * 3;
1803 
1804  int idir = 3;
1805 
1806  double vt1[m_Nvc], vt2[m_Nvc];
1807  double wt1r, wt1i, wt2r, wt2i;
1808 
1809  int isite = m_arg[itask].isite;
1810 
1811  const double *w1 = &v1[Nvcd * isite];
1812  double *w2 = &v2[Nvcd * isite];
1813  const double *u = m_U->ptr(m_Ndf * (isite + (1 - ieo) * m_Nvol / 2 + idir * m_Nvol));
1814 
1815  int kt0 = m_arg[itask].kt0;
1816  int Nxy = m_Nx2 * m_Ny;
1817  int Nxyz = Nxy * m_Nz;
1818 
1819  for (int it = kt0; it < m_Mt; ++it) {
1820  for (int iz = 0; iz < m_Mz; ++iz) {
1821  for (int ixy = 0; ixy < Nxy; ++ixy) {
1822  int is = ixy + Nxy * (iz + m_Nz * it);
1823  int iv = Nvcd * is;
1824  int in = Nvcd * (is - Nxyz);
1825  int ig = m_Ndf * (is - Nxyz);
1826 
1827  for (int ic = 0; ic < m_Nc; ++ic) {
1828  vt1[2 * ic] = w1[2 * ic + id1 + in] - w1[2 * ic + id3 + in];
1829  vt1[2 * ic + 1] = w1[2 * ic + 1 + id1 + in] - w1[2 * ic + 1 + id3 + in];
1830  vt2[2 * ic] = w1[2 * ic + id2 + in] - w1[2 * ic + id4 + in];
1831  vt2[2 * ic + 1] = w1[2 * ic + 1 + id2 + in] - w1[2 * ic + 1 + id4 + in];
1832  }
1833 
1834  for (int ic = 0; ic < m_Nc; ++ic) {
1835  int ic2 = 2 * ic;
1836  wt1r = mult_udagv_r(&u[ic2 + ig], vt1, m_Nc);
1837  wt1i = mult_udagv_i(&u[ic2 + ig], vt1, m_Nc);
1838  wt2r = mult_udagv_r(&u[ic2 + ig], vt2, m_Nc);
1839  wt2i = mult_udagv_i(&u[ic2 + ig], vt2, m_Nc);
1840 
1841  w2[ic2 + id1 + iv] += wt1r;
1842  w2[ic2 + 1 + id1 + iv] += wt1i;
1843  w2[ic2 + id2 + iv] += wt2r;
1844  w2[ic2 + 1 + id2 + iv] += wt2i;
1845  w2[ic2 + id3 + iv] -= wt1r;
1846  w2[ic2 + 1 + id3 + iv] -= wt1i;
1847  w2[ic2 + id4 + iv] -= wt2r;
1848  w2[ic2 + 1 + id4 + iv] -= wt2i;
1849  }
1850  }
1851  }
1852  }
1853 }
1854 
1855 
1856 //====================================================================
1857 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::gm5_dirac_thread(
1858  int itask, double *v2, const double *v1)
1859 {
1860  int Nvcd = m_Nvc * m_Nd;
1861  int Nxy = m_Nx2 * m_Ny;
1862 
1863  int id1 = 0;
1864  int id2 = m_Nvc;
1865  int id3 = m_Nvc * 2;
1866  int id4 = m_Nvc * 3;
1867 
1868  int isite = m_arg[itask].isite;
1869 
1870  const double *w1 = &v1[Nvcd * isite];
1871  double *w2 = &v2[Nvcd * isite];
1872 
1873  for (int it = 0; it < m_Mt; ++it) {
1874  for (int iz = 0; iz < m_Mz; ++iz) {
1875  for (int ixy = 0; ixy < Nxy; ++ixy) {
1876  int iv = Nvcd * (ixy + Nxy * (iz + m_Nz * it));
1877  for (int ivc = 0; ivc < m_Nvc; ++ivc) {
1878  w2[ivc + id1 + iv] = w1[ivc + id3 + iv];
1879  w2[ivc + id2 + iv] = w1[ivc + id4 + iv];
1880  w2[ivc + id3 + iv] = w1[ivc + id1 + iv];
1881  w2[ivc + id4 + iv] = w1[ivc + id2 + iv];
1882  }
1883  }
1884  }
1885  }
1886 }
1887 
1888 
1889 //====================================================================
1890 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::gm5_chiral_thread(
1891  int itask, double *v2, const double *v1)
1892 {
1893  int Nvcd = m_Nvc * m_Nd;
1894  int Nxy = m_Nx2 * m_Ny;
1895 
1896  int id1 = 0;
1897  int id2 = m_Nvc;
1898  int id3 = m_Nvc * 2;
1899  int id4 = m_Nvc * 3;
1900 
1901  int isite = m_arg[itask].isite;
1902 
1903  const double *w1 = &v1[Nvcd * isite];
1904  double *w2 = &v2[Nvcd * isite];
1905 
1906  for (int it = 0; it < m_Mt; ++it) {
1907  for (int iz = 0; iz < m_Mz; ++iz) {
1908  for (int ixy = 0; ixy < Nxy; ++ixy) {
1909  int iv = Nvcd * (ixy + Nxy * (iz + m_Nz * it));
1910  for (int ivc = 0; ivc < m_Nvc; ++ivc) {
1911  w2[ivc + id1 + iv] = w1[ivc + id1 + iv];
1912  w2[ivc + id2 + iv] = w1[ivc + id2 + iv];
1913  w2[ivc + id3 + iv] = -w1[ivc + id3 + iv];
1914  w2[ivc + id4 + iv] = -w1[ivc + id4 + iv];
1915  }
1916  }
1917  }
1918  }
1919 }
1920 
1921 
1922 //====================================================================
1923 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::gm5_dirac_thread(int itask,
1924  double *v1)
1925 {
1926  int Nvcd = m_Nvc * m_Nd;
1927  int Nxy = m_Nx2 * m_Ny;
1928 
1929  int id1 = 0;
1930  int id2 = m_Nvc;
1931  int id3 = m_Nvc * 2;
1932  int id4 = m_Nvc * 3;
1933 
1934  int isite = m_arg[itask].isite;
1935  double *w1 = &v1[Nvcd * isite];
1936 
1937  for (int it = 0; it < m_Mt; ++it) {
1938  for (int iz = 0; iz < m_Mz; ++iz) {
1939  for (int ixy = 0; ixy < Nxy; ++ixy) {
1940  int iv = Nvcd * (ixy + Nxy * (iz + m_Nz * it));
1941  for (int ivc = 0; ivc < m_Nvc; ++ivc) {
1942  double wt1 = w1[ivc + id1 + iv];
1943  double wt2 = w1[ivc + id2 + iv];
1944  w1[ivc + id1 + iv] = w1[ivc + id3 + iv];
1945  w1[ivc + id2 + iv] = w1[ivc + id4 + iv];
1946  w1[ivc + id3 + iv] = wt1;
1947  w1[ivc + id4 + iv] = wt2;
1948  }
1949  }
1950  }
1951  }
1952 }
1953 
1954 
1955 //====================================================================
1956 void Fopr_Wilson_eo::Fopr_Wilson_eo_impl::gm5_chiral_thread(int itask,
1957  double *v1)
1958 {
1959  int Nvcd = m_Nvc * m_Nd;
1960  int Nxy = m_Nx2 * m_Ny;
1961 
1962  // int id1 = 0;
1963  // int id2 = m_Nvc;
1964  int id3 = m_Nvc * 2;
1965  int id4 = m_Nvc * 3;
1966 
1967  int isite = m_arg[itask].isite;
1968  double *w1 = &v1[Nvcd * isite];
1969 
1970  for (int it = 0; it < m_Mt; ++it) {
1971  for (int iz = 0; iz < m_Mz; ++iz) {
1972  for (int ixy = 0; ixy < Nxy; ++ixy) {
1973  int iv = Nvcd * (ixy + Nxy * (iz + m_Nz * it));
1974  for (int ivc = 0; ivc < m_Nvc; ++ivc) {
1975  w1[ivc + id3 + iv] = -w1[ivc + id3 + iv];
1976  w1[ivc + id4 + iv] = -w1[ivc + id4 + iv];
1977  }
1978  }
1979  }
1980  }
1981 }
1982 
1983 
1984 //====================================================================
1985 //============================================================END=====
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::m_Ntask
int m_Ntask
Definition: fopr_Wilson_eo_impl.h:142
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_xpb_thread
void mult_xpb_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:261
fopr_Wilson_eo_impl.h
Bridge::vout
BridgeIO vout
Definition: bridgeIO.cpp:278
threadManager_OpenMP.h
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tpb_dirac_thread
void mult_tpb_dirac_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1292
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tmb_chiral_thread
void mult_tmb_chiral_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1794
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tp2_chiral_thread
void mult_tp2_chiral_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1562
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::m_Ntask_z
int m_Ntask_z
Definition: fopr_Wilson_eo_impl.h:143
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_ym1_thread
void mult_ym1_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:681
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::class_name
static const std::string class_name
Definition: fopr_Wilson_eo_impl.h:37
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::m_Mt
int m_Mt
Definition: fopr_Wilson_eo_impl.h:141
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_ymb_thread
void mult_ymb_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:790
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tmb_dirac_thread
void mult_tmb_dirac_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1457
Bridge::BridgeIO::general
void general(const char *format,...)
Definition: bridgeIO.cpp:65
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_xm2_thread
void mult_xm2_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:389
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_zm2_thread
void mult_zm2_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1075
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_zm1_thread
void mult_zm1_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1019
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::clear_thread
void clear_thread(int, double *)
Definition: fopr_Wilson_eo_impl_thread.cpp:124
Fopr_Wilson_eo::v1
Vec_SU_N v1
Definition: fopr_Wilson_eo.h:71
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_zp1_thread
void mult_zp1_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:851
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::m_Ntask_t
int m_Ntask_t
Definition: fopr_Wilson_eo_impl.h:143
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tm2_chiral_thread
void mult_tm2_chiral_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1741
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tp2_dirac_thread
void mult_tp2_dirac_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1237
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_ypb_thread
void mult_ypb_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:619
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tm1_dirac_thread
void mult_tm1_dirac_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1352
Fopr_Wilson_eo::m_Nc
int m_Nc
Definition: fopr_Wilson_eo.h:61
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tm2_dirac_thread
void mult_tm2_dirac_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1408
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tp1_chiral_thread
void mult_tp1_chiral_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1516
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::m_Ny
int m_Ny
Definition: fopr_Wilson_eo_impl.h:42
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::m_Nz
int m_Nz
Definition: fopr_Wilson_eo_impl.h:42
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::m_Nthread
int m_Nthread
Definition: fopr_Wilson_eo_impl.h:142
Fopr_Wilson_eo::m_Nd
int m_Nd
Definition: fopr_Wilson_eo.h:61
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_yp1_thread
void mult_yp1_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:515
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_zmb_thread
void mult_zmb_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1129
field_G.h
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::m_Mz
int m_Mz
Definition: fopr_Wilson_eo_impl.h:141
ThreadManager_OpenMP::get_num_threads_available
static int get_num_threads_available()
returns number of threads (works outside of parallel region).
Definition: threadManager_OpenMP.h:61
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::m_Nx2
int m_Nx2
Definition: fopr_Wilson_eo_impl.h:42
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_zpb_thread
void mult_zpb_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:956
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_xm1_thread
void mult_xm1_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:326
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::m_Nt
int m_Nt
Definition: fopr_Wilson_eo_impl.h:42
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_yp2_thread
void mult_yp2_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:560
Bridge::BridgeIO::crucial
void crucial(const char *format,...)
Definition: bridgeIO.cpp:48
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tm1_chiral_thread
void mult_tm1_chiral_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1685
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::m_arg
std::vector< mult_arg > m_arg
Definition: fopr_Wilson_eo_impl.h:151
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_xmb_thread
void mult_xmb_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:449
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::gm5_dirac_thread
void gm5_dirac_thread(int, double *, const double *)
Definition: fopr_Wilson_eo_impl_thread.cpp:1857
Fopr_Wilson_eo::Meo
void Meo(Field &, const Field &, const int ieo)
even-odd operatior: ieo=0: even <– odd, ieo=1: odd <– even
Definition: fopr_Wilson_eo.cpp:172
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tp1_dirac_thread
void mult_tp1_dirac_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1191
Fopr_Wilson_eo::v2
Vec_SU_N v2
Definition: fopr_Wilson_eo.h:71
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::m_vl
Bridge::VerboseLevel m_vl
Definition: fopr_Wilson_eo_impl.h:48
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_zp2_thread
void mult_zp2_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:897
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::setup_thread
void setup_thread()
Definition: fopr_Wilson_eo_impl_thread.cpp:32
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_tpb_chiral_thread
void mult_tpb_chiral_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:1621
Fopr_Wilson_eo::m_Nvol
int m_Nvol
Definition: fopr_Wilson_eo.h:62
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_xp2_thread
void mult_xp2_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:197
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::scal_thread
void scal_thread(int, double *, double)
Definition: fopr_Wilson_eo_impl_thread.cpp:103
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_ym2_thread
void mult_ym2_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:737
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::gm5_chiral_thread
void gm5_chiral_thread(int, double *, const double *)
Definition: fopr_Wilson_eo_impl_thread.cpp:1890
Fopr_Wilson_eo::Fopr_Wilson_eo_impl::mult_xp1_thread
void mult_xp1_thread(int, double *, const double *, int)
Definition: fopr_Wilson_eo_impl_thread.cpp:145