Grid/lib/lattice/Lattice_coordinate.h

/*************************************************************************************

    Grid physics library, www.github.com/paboyle/Grid 

    Source file: ./lib/lattice/Lattice_coordinate.h

    Copyright (C) 2015

Author: Peter Boyle <paboyle@ph.ed.ac.uk>

    This program 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 2 of the License, or
    (at your option) any later version.

    This program 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 this program; if not, write to the Free Software Foundation, Inc.,
    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

    See the full license in the file "LICENSE" in the top level distribution directory
*************************************************************************************/
/*  END LEGAL */
#ifndef GRID_LATTICE_COORDINATE_H
#define GRID_LATTICE_COORDINATE_H

NAMESPACE_BEGIN(Grid);

template<class iobj> inline void LatticeCoordinate(Lattice<iobj> &l,int mu)
{
  typedef typename iobj::scalar_type scalar_type;
  typedef typename iobj::vector_type vector_type;

  GridBase *grid = l.Grid();
  int Nsimd = grid->iSites();

  Coordinate gcoor;
  ExtractBuffer<scalar_type> mergebuf(Nsimd);

  vector_type vI;
  auto l_v = l.View();
  for(int o=0;o<grid->oSites();o++){
    for(int i=0;i<grid->iSites();i++){
      grid->RankIndexToGlobalCoor(grid->ThisRank(),o,i,gcoor);
      mergebuf[i]=(Integer)gcoor[mu];
    }
    merge<vector_type,scalar_type>(vI,mergebuf);
    l_v[o]=vI;
  }
};

// LatticeCoordinate();
// FIXME for debug; deprecate this; made obscelete by 
template<class vobj> void lex_sites(Lattice<vobj> &l){
  auto l_v = l.View();
  Real *v_ptr = (Real *)&l_v[0];
  size_t o_len = l.Grid()->oSites();
  size_t v_len = sizeof(vobj)/sizeof(vRealF);
  size_t vec_len = vRealF::Nsimd();

  for(int i=0;i<o_len;i++){
    for(int j=0;j<v_len;j++){
      for(int vv=0;vv<vec_len;vv+=2){
	v_ptr[i*v_len*vec_len+j*vec_len+vv  ]= i+vv*500;
	v_ptr[i*v_len*vec_len+j*vec_len+vv+1]= i+vv*500;
      }
    }}
}

NAMESPACE_END(Grid);
#endif