2016-09-09 11:34:25 +01:00
|
|
|
/*************************************************************************************
|
2016-01-02 14:51:32 +00:00
|
|
|
|
|
|
|
Grid physics library, www.github.com/paboyle/Grid
|
|
|
|
|
2016-06-03 11:24:26 +01:00
|
|
|
|
|
|
|
|
2016-01-02 14:51:32 +00:00
|
|
|
Source file: ./lib/qcd/action/fermion/WilsonKernelsAsm.cc
|
|
|
|
|
|
|
|
Copyright (C) 2015
|
|
|
|
|
|
|
|
Author: Peter Boyle <paboyle@ph.ed.ac.uk>
|
|
|
|
Author: paboyle <paboyle@ph.ed.ac.uk>
|
2016-10-30 12:04:06 +00:00
|
|
|
Author: Guido Cossu <guido.cossu@ed.ac.uk>
|
2016-01-02 14:51:32 +00:00
|
|
|
|
|
|
|
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
|
2016-09-09 11:34:25 +01:00
|
|
|
*************************************************************************************/
|
|
|
|
/* END LEGAL */
|
2016-03-31 14:51:32 +01:00
|
|
|
|
2017-02-22 18:09:33 +00:00
|
|
|
#include <Grid/qcd/action/fermion/FermionCore.h>
|
2015-11-04 11:15:08 +00:00
|
|
|
|
2018-01-14 23:01:07 +00:00
|
|
|
NAMESPACE_BEGIN(Grid);
|
2017-02-07 06:37:10 +00:00
|
|
|
|
2016-10-22 18:14:27 +01:00
|
|
|
///////////////////////////////////////////////////////////
|
|
|
|
// Default to no assembler implementation
|
|
|
|
///////////////////////////////////////////////////////////
|
|
|
|
template<class Impl> void
|
2017-02-07 06:37:10 +00:00
|
|
|
WilsonKernels<Impl >::AsmDhopSite(StencilImpl &st,LebesgueOrder & lo,DoubledGaugeField &U,SiteHalfSpinor *buf,
|
2016-10-22 18:14:27 +01:00
|
|
|
int ss,int ssU,int Ls,int Ns,const FermionField &in, FermionField &out)
|
|
|
|
{
|
|
|
|
assert(0);
|
|
|
|
}
|
2016-10-04 15:37:32 +01:00
|
|
|
|
2016-10-22 18:14:27 +01:00
|
|
|
template<class Impl> void
|
2017-02-07 06:37:10 +00:00
|
|
|
WilsonKernels<Impl >::AsmDhopSiteDag(StencilImpl &st,LebesgueOrder & lo,DoubledGaugeField &U,SiteHalfSpinor *buf,
|
|
|
|
int ss,int ssU,int Ls,int Ns,const FermionField &in, FermionField &out)
|
|
|
|
{
|
|
|
|
assert(0);
|
|
|
|
}
|
|
|
|
|
|
|
|
template<class Impl> void
|
|
|
|
WilsonKernels<Impl >::AsmDhopSiteInt(StencilImpl &st,LebesgueOrder & lo,DoubledGaugeField &U,SiteHalfSpinor *buf,
|
|
|
|
int ss,int ssU,int Ls,int Ns,const FermionField &in, FermionField &out)
|
|
|
|
{
|
|
|
|
assert(0);
|
|
|
|
}
|
|
|
|
|
|
|
|
template<class Impl> void
|
|
|
|
WilsonKernels<Impl >::AsmDhopSiteDagInt(StencilImpl &st,LebesgueOrder & lo,DoubledGaugeField &U,SiteHalfSpinor *buf,
|
|
|
|
int ss,int ssU,int Ls,int Ns,const FermionField &in, FermionField &out)
|
|
|
|
{
|
|
|
|
assert(0);
|
|
|
|
}
|
|
|
|
|
|
|
|
template<class Impl> void
|
|
|
|
WilsonKernels<Impl >::AsmDhopSiteExt(StencilImpl &st,LebesgueOrder & lo,DoubledGaugeField &U,SiteHalfSpinor *buf,
|
|
|
|
int ss,int ssU,int Ls,int Ns,const FermionField &in, FermionField &out)
|
|
|
|
{
|
|
|
|
assert(0);
|
|
|
|
}
|
|
|
|
|
|
|
|
template<class Impl> void
|
|
|
|
WilsonKernels<Impl >::AsmDhopSiteDagExt(StencilImpl &st,LebesgueOrder & lo,DoubledGaugeField &U,SiteHalfSpinor *buf,
|
2016-10-22 18:14:27 +01:00
|
|
|
int ss,int ssU,int Ls,int Ns,const FermionField &in, FermionField &out)
|
|
|
|
{
|
|
|
|
assert(0);
|
|
|
|
}
|
2016-10-04 15:37:32 +01:00
|
|
|
|
2016-12-22 17:53:22 +00:00
|
|
|
#include <qcd/action/fermion/WilsonKernelsAsmAvx512.h>
|
|
|
|
#include <qcd/action/fermion/WilsonKernelsAsmQPX.h>
|
2016-10-04 15:37:32 +01:00
|
|
|
|
|
|
|
#define INSTANTIATE_ASM(A)\
|
2017-02-07 06:37:10 +00:00
|
|
|
template void WilsonKernels<A>::AsmDhopSite(StencilImpl &st,LebesgueOrder & lo,DoubledGaugeField &U, SiteHalfSpinor *buf,\
|
|
|
|
int ss,int ssU,int Ls,int Ns,const FermionField &in, FermionField &out);\
|
|
|
|
\
|
|
|
|
template void WilsonKernels<A>::AsmDhopSiteDag(StencilImpl &st,LebesgueOrder & lo,DoubledGaugeField &U, SiteHalfSpinor *buf,\
|
|
|
|
int ss,int ssU,int Ls,int Ns,const FermionField &in, FermionField &out);\
|
|
|
|
template void WilsonKernels<A>::AsmDhopSiteInt(StencilImpl &st,LebesgueOrder & lo,DoubledGaugeField &U, SiteHalfSpinor *buf,\
|
2016-10-04 15:37:32 +01:00
|
|
|
int ss,int ssU,int Ls,int Ns,const FermionField &in, FermionField &out);\
|
2016-10-22 18:14:27 +01:00
|
|
|
\
|
2017-02-07 06:37:10 +00:00
|
|
|
template void WilsonKernels<A>::AsmDhopSiteDagInt(StencilImpl &st,LebesgueOrder & lo,DoubledGaugeField &U, SiteHalfSpinor *buf,\
|
2016-10-04 15:37:32 +01:00
|
|
|
int ss,int ssU,int Ls,int Ns,const FermionField &in, FermionField &out);\
|
2017-02-07 06:37:10 +00:00
|
|
|
template void WilsonKernels<A>::AsmDhopSiteExt(StencilImpl &st,LebesgueOrder & lo,DoubledGaugeField &U, SiteHalfSpinor *buf,\
|
|
|
|
int ss,int ssU,int Ls,int Ns,const FermionField &in, FermionField &out);\
|
|
|
|
\
|
|
|
|
template void WilsonKernels<A>::AsmDhopSiteDagExt(StencilImpl &st,LebesgueOrder & lo,DoubledGaugeField &U, SiteHalfSpinor *buf,\
|
|
|
|
int ss,int ssU,int Ls,int Ns,const FermionField &in, FermionField &out);\
|
|
|
|
|
2016-10-04 15:37:32 +01:00
|
|
|
INSTANTIATE_ASM(WilsonImplF);
|
|
|
|
INSTANTIATE_ASM(WilsonImplD);
|
|
|
|
INSTANTIATE_ASM(ZWilsonImplF);
|
|
|
|
INSTANTIATE_ASM(ZWilsonImplD);
|
|
|
|
INSTANTIATE_ASM(GparityWilsonImplF);
|
|
|
|
INSTANTIATE_ASM(GparityWilsonImplD);
|
|
|
|
INSTANTIATE_ASM(DomainWallVec5dImplF);
|
|
|
|
INSTANTIATE_ASM(DomainWallVec5dImplD);
|
|
|
|
INSTANTIATE_ASM(ZDomainWallVec5dImplF);
|
|
|
|
INSTANTIATE_ASM(ZDomainWallVec5dImplD);
|
2016-10-22 18:14:27 +01:00
|
|
|
|
2017-04-20 11:20:26 +01:00
|
|
|
INSTANTIATE_ASM(WilsonImplFH);
|
|
|
|
INSTANTIATE_ASM(WilsonImplDF);
|
|
|
|
INSTANTIATE_ASM(ZWilsonImplFH);
|
|
|
|
INSTANTIATE_ASM(ZWilsonImplDF);
|
|
|
|
INSTANTIATE_ASM(GparityWilsonImplFH);
|
|
|
|
INSTANTIATE_ASM(GparityWilsonImplDF);
|
|
|
|
INSTANTIATE_ASM(DomainWallVec5dImplFH);
|
|
|
|
INSTANTIATE_ASM(DomainWallVec5dImplDF);
|
|
|
|
INSTANTIATE_ASM(ZDomainWallVec5dImplFH);
|
|
|
|
INSTANTIATE_ASM(ZDomainWallVec5dImplDF);
|
|
|
|
|
2018-01-14 23:01:07 +00:00
|
|
|
NAMESPACE_END(Grid);
|
2016-06-03 11:24:26 +01:00
|
|
|
|