fermiqcd_fermi_field.h

Go to the documentation of this file.

class fermi_field: public mdp_complex_field {
 public:
  int    nspin, nc;
  fermi_field() {
    reset_field();
  }
  fermi_field(mdp_lattice &a, int nc_, int nspin_=4) {
    reset_field();
    nc=nc_;
    nspin=nspin_;
    allocate_field(a, nspin*nc);
  }  
  fermi_field(fermi_field &psi) {
    reset_field();
    nc=psi.nc;
    nspin=psi.nspin;
    allocate_field(psi.lattice(), nspin*nc);
  }  
  void allocate_fermi_field(mdp_lattice &a, int nc_, int nspin_=4) {
    deallocate_field();
    nc=nc_;
    nspin=nspin_;
    allocate_field(a, nspin*nc);
  }  
  fermi_field(const fermi_field &chi) : mdp_complex_field() {
    nc=chi.nc;
    nspin=chi.nspin;
    mdp_complex_field::operator=(chi);
  }
  void operator=(const fermi_field &chi) {
    nc=chi.nc;
    nspin=chi.nspin;
    mdp_complex_field::operator=(chi);
  }
  inline mdp_matrix operator() (site x) {
    return mdp_matrix(address(x),nspin,nc);
  }
  inline mdp_matrix operator() (site x, int a) {
    return mdp_matrix(address(x,a*nc),nc,1);
  }
  inline mdp_complex& operator() (site x, int a, int i) {
    return *(address(x,a*nc+i));
  }
  inline const mdp_complex& operator() (site x, int a, int i) const {
    return *(address(x,a*nc+i));
  }
  
  void operator= (mdp_complex a) {
    for(long i=0; i<size; i++) m[i]=a;
  }
 
};



// //////////////////////////////////////////////////////////////////////
// function to print a quark field by components. It prompts for a site //
// similar to the CANOPY one. I used this to test the converter        //

void print_fermi_field(fermi_field &psi) {
  begin_function("print_fermi_field");
  int x0,x1,x2,x3;
  site x(psi.lattice());
  int do_exit=FALSE;
  do {
    mdp << "\nCheck point!\n";
    mdp << "Here you called the function to print the propagator\n";
    mdp << "Enter the coordinates (x0,x1,x2,x3 or 'quit' to end): ";
    if(ME==0) {
      string stringa;
      cin >> stringa;
      if(stringa=="quit") do_exit=TRUE;
      else sscanf(stringa.c_str(),"%i,%i,%i,%i", &x0,&x1,&x2,&x3);
    }
    mpi.broadcast(do_exit,0);
    if(do_exit==TRUE) {
      mdp << '\n';
      break;
    }
    mpi.broadcast(x0,0);
    mpi.broadcast(x1,0);
    mpi.broadcast(x2,0);
    mpi.broadcast(x3,0);
    if(on_which_process(psi.lattice(),x0,x1,x2,x3)==ME) {
      x.set(x0,x1,x2,x3);
      mdp << psi(x);
    }
  } while(1);
  end_function("print_fermi_field");
}

---