9 "Field_G: implementation for SU(2).\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[4] - g1[3] * g2[5];
20 double mult_Gnn_i(
const double *g1,
const double *g2,
const int Nc)
22 return g1[0] * g2[1] + g1[1] * g2[0]
23 + g1[2] * g2[5] + g1[3] * g2[4];
27 double mult_Gdn_r(
const double *g1,
const double *g2,
const int Nc)
29 return g1[0] * g2[0] + g1[1] * g2[1]
30 + g1[4] * g2[4] + g1[5] * g2[5];
34 double mult_Gdn_i(
const double *g1,
const double *g2,
const int Nc)
36 return g1[0] * g2[1] - g1[1] * g2[0]
37 + g1[4] * g2[5] - g1[5] * g2[4];
41 double mult_Gnd_r(
const double *g1,
const double *g2,
const int Nc)
43 return g1[0] * g2[0] + g1[1] * g2[1]
44 + g1[2] * g2[2] + g1[3] * g2[3];
48 double mult_Gnd_i(
const double *g1,
const double *g2,
const int Nc)
50 return -g1[0] * g2[1] + g1[1] * g2[0]
51 - g1[2] * g2[3] + g1[3] * g2[2];
55 double mult_Gdd_r(
const double *g1,
const double *g2,
const int Nc)
57 return g1[0] * g2[0] - g1[1] * g2[1]
58 + g1[4] * g2[2] - g1[5] * g2[3];
62 double mult_Gdd_i(
const double *g1,
const double *g2,
const int Nc)
64 return -g1[0] * g2[1] - g1[1] * g2[0]
65 - g1[4] * g2[3] - g1[5] * g2[2];
static Bridge::VerboseLevel Vlevel()
void paranoiac(const char *format,...)