9 "Fopr_Wilson_impl: implementation for SU(3).\n");
13 inline double mult_uv_r(
const double *g,
const double *w,
const int Nc)
15 return g[0] * w[0] - g[1] * w[1]
16 + g[2] * w[2] - g[3] * w[3]
17 + g[4] * w[4] - g[5] * w[5];
21 inline double mult_uv_i(
const double *g,
const double *w,
const int Nc)
23 return g[0] * w[1] + g[1] * w[0]
24 + g[2] * w[3] + g[3] * w[2]
25 + g[4] * w[5] + g[5] * w[4];
29 inline double mult_udagv_r(
const double *g,
const double *w,
const int Nc)
31 return g[0] * w[0] + g[1] * w[1]
32 + g[6] * w[2] + g[7] * w[3]
33 + g[12] * w[4] + g[13] * w[5];
37 inline double mult_udagv_i(
const double *g,
const double *w,
const int Nc)
39 return g[0] * w[1] - g[1] * w[0]
40 + g[6] * w[3] - g[7] * w[2]
41 + g[12] * w[5] - g[13] * w[4];
void general(const char *format,...)
static Bridge::VerboseLevel Vlevel()