inline_prop_matelem_pt_colorvec_w.cc

Go to the documentation of this file.

/*! \file
 * \brief Compute the matrix element of  LatticeColorVector*M^-1*LatticeColorVector
 *
 * Propagator calculation on a colorstd::vector
 */
 
#include "fermact.h"
//#include "meas/inline/hadron/inline_prop_matelem_pt_colorvec_w.h"
#include "inline_prop_matelem_pt_colorvec_w.h"
#include "meas/inline/abs_inline_measurement_factory.h"
#include "meas/glue/mesplq.h"
#include "util/ferm/subset_vectors.h"
#include "qdp_map_obj.h"
#include "util/ferm/key_prop_colorvec.h"
#include "util/ferm/key_prop_matelem.h"
#include "util/ferm/key_val_db.h"
#include "util/ft/sftmom.h"
#include "util/info/proginfo.h"
#include "meas/inline/make_xml_file.h"
 
#include "meas/inline/io/named_objmap.h"
#include "util/ferm/transf.h"
#include "io/qprop_io.h"
 
namespace Chroma 
{ 
  namespace InlinePropMatElemPtColorVecEnv 
  {
    //! Propagator input
    void read(XMLReader& xml, const std::string& path, InlinePropMatElemPtColorVecEnv::Params::NamedObject_t& input)
    {
      XMLReader inputtop(xml, path);
 
      read(inputtop, "gauge_id", input.gauge_id);
      read(inputtop, "colorvec_id", input.colorvec_id);
      read(inputtop, "prop_id", input.prop_id);
      read(inputtop, "prop_op_file", input.prop_op_file);
    }
 
    //! Propagator output
    void write(XMLWriter& xml, const std::string& path, const InlinePropMatElemPtColorVecEnv::Params::NamedObject_t& input)
    {
      push(xml, path);
 
      write(xml, "gauge_id", input.gauge_id);
      write(xml, "colorvec_id", input.colorvec_id);
      write(xml, "prop_id", input.prop_id);
      write(xml, "prop_op_file", input.prop_op_file);
 
      pop(xml);
    }
 
 
    //! Propagator input
    void read(XMLReader& xml, const std::string& path, InlinePropMatElemPtColorVecEnv::Params::Param_t& input)
    {
      XMLReader inputtop(xml, path);
 
      read(inputtop, "num_vecs", input.num_vecs);
      read(inputtop, "mass_label", input.mass_label);
    }
 
    //! Propagator output
    void write(XMLWriter& xml, const std::string& path, const InlinePropMatElemPtColorVecEnv::Params::Param_t& input)
    {
      push(xml, path);
 
      write(xml, "num_vecs", input.num_vecs);
      write(xml, "mass_label", input.mass_label);
 
      pop(xml);
    }
 
 
    //! Propagator input
    void read(XMLReader& xml, const std::string& path, InlinePropMatElemPtColorVecEnv::Params& input)
    {
      InlinePropMatElemPtColorVecEnv::Params tmp(xml, path);
      input = tmp;
    }
 
    //! Propagator output
    void write(XMLWriter& xml, const std::string& path, const InlinePropMatElemPtColorVecEnv::Params& input)
    {
      push(xml, path);
    
      write(xml, "Param", input.param);
      write(xml, "NamedObject", input.named_obj);
 
      pop(xml);
    }
  } // namespace InlinePropMatElemPtColorVecEnv 
 
 
  namespace InlinePropMatElemPtColorVecEnv 
  {
    namespace
    {
      AbsInlineMeasurement* createMeasurement(XMLReader& xml_in, 
                                              const std::string& path) 
      {
        return new InlineMeas(Params(xml_in, path));
      }
 
      //! Local registration flag
      bool registered = false;
    }
      
    const std::string name = "PROP_MATELEM_PT_COLORVEC";
 
    //! Register all the factories
    bool registerAll() 
    {
      bool success = true; 
      if (! registered)
      {
        success &= TheInlineMeasurementFactory::Instance().registerObject(name, createMeasurement);
        registered = true;
      }
      return success;
    }
 
 
    //----------------------------------------------------------------------------
    // Param stuff
    Params::Params() { frequency = 0; }
 
    Params::Params(XMLReader& xml_in, const std::string& path) 
    {
      try 
      {
        XMLReader paramtop(xml_in, path);
 
        if (paramtop.count("Frequency") == 1)
          read(paramtop, "Frequency", frequency);
        else
          frequency = 1;
 
        // Parameters for source construction
        read(paramtop, "Param", param);
 
        // Read in the output propagator/source configuration info
        read(paramtop, "NamedObject", named_obj);
 
        // Possible alternate XML file pattern
        if (paramtop.count("xml_file") != 0) 
        {
          read(paramtop, "xml_file", xml_file);
        }
      }
      catch(const std::string& e) 
      {
        QDPIO::cerr << __func__ << ": Caught Exception reading XML: " << e << std::endl;
        QDP_abort(1);
      }
    }
 
 
 
    // Function call
    void 
    InlineMeas::operator()(unsigned long update_no,
                           XMLWriter& xml_out) 
    {
      // If xml file not empty, then use alternate
      if (params.xml_file != "")
      {
        std::string xml_file = makeXMLFileName(params.xml_file, update_no);
 
        push(xml_out, "PropMatElemPtColorVec");
        write(xml_out, "update_no", update_no);
        write(xml_out, "xml_file", xml_file);
        pop(xml_out);
 
        XMLFileWriter xml(xml_file);
        func(update_no, xml);
      }
      else
      {
        func(update_no, xml_out);
      }
    }
 
 
    // Real work done here
    void 
    InlineMeas::func(unsigned long update_no,
                     XMLWriter& xml_out) 
    {
      START_CODE();
 
      StopWatch snoop;
      snoop.reset();
      snoop.start();
 
      // Test and grab a reference to the gauge field
      multi1d<LatticeColorMatrix> u;
      XMLBufferWriter gauge_xml;
      try
      {
        u = TheNamedObjMap::Instance().getData< multi1d<LatticeColorMatrix> >(params.named_obj.gauge_id);
        TheNamedObjMap::Instance().get(params.named_obj.gauge_id).getRecordXML(gauge_xml);
      }
      catch( std::bad_cast ) 
      {
        QDPIO::cerr << name << ": caught dynamic cast error" << std::endl;
        QDP_abort(1);
      }
      catch (const std::string& e) 
      {
        QDPIO::cerr << name << ": std::map call failed: " << e << std::endl;
        QDP_abort(1);
      }
 
      push(xml_out, "PropMatElemPtColorVec");
      write(xml_out, "update_no", update_no);
 
      QDPIO::cout << name << ": propagator colorstd::vector matrix element calculation" << std::endl;
 
      proginfo(xml_out);    // Print out basic program info
 
      // Write out the input
      write(xml_out, "Input", params);
 
      // Write out the config header
      write(xml_out, "Config_info", gauge_xml);
 
      push(xml_out, "Output_version");
      write(xml_out, "out_version", 1);
      pop(xml_out);
 
      // Calculate some gauge invariant observables just for info.
      MesPlq(xml_out, "Observables", u);
 
      //
      // Read in the source along with relevant information.
      // 
      XMLReader source_file_xml, source_record_xml;
      XMLReader prop_file_xml, prop_record_xml;
 
      QDPIO::cout << "Snarf the source from a named buffer. Check for the prop std::map" << std::endl;
      try
      {
        // NB We are just checking this is here.
        TheNamedObjMap::Instance().getData< Handle< QDP::MapObject<int,EVPair<LatticeColorVector> > > >(params.named_obj.colorvec_id);
        TheNamedObjMap::Instance().getData<LatticePropagator>(params.named_obj.prop_id);
 
        // Snarf the source info. This is will throw if the colorvec_id is not there
        TheNamedObjMap::Instance().get(params.named_obj.colorvec_id).getFileXML(source_file_xml);
        TheNamedObjMap::Instance().get(params.named_obj.colorvec_id).getRecordXML(source_record_xml);
 
        TheNamedObjMap::Instance().get(params.named_obj.prop_id).getFileXML(prop_file_xml);
        TheNamedObjMap::Instance().get(params.named_obj.prop_id).getRecordXML(prop_record_xml);
 
 
        // Write out the source header
        write(xml_out, "Source_file_info", source_file_xml);
        write(xml_out, "Source_record_info", source_record_xml);
 
        write(xml_out, "Propagator_file_info", prop_file_xml);
        write(xml_out, "Propagator_record_info", prop_record_xml);
      }    
      catch (std::bad_cast)
      {
        QDPIO::cerr << name << ": caught dynamic cast error" << std::endl;
        QDP_abort(1);
      }
      catch (const std::string& e) 
      {
        QDPIO::cerr << name << ": error extracting source_header or prop std::map: " << e << std::endl;
        QDP_abort(1);
      }
 
      // Cast should be valid now
      QDP::MapObject<int,EVPair<LatticeColorVector> >& eigen_source = 
        *(TheNamedObjMap::Instance().getData< Handle< QDP::MapObject<int,EVPair<LatticeColorVector> > > >(params.named_obj.colorvec_id));
 
      // Cast should be valid now
      const LatticePropagator& prop =
        TheNamedObjMap::Instance().getData<LatticePropagator>(params.named_obj.prop_id);
 
      PropSourceConst_t source_header;
      
      read(prop_record_xml, "/Propagator/PropSource", source_header);
 
 
      QDPIO::cout << "Point Propagator successfully found and parsed" << std::endl;
      
      //multi1d<int> source = prop_header.source_header.getTSrce();
      multi1d<int> source = source_header.getTSrce();
      
      int decay_dir = source_header.j_decay ;
      int t_source = source_header.t_source;
 
      //Real Mass =  getMass(source_header.fermact);
      //QDPIO::cout << "Mass = " << Mass << std::endl;
      QDPIO::cout << "source = "
                  << source[0]<<" "
                  << source[1]<<" "
                  << source[2]<<" "
                  << source[3]<< std::endl;
 
      
      // Sanity check - write out the norm2 of the source in the Nd-1 direction
      // Use this for any possible verification
      {
        // Initialize the slow Fourier transform phases
        SftMom phases(0, true, Nd-1);
 
        EVPair<LatticeColorVector> tmpvec; eigen_source.get(0,tmpvec);
        multi1d<Double> source_corrs = sumMulti(localNorm2(tmpvec.eigenVector), phases.getSet());
 
        push(xml_out, "Source_correlators");
        write(xml_out, "source_corrs", source_corrs);
        pop(xml_out);
      }
 
      // Another sanity check
      if (params.param.num_vecs > eigen_source.size())
      {
        QDPIO::cerr << __func__ << ": num_vecs= " << params.param.num_vecs
                    << " is greater than the number of available colorvectors= "
                    << eigen_source.size() << std::endl;
        QDP_abort(1);
      }
 
 
      //
      // DB storage
      //
      BinaryStoreDB< SerialDBKey<KeyPropElementalOperator_t>, SerialDBData<ValPropElementalOperator_t> > qdp_db;
 
      // Open the file, and write the meta-data and the binary for this operator
      if (! qdp_db.fileExists(params.named_obj.prop_op_file))
      {
        XMLBufferWriter file_xml;
 
        push(file_xml, "DBMetaData");
        write(file_xml, "id", std::string("propElemOp"));
        write(file_xml, "lattSize", QDP::Layout::lattSize());
        write(file_xml, "decay_dir", decay_dir);
        write(file_xml, "source", source);
        proginfo(file_xml);    // Print out basic program info
        write(file_xml, "Params", params.param);
        write(file_xml, "Config_info", gauge_xml);
        write(file_xml, "Weights", getEigenValues(eigen_source, params.param.num_vecs));
        pop(file_xml);
 
        std::string file_str(file_xml.str());
        qdp_db.setMaxUserInfoLen(file_str.size());
 
        qdp_db.open(params.named_obj.prop_op_file, O_RDWR | O_CREAT, 0664);
 
        qdp_db.insertUserdata(file_str);
      }
      else
      {
        qdp_db.open(params.named_obj.prop_op_file, O_RDWR, 0664);
      }
 
 
      //
      // Try the factories
      //
      try
      {
        StopWatch swatch;
        swatch.reset();
        swatch.start();
 
        //
        // Loop over the source color and spin, creating the source
        // and calling the relevant propagator routines.
        //
        const int num_vecs            = params.param.num_vecs;
        const int decay_dir           = decay_dir;
 
        // Initialize the slow Fourier transform phases
        SftMom phases(0, true, decay_dir);
 
        // Binary output
        push(xml_out, "ColorVecMatElems");
 
        // Loop over each operator 
        QDPIO::cout << "t_source = " << t_source << std::endl; 
 
        //
        // All the loops
        //
        // NOTE: I pull the spin source and sink loops to the outside intentionally.
        // The idea is to create a colorstd::vector index (2d) array. These are not
        // too big, but are big enough to make the IO efficient, and the DB efficient
        // on reading. For N=32 and Lt=128, the mats are 2MB.
        //
        for(int spin_source=0; spin_source < Ns; ++spin_source){
          QDPIO::cout << "spin_source = " << spin_source << std::endl; 
          for(int spin_sink=0; spin_sink < Ns; ++spin_sink){
            QDPIO::cout << "spin_sink = " << spin_sink << std::endl; 
            
            // Invert the time - make it an independent key
            multi1d<KeyValPropElementalOperator_t> buf(phases.numSubsets());
            for(int t=0; t < phases.numSubsets(); ++t){
              buf[t].key.key().t_slice      = t;
              buf[t].key.key().t_source     = t_source;
              buf[t].key.key().spin_src     = spin_source;
              buf[t].key.key().spin_snk     = spin_sink;
              buf[t].key.key().mass_label   = params.param.mass_label;
              buf[t].val.data().mat.resize(num_vecs,Nc);
            }
 
            for(int colorvec_source=0; colorvec_source < Nc; ++colorvec_source){
              LatticeFermion q ;
              PropToFerm(prop, q, colorvec_source, spin_source);
              LatticeColorVector vec_source(peekSpin(q, spin_sink));
              
              for(int colorvec_sink=0; colorvec_sink < num_vecs; ++colorvec_sink){
                EVPair<LatticeColorVector> vec_sink; eigen_source.get(colorvec_sink,vec_sink);
                
                multi1d<ComplexD> hsum(sumMulti(localInnerProduct(vec_sink.eigenVector, vec_source), phases.getSet()));
                
                for(int t=0; t < hsum.size(); ++t){
                  buf[t].val.data().mat(colorvec_sink,colorvec_source) = hsum[t];
                }
                
              } // for colorvec_sink
            } // for colorvec_source
              
            QDPIO::cout << "insert: spin_source= " << spin_source << " spin_sink= " << spin_sink << std::endl; 
            for(int t=0; t < phases.numSubsets(); ++t){
              qdp_db.insert(buf[t].key, buf[t].val);
            }
              
          } // for spin_sink
        } // for spin_source
      
        pop(xml_out);
        
        swatch.stop();
        QDPIO::cout << "Propagators computed: time= " 
                    << swatch.getTimeInSeconds() 
                    << " secs" << std::endl;
      }
      catch (const std::string& e) 
        {
          QDPIO::cout << name << ": caught exception around contractions: " << e << std::endl;
          QDP_abort(1);
        }
      
      pop(xml_out);  // prop_matelem_colorvec
      
      snoop.stop();
      QDPIO::cout << name << ": total time = "
                  << snoop.getTimeInSeconds() 
                  << " secs" << std::endl;
      
      QDPIO::cout << name << ": ran successfully" << std::endl;
      
      END_CODE();
    }
  }//namespace Inline
 
} // namespace Chroma