9 "Field_G: implementation for SU(3).\n");
13 double mult_Gnn_r(
const double *g1,
const double *g2,
const int Nc)
15 return g1[0] * g2[0] - g1[1] * g2[1]
16 + g1[2] * g2[6] - g1[3] * g2[7]
17 + g1[4] * g2[12] - g1[5] * g2[13];
21 double mult_Gnn_i(
const double *g1,
const double *g2,
const int Nc)
23 return g1[0] * g2[1] + g1[1] * g2[0]
24 + g1[2] * g2[7] + g1[3] * g2[6]
25 + g1[4] * g2[13] + g1[5] * g2[12];
29 double mult_Gdn_r(
const double *g1,
const double *g2,
const int Nc)
31 return g1[0] * g2[0] + g1[1] * g2[1]
32 + g1[6] * g2[6] + g1[7] * g2[7]
33 + g1[12] * g2[12] + g1[13] * g2[13];
37 double mult_Gdn_i(
const double *g1,
const double *g2,
const int Nc)
39 return g1[0] * g2[1] - g1[1] * g2[0]
40 + g1[6] * g2[7] - g1[7] * g2[6]
41 + g1[12] * g2[13] - g1[13] * g2[12];
45 double mult_Gnd_r(
const double *g1,
const double *g2,
const int Nc)
47 return g1[0] * g2[0] + g1[1] * g2[1]
48 + g1[2] * g2[2] + g1[3] * g2[3]
49 + g1[4] * g2[4] + g1[5] * g2[5];
53 double mult_Gnd_i(
const double *g1,
const double *g2,
const int Nc)
55 return -g1[0] * g2[1] + g1[1] * g2[0]
56 - g1[2] * g2[3] + g1[3] * g2[2]
57 - g1[4] * g2[5] + g1[5] * g2[4];
61 double mult_Gdd_r(
const double *g1,
const double *g2,
const int Nc)
63 return g1[0] * g2[0] - g1[1] * g2[1]
64 + g1[6] * g2[2] - g1[7] * g2[3]
65 + g1[12] * g2[4] - g1[13] * g2[5];
69 double mult_Gdd_i(
const double *g1,
const double *g2,
const int Nc)
71 return -g1[0] * g2[1] - g1[1] * g2[0]
72 - g1[6] * g2[3] - g1[7] * g2[2]
73 - g1[12] * g2[5] - g1[13] * g2[4];
static Bridge::VerboseLevel Vlevel()
void paranoiac(const char *format,...)