mirror of
https://github.com/paboyle/Grid.git
synced 2024-11-10 15:55:37 +00:00
41 lines
1.1 KiB
C
41 lines
1.1 KiB
C
|
#ifndef OVERLAP_WILSON_PARTFRAC_TANH_FERMION_H
|
||
|
#define OVERLAP_WILSON_PARTFRAC_TANH_FERMION_H
|
||
|
|
||
|
#include <Grid.h>
|
||
|
|
||
|
namespace Grid {
|
||
|
|
||
|
namespace QCD {
|
||
|
|
||
|
class OverlapWilsonPartialFractionTanhFermion : public PartialFractionFermion5D
|
||
|
{
|
||
|
public:
|
||
|
|
||
|
virtual void Instantiatable(void){};
|
||
|
// Constructors
|
||
|
OverlapWilsonPartialFractionTanhFermion(LatticeGaugeField &_Umu,
|
||
|
GridCartesian &FiveDimGrid,
|
||
|
GridRedBlackCartesian &FiveDimRedBlackGrid,
|
||
|
GridCartesian &FourDimGrid,
|
||
|
GridRedBlackCartesian &FourDimRedBlackGrid,
|
||
|
RealD _mass,RealD _M5,
|
||
|
RealD scale) :
|
||
|
|
||
|
// b+c=scale, b-c = 0 <=> b =c = scale/2
|
||
|
PartialFractionFermion5D(_Umu,
|
||
|
FiveDimGrid,
|
||
|
FiveDimRedBlackGrid,
|
||
|
FourDimGrid,
|
||
|
FourDimRedBlackGrid,_mass,_M5)
|
||
|
{
|
||
|
assert((Ls&0x1)==1); // Odd Ls required
|
||
|
int nrational=Ls-1;// Even rational order
|
||
|
Approx::zolotarev_data *zdata = Approx::higham(1.0,nrational);// eps is ignored for higham
|
||
|
SetCoefficientsTanh(zdata,scale);
|
||
|
Approx::zolotarev_free(zdata);
|
||
|
}
|
||
|
};
|
||
|
}
|
||
|
}
|
||
|
#endif
|