From 7f0fc0eff5ee11e218462bab1b64a28de71c837e Mon Sep 17 00:00:00 2001 From: James Harrison Date: Tue, 1 Nov 2016 16:02:35 +0000 Subject: [PATCH 1/2] Remove explicit use of double-precision types in photon.h --- lib/qcd/action/gauge/Photon.h | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lib/qcd/action/gauge/Photon.h b/lib/qcd/action/gauge/Photon.h index 409569d8..852ecb3e 100644 --- a/lib/qcd/action/gauge/Photon.h +++ b/lib/qcd/action/gauge/Photon.h @@ -78,14 +78,14 @@ namespace QCD{ const unsigned int nd = grid->_ndimension; std::vector &l = grid->_fdimensions; std::vector zm(nd,0); - TComplexD Tone = ComplexD(1.0,0.0); - TComplexD Tzero= ComplexD(0.0,0.0); + TComplex Tone = Complex(1.0,0.0); + TComplex Tzero= Complex(0.0,0.0); - one = ComplexD(1.0,0.0); + one = Complex(1.0,0.0); out = zero; for(int mu = 0; mu < nd; mu++) { - RealD twoPiL = M_PI*2./l[mu]; + Real twoPiL = M_PI*2./l[mu]; LatticeCoordinate(kmu,mu); kmu = 2.*sin(.5*twoPiL*kmu); @@ -93,7 +93,7 @@ namespace QCD{ } pokeSite(Tone, out, zm); out = one/out; - pokeSite(Tzero, out,zm); + pokeSite(Tzero, out, zm); } template @@ -107,7 +107,7 @@ namespace QCD{ case ZmScheme::QedTL: { std::vector zm(nd,0); - TComplexD Tzero = ComplexD(0.0,0.0); + TComplex Tzero = Complex(0.0,0.0); pokeSite(Tzero, out, zm); From 78c7bcee36f7d937c8f5c6afe0f2088f85ebda51 Mon Sep 17 00:00:00 2001 From: James Harrison Date: Tue, 1 Nov 2016 13:30:11 +0000 Subject: [PATCH 2/2] QedFVol: Change variables of type "double" to type "Real". --- programs/qed-fvol/qed-fvol.cc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/programs/qed-fvol/qed-fvol.cc b/programs/qed-fvol/qed-fvol.cc index 02c36a67..fd780edf 100644 --- a/programs/qed-fvol/qed-fvol.cc +++ b/programs/qed-fvol/qed-fvol.cc @@ -90,8 +90,8 @@ int main(int argc, char *argv[]) } } - double vol = grid.gSites(); - double faces = (1.0 * Nd * (Nd - 1)) / 2.0; + Real vol = grid.gSites(); + Real faces = (1.0 * Nd * (Nd - 1)) / 2.0; Complex avgPlaqA = sum(trace(plaqA)); avgPlaqA = avgPlaqA / vol / faces;