get_rectangle_staples.c

/***********************************************************************
 * Copyright (C) 2002,2003,2004,2005,2006,2007,2008 Carsten Urbach
 *
 * This file is part of tmLQCD.
 *
 * tmLQCD is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 * 
 * tmLQCD is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with tmLQCD.  If not, see <http://www.gnu.org/licenses/>.
 ***********************************************************************/

#ifdef HAVE_CONFIG_H
#include "tmlqcd_config.h"
#endif
#include <stdlib.h>
#include <stdio.h>
#include "global.h"
#include "su3.h"
#include "get_rectangle_staples.h"

void get_rectangle_staples(su3 * const v, const int x, const int mu) {
  get_rectangle_staples_general(v,x,mu,g_gauge_field);
}

void get_rectangle_staples_general(su3 * const v, const int x, const int mu, const su3** const gf) {
  su3 ALIGN tmp1, tmp2;
  int y, z, nu;
  su3 * a, * b, * c, * d, * e;
#ifdef _KOJAK_INST
#pragma pomp inst begin(rectstaples)
#endif
#ifdef XLC
#pragma disjoint(*v, tmp1, tmp2, *a, *b, *c, *d, *e)
#endif
  _su3_zero((*v));
  for(nu = 0; nu < 4; nu++) {
    if(mu != nu) {
      /* first contr. starting from x 
       * a b c e^+ d^+
       *   c
       *   _
       * b| |e
       * a| |d
       */
      a = &gf[x][nu];
      y = g_iup[x][nu];
      b = &gf[y][nu];
      _su3_times_su3(tmp1, *a, *b);
      z = g_iup[y][nu];
      c = &gf[z][mu];
      _su3_times_su3(tmp2, tmp1, *c);

      y = g_iup[x][mu];
      d = &gf[y][nu];
      z = g_iup[y][nu];
      e = &gf[z][nu];
      _su3_times_su3(tmp1, *d, *e);
      _su3_times_su3d_acc((*v), tmp2, tmp1);

      /* 1 contr. starting idn[idn[x][nu]][nu] 
       * e^+ d^+ a b c
       *
       *e| |c
       *d|_|b
       *  a
       */
      y = g_idn[x][nu];
      z = g_idn[y][nu];
      d = &gf[z][nu];
      a = &gf[z][mu];
      _su3d_times_su3(tmp1, *d, *a);
      e = &gf[y][nu];
      _su3d_times_su3(tmp2, *e, tmp1);

      y = g_iup[z][mu];
      b = &gf[y][nu];
      z = g_iup[y][nu];
      c = &gf[z][nu];
      _su3_times_su3(tmp1, *b, *c);
      _su3_times_su3_acc((*v), tmp2, tmp1);

      /* second contr. starting from x 
       * a b c e^+ d^+
       *
       *   bc
       *   __
       * a| _|e
       *    d
       */
      a = &gf[x][nu];
      y = g_iup[x][nu];
      b = &gf[y][mu];
      _su3_times_su3(tmp1, *a, *b);
      z = g_iup[y][mu];
      c = &gf[z][mu];
      _su3_times_su3(tmp2, tmp1, *c);

      y = g_iup[x][mu];
      d = &gf[y][mu];
      z = g_iup[y][mu];
      e = &gf[z][nu];
      _su3_times_su3(tmp1, *d, *e);
      _su3_times_su3d_acc((*v), tmp2, tmp1);

      /* 1 contr. starting idn[x][nu] 
       * d^+ a b c e^+
       *
       *    e
       *    _
       * d|__|c
       *   ab
       */
      y = g_idn[x][nu];
      d = &gf[y][nu];
      a = &gf[y][mu];
      _su3d_times_su3(tmp1, *d, *a);
      z = g_iup[y][mu];
      b = &gf[z][mu];
      _su3_times_su3(tmp2, tmp1, *b);

      y = g_iup[z][mu];
      c = &gf[y][nu];
      z = g_iup[x][mu];
      e = &gf[z][mu];
      _su3_times_su3d(tmp1, *c, *e);
      _su3_times_su3_acc((*v), tmp2, tmp1);

      /* 1 contr. starting idn[idn[x][mu]][nu] 
       *  e^+ d^+ a b c
       *
       *  e
       *  _
       *d|__|c
       *  ab
       */
      y = g_idn[x][mu];
      z = g_idn[y][nu];
      d = &gf[z][nu];
      a = &gf[z][mu];
      _su3d_times_su3(tmp1, *d, *a);
      e = &gf[y][mu];
      _su3d_times_su3(tmp2, *e, tmp1);

      y = g_idn[x][nu];
      b = &gf[y][mu];
      z = g_iup[y][mu];
      c = &gf[z][nu];
      _su3_times_su3(tmp1, *b, *c);
      _su3_times_su3_acc((*v), tmp2, tmp1); 

      /* 1 contr. starting idn[x][mu] 
       * d^+ a b c e^+
       *
       *  bc
       *  __
       *a|_ |e
       *  d
       */
      y = g_idn[x][mu];
      d = &gf[y][mu];
      z = g_iup[y][nu];
      a = &gf[y][nu];
      _su3d_times_su3(tmp1, *d, *a);
      b = &gf[z][mu];
      _su3_times_su3(tmp2, tmp1, *b);

      y = g_iup[x][mu];
      e = &gf[y][nu];
      z = g_iup[x][nu];
      c = &gf[z][mu];
      _su3_times_su3d(tmp1, *c, *e);
      _su3_times_su3_acc((*v), tmp2, tmp1);
    }
  }
#ifdef _KOJAK_INST
#pragma pomp inst end(rectstaples)
#endif
}