Added scalar action phi^4

Check Norm2 output (Complex type assumption)

lib/qcd/action/scalar/ScalarAction.h

@@ -0,0 +1,77 @@
+/*************************************************************************************
+
+  Grid physics library, www.github.com/paboyle/Grid
+
+  Source file: ./lib/qcd/action/gauge/WilsonGaugeAction.h
+
+  Copyright (C) 2015
+
+Author: Azusa Yamaguchi <ayamaguc@staffmail.ed.ac.uk>
+Author: Peter Boyle <paboyle@ph.ed.ac.uk>
+Author: neo <cossu@post.kek.jp>
+Author: paboyle <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 SCALAR_ACTION_H
+#define SCALAR_ACTION_H
+
+namespace Grid {
+namespace QCD {
+
+////////////////////////////////////////////////////////////////////////
+// Wilson Gauge Action .. should I template the Nc etc..
+////////////////////////////////////////////////////////////////////////
+
+template <class Impl>
+class ScalarAction : public Action<typename Impl::Field> {
+ public:
+  INHERIT_FIELD_TYPES(Impl);
+
+ private:
+  RealD mass_square;
+  RealD lambda;
+
+ public:
+  ScalarAction(RealD ms, RealD l) : mass_square(ms), lambda(l){};
+
+  virtual void refresh(const Field &U,
+                       GridParallelRNG &pRNG){};  // noop as no pseudoferms
+
+  virtual RealD S(const Field &p) {
+    return (mass_square * 0.5 + Nd) * ScalarObs<Impl>::sumphisquared(p) +
+           (lambda / 24.) * ScalarObs<Impl>::sumphifourth(p) +
+           ScalarObs<Impl>::sumphider(p);
+  };
+
+  virtual void deriv(const Field &p,
+                     Field &force) {
+    Field tmp(p._grid);
+    Field p2(p._grid);
+    ScalarObs<Impl>::phisquared(p2, p);
+    tmp = -(Cshift(p, 0, -1) + Cshift(p, 0, 1));
+    for (int mu = 1; mu < Nd; mu++) tmp -= Cshift(p, mu, -1) + Cshift(p, mu, 1);
+
+    force=+(mass_square + 2. * Nd) * p + (lambda / 6.) * p2 * p + tmp;
+  };
+};
+}
+}
+
+#endif

lib/qcd/action/scalar/scalarImpl.h

@@ -0,0 +1,56 @@
+#ifndef SCALAR_IMPL
+#define SCALAR_IMPL
+
+
+namespace Grid {
+namespace QCD {
+
+template <class S>
+class ScalarImplTypes {
+ public:
+  typedef S Simd;
+
+  template <typename vtype>
+  using iImplField = iScalar<iScalar<iScalar<vtype> > >;
+
+  typedef iImplField<Simd> SiteField;
+
+  
+  typedef Lattice<SiteField> Field;
+
+  static inline void generate_momenta(Field& P, GridParallelRNG& pRNG){
+  	gaussian(pRNG, P);
+  }
+
+  static inline Field projectForce(Field& P){return P;}
+
+  static inline void update_field(Field& P, Field& U, double ep){
+  	U += P*ep;
+  }
+
+  static inline RealD FieldSquareNorm(Field& U){
+  	return (- sum(trace(U*U))/2.0);
+  }
+
+  static inline void HotConfiguration(GridParallelRNG &pRNG, Field &U) {
+    gaussian(pRNG, U);
+  }
+
+  static inline void TepidConfiguration(GridParallelRNG &pRNG, Field &U) {
+    gaussian(pRNG, U);
+  }
+
+  static inline void ColdConfiguration(GridParallelRNG &pRNG, Field &U) {
+    U = 1.0;
+  }
+
+};
+
+
+typedef ScalarImplTypes<vReal> ScalarImplR;
+typedef ScalarImplTypes<vRealF> ScalarImplF;
+typedef ScalarImplTypes<vRealD> ScalarImplD;
+
+}}
+
+#endif