afopr_Clover_QWS_dd.h

Go to the documentation of this file.

 
#ifndef QXS_AFOPR_CLOVER_QWS_DD_INCLUDED
#define QXS_AFOPR_CLOVER_QWS_DD_INCLUDED
 
#include <cstdio>
#include <cstdlib>
 
#include <string>
using std::string;
 
#include <vector>
using std::vector;
 
#include "lib_alt/Fopr/afopr_dd.h"
 
#include "lib/Parameters/commonParameters.h"
#include "lib/Parameters/parameters.h"
#include "lib/IO/bridgeIO.h"
using Bridge::vout;
 
#include "lib/Communicator/communicator.h"
#include "lib/Communicator/communicator_impl.h"
 
#include "lib/Fopr/fopr_CloverTerm.h"
 
#include "lib_alt_QXS/Field/afield.h"
#include "lib_alt_QXS/Field/aindex_lex.h"
 
class Field;
 
template<typename AFIELD>
class AFopr_Clover_QWS_dd : public AFopr_dd<AFIELD>
{
 public:
  typedef typename AFIELD::real_t real_t;
  static const std::string class_name;
 
 protected:
  int m_Nc, m_Nd, m_Nvc, m_Ndf, m_Ndim;
  int m_Nx, m_Ny, m_Nz, m_Nt, m_Nst;
  int m_Nxv, m_Nyv, m_Nstv;
 
  real_t m_CKs;                       
  std::vector<int> m_boundary;        
  std::string m_repr;                 
 
  Bridge::VerboseLevel m_vl;          
 
  std::vector<int> m_block_size;      
 
  int m_Ieo;                          
 
  Field *m_conf;                      
  AFIELD m_U;                         
  AFIELD m_Ublock;                    
 
  std::string m_mode;                 
 
  Fopr_CloverTerm *m_fopr_csw;        
  Fopr_CloverTerm *m_fopr_csw_chiral; 
 
  AFIELD m_v1, m_v2;
 
  AFIELD m_T;           
  AFIELD m_T_qws;       
 
  int m_Nsize[4];       
  int m_block_sizev[4]; 
 
  int do_comm[4];       // switchs of communication (4=Ndim): (0: n, 1: y).
  int do_comm_any;      // switchs of communication (if any): (0: n, 1: y).
 
  std::vector<int> m_bdsize;
  using allocator_t = typename AFIELD::template aligned_allocator<char>;
  using Channel     = Channel_impl<allocator_t>;
  std::vector<Channel> chsend_up, chrecv_up, chsend_dn, chrecv_dn;
  ChannelSet chset_send, chset_recv;
 
 public:
  AFopr_Clover_QWS_dd(const Parameters& params) : AFopr_dd<AFIELD>()
  {
    init();
    set_parameters(params);
  }
 
  ~AFopr_Clover_QWS_dd() { tidyup(); }
 
  void set_parameters(const Parameters& params);
 
  void set_parameters(real_t CKs, std::vector<int> bc,
                      std::vector<int> block_size);
 
  void set_config(Field *u);
 
  bool needs_convert() { return true; }
 
  void convert(AFIELD& v, const Field& w);
 
  void convert(AFIELD& v, const AFIELD& w);
 
  void reverse(Field& v, const AFIELD& w);
 
  void reverse(AFIELD& v, const AFIELD& w);
 
  inline Field *get_conf(void) { return m_conf; }
 
  //void set_mode(std::string mode){ m_mode = mode; }
  void set_mode(std::string mode);
 
  std::string get_mode() const;
 
  void mult(AFIELD&, const AFIELD&);
  void mult_dag(AFIELD&, const AFIELD&);
  void mult_gm5(AFIELD&, const AFIELD&);
 
  void project_chiral(AFIELD&, const AFIELD&, int ch);
 
  void mult_up(int mu, AFIELD&, const AFIELD&);
  void mult_dn(int mu, AFIELD&, const AFIELD&);
 
  void mult_sap(AFIELD&, const AFIELD&, const int ieo);
  void mult_dd(AFIELD&, const AFIELD&);
  void mult_dup(AFIELD&, const AFIELD&, const int mu);
  void mult_ddn(AFIELD&, const AFIELD&, const int mu);
 
  void mult_clv_inv(AFIELD& v);
  void mult_clv(AFIELD& v);
 
  // to be discarded
  void mult_block_hop(AFIELD& v, const AFIELD& w, const int mu)
  { mult_dup(v, w, mu); }
 
  int field_nin() { return 2 * m_Nc * m_Nd; }
 
  int field_nvol() { return m_Nst; }
 
  int field_nex() { return 1; }
 
  double flop_count() { return flop_count(m_mode); }
 
  double flop_count_sap();
 
  double flop_count(const std::string mode);
 
 private:
  void init();
 
  void tidyup();
 
  void setup_channels();
 
  void set_boundary();
 
  void set_boundary_config(AFIELD&, const int);
 
  void set_block_config(AFIELD&);
 
  void set_csw();
 
  void set_csw_chrot();
 
  void set_csw_qws();
 
  void solve_csw_qws_inv(Field&, const Field&);
 
  void mult_csw(real_t *, real_t *);
 
  void DdagD(AFIELD&, const AFIELD&);
  void Ddag(AFIELD&, const AFIELD&);
  void H(AFIELD&, const AFIELD&);
  void D(AFIELD&, const AFIELD&);
 
  void mult_gm4(AFIELD&, const AFIELD&);
 
  void mult_D(AFIELD&, const AFIELD&);
 
  void mult_D_qws(AFIELD&, const AFIELD&);
 
  void mult_D_alt(AFIELD&, const AFIELD&);
 
  void mult_xp(real_t *, real_t *, int);
  void mult_xm(real_t *, real_t *, int);
  void mult_yp(real_t *, real_t *, int);
  void mult_ym(real_t *, real_t *, int);
  void mult_zp(real_t *, real_t *, int);
  void mult_zm(real_t *, real_t *, int);
  void mult_tp(real_t *, real_t *, int);
  void mult_tm(real_t *, real_t *, int);
 
  void mult_gm5(real_t *, real_t *);
 
  void clear(real_t *);
 
  void scal_local(real_t *, real_t);
  void aypx(real_t, real_t *, real_t *);
  void gm5_aypx(real_t, real_t *, real_t *);
 
 
#ifdef USE_FACTORY
 private:
  static AFopr<AFIELD> *create_object_with_params(const Parameters& params)
  { return new AFopr_Clover_QWS_dd(params); }
 
 public:
  static bool register_factory()
  {
    bool init1 = AFopr<AFIELD>::Factory_params::Register("Clover_QWS_dd",
                                                         create_object_with_params);
    return init1;
  }
#endif
};
 
#endif  // AFOPR_CLOVER_DD_INCLUDED