9 "Field_G: implementation for general SU(N).\n");
13 double mult_Gnn_r(
const double *g1,
const double *g2,
const int Nc)
17 for (
int i = 0; i < Nc; ++i) {
18 a += g1[2 * i] * g2[2 * i * Nc] - g1[2 * i + 1] * g2[2 * i * Nc + 1];
24 double mult_Gnn_i(
const double *g1,
const double *g2,
const int Nc)
28 for (
int i = 0; i < Nc; ++i) {
29 a += g1[2 * i] * g2[2 * i * Nc + 1] + g1[2 * i + 1] * g2[2 * i * Nc];
35 double mult_Gdn_r(
const double *g1,
const double *g2,
const int Nc)
39 for (
int i = 0; i < Nc; ++i) {
40 a += g1[2 * i * Nc] * g2[2 * i * Nc] + g1[2 * i * Nc + 1] * g2[2 * i * Nc + 1];
46 double mult_Gdn_i(
const double *g1,
const double *g2,
const int Nc)
50 for (
int i = 0; i < Nc; ++i) {
51 a += g1[2 * i * Nc] * g2[2 * i * Nc + 1] - g1[2 * i * Nc + 1] * g2[2 * i * Nc];
57 double mult_Gnd_r(
const double *g1,
const double *g2,
const int Nc)
61 for (
int i = 0; i < Nc; ++i) {
62 a += g1[2 * i] * g2[2 * i] + g1[2 * i + 1] * g2[2 * i + 1];
68 double mult_Gnd_i(
const double *g1,
const double *g2,
const int Nc)
72 for (
int i = 0; i < Nc; ++i) {
73 a += -g1[2 * i] * g2[2 * i + 1] + g1[2 * i + 1] * g2[2 * i];
79 double mult_Gdd_r(
const double *g1,
const double *g2,
const int Nc)
83 for (
int i = 0; i < Nc; ++i) {
84 a += g1[2 * i * Nc] * g2[2 * i] - g1[2 * i * Nc + 1] * g2[2 * i + 1];
90 double mult_Gdd_i(
const double *g1,
const double *g2,
const int Nc)
94 for (
int i = 0; i < Nc; ++i) {
95 a += -g1[2 * i * Nc] * g2[2 * i + 1] - g1[2 * i * Nc + 1] * g2[2 * i];
static Bridge::VerboseLevel Vlevel()
void paranoiac(const char *format,...)