inline_sink_smear_s.cc

Go to the documentation of this file.

/*! \file
 * \brief Inline construction of sink_smear
 *
 * Sink smear propagators
 */
 
#include "handle.h"
#include "meas/inline/hadron_s/inline_sink_smear_s.h"
#include "meas/inline/abs_inline_measurement_factory.h"
#include "meas/sinks/sink_smearing_factory.h"
#include "meas/sinks/sink_smearing_aggregate.h"
#include "meas/glue/mesplq.h"
#include "util/ft/sftmom.h"
#include "util/info/unique_id.h"
 
#include "meas/inline/io/named_objmap.h"
 
namespace Chroma 
{ 
  //! Propagator input
  void read(XMLReader& xml, const std::string& path, InlineStaggeredSinkSmearEnv::Params::NamedObject_t& input)
  {
    XMLReader inputtop(xml, path);
 
    read(inputtop, "gauge_id", input.gauge_id);
    read(inputtop, "prop_id", input.prop_id);
    read(inputtop, "smeared_prop_id", input.smeared_prop_id);
  }
 
  //! Propagator output
  void write(XMLWriter& xml, const std::string& path, const InlineStaggeredSinkSmearEnv::Params::NamedObject_t& input)
  {
    push(xml, path);
 
    write(xml, "gauge_id", input.gauge_id);
    write(xml, "prop_id", input.prop_id);
    write(xml, "smeared_prop_id", input.smeared_prop_id);
 
    pop(xml);
  }
 
 
  namespace InlineStaggeredSinkSmearEnv 
  {
    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 = "SINK_SMEAR_STAG";
 
    //! Register all the factories
    bool registerAll() 
    {
      bool success = true; 
      if (! registered)
      {
        success &= QuarkSinkSmearingEnv::registerAll();
        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);
      }
      catch(const std::string& e) 
      {
        QDPIO::cerr << __func__ << ": Caught Exception reading XML: " << e << std::endl;
        QDP_abort(1);
      }
    }
 
 
    void
    Params::write(XMLWriter& xml_out, const std::string& path) 
    {
      push(xml_out, path);
    
      // Parameters for source construction
      Chroma::write(xml_out, "Param", param);
 
      // Write out the output propagator/source configuration info
      Chroma::write(xml_out, "NamedObject", named_obj);
 
      pop(xml_out);
    }
 
 
    void 
    InlineMeas::operator()(unsigned long update_no,
                           XMLWriter& xml_out) 
    {
      START_CODE();
 
      StopWatch snoop;
      snoop.reset();
      snoop.start();
 
      // Test and grab a reference to the gauge field
      XMLBufferWriter gauge_xml;
      try
      {
        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);
      }
      const multi1d<LatticeColorMatrix>& u = 
        TheNamedObjMap::Instance().getData< multi1d<LatticeColorMatrix> >(params.named_obj.gauge_id);
 
      push(xml_out, "sink_smear_stag");
      write(xml_out, "update_no", update_no);
 
      QDPIO::cout << name << ": Sink smearing for propagators" << std::endl;
 
      // Write out the input
      params.write(xml_out, "Input");
 
      // Write out the config header
      write(xml_out, "Config_info", gauge_xml);
 
      // Calculate some gauge invariant observables just for info.
      MesPlq(xml_out, "Observables", u);
 
      //
      // Read the quark propagator and extract headers
      //
      XMLReader prop_file_xml, prop_record_xml;
      LatticeStaggeredPropagator quark_propagator;
 
      int j_decay;   // need this for diagnostics
 
      QDPIO::cout << "Attempt to read forward propagator" << std::endl;
      try
      {
        // Grab a copy of the propagator. Will modify it later.
        quark_propagator = 
          TheNamedObjMap::Instance().getData<LatticeStaggeredPropagator>(params.named_obj.prop_id);
        
        // Snarf the prop info. This is will throw if the prop_id is not there
        TheNamedObjMap::Instance().get(params.named_obj.prop_id).getFileXML(prop_file_xml);
        TheNamedObjMap::Instance().get(params.named_obj.prop_id).getRecordXML(prop_record_xml);
 
        // Snarf out the first j_decay
        read(prop_record_xml, "/descendant::j_decay[1]", j_decay);
 
        // Write out the propagator header
        write(xml_out, "Prop_file_info", prop_file_xml);
        write(xml_out, "Prop_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 prop_header: " << e << std::endl;
        QDP_abort(1);
      }
 
      // Sanity check - write out the norm2 of the forward prop in the j_decay direction
      // Use this for any possible verification
      {
        // Initialize the slow Fourier transform phases
        SftMom phases(0, true, j_decay);
 
        multi1d<Double> forward_prop_corr = sumMulti(localNorm2(quark_propagator), 
                                                     phases.getSet());
 
        push(xml_out, "Forward_prop_correlator");
        write(xml_out, "forward_prop_corr", forward_prop_corr);
        pop(xml_out);
      }
 
 
      //
      // Sink smear the propagator
      //
      try
      {
        QDPIO::cout << "Sink_xml = " << params.param.sink.xml << std::endl;
 
        std::istringstream  xml_s(params.param.sink.xml);
        XMLReader  sinktop(xml_s);
        QDPIO::cout << "Sink = " << params.param.sink.id << std::endl;
 
        Handle< QuarkSourceSink<LatticeStaggeredPropagator> >
          sinkSmearing(TheStagPropSinkSmearingFactory::Instance().createObject(params.param.sink.id,
                                                                               sinktop,
                                                                               params.param.sink.path,
                                                                               u));
        (*sinkSmearing)(quark_propagator);
      }
      catch(const std::string& e) 
      {
        QDPIO::cerr << name << ": Caught Exception creating sink: " << e << std::endl;
        QDP_abort(1);
      }
 
 
      // Sanity check - write out the propagator (pion) correlator in the Nd-1 direction
      {
        // Initialize the slow Fourier transform phases
        SftMom phases(0, true, j_decay);
 
        multi1d<Double> prop_corr = sumMulti(localNorm2(quark_propagator), 
                                             phases.getSet());
 
        push(xml_out, "SinkSmearedProp_correlator");
        write(xml_out, "sink_smeared_prop_corr", prop_corr);
        pop(xml_out);
      }
 
 
      // Save the propagator
      try
      {
        XMLBufferWriter file_xml;
        push(file_xml, "sink_smear");
        write(file_xml, "id", uniqueId());  // NOTE: new ID form
        pop(file_xml);
 
        XMLBufferWriter record_xml;
 
        // Construct an appropriate record_xml based on the input type
        if (prop_record_xml.count("/Propagator") != 0)
        {
          Propagator_t  orig_header;
          read(prop_record_xml, "/Propagator", orig_header);
 
          ForwardProp_t  new_header;
          new_header.sink_header      = params.param;
          new_header.prop_header      = orig_header.prop_header;
          new_header.source_header    = orig_header.source_header;
          new_header.gauge_header     = orig_header.gauge_header;
          write(record_xml, "SinkSmear", new_header);  
        } 
        else
        {
          throw std::string("No appropriate header found");
        }
 
        // Write the smeared prop xml info
        TheNamedObjMap::Instance().create<LatticeStaggeredPropagator>(params.named_obj.smeared_prop_id);
        TheNamedObjMap::Instance().getData<LatticeStaggeredPropagator>(params.named_obj.smeared_prop_id) 
          = quark_propagator;
        TheNamedObjMap::Instance().get(params.named_obj.smeared_prop_id).setFileXML(file_xml);
        TheNamedObjMap::Instance().get(params.named_obj.smeared_prop_id).setRecordXML(record_xml);
 
        QDPIO::cout << "Sink successfully updated" << std::endl;
      }
      catch (std::bad_cast)
      {
        QDPIO::cerr << name << ": dynamic cast error" 
                    << std::endl;
        QDP_abort(1);
      }
      catch (const std::string& e) 
      {
        QDPIO::cerr << name << ": error message: " << e << std::endl;
        QDP_abort(1);
      }
 
      pop(xml_out);  // sink_smear
 
 
      snoop.stop();
      QDPIO::cout << name << ": total time = "
                  << snoop.getTimeInSeconds() 
                  << " secs" << std::endl;
 
      QDPIO::cout << name << ": ran successfully" << std::endl;
 
      END_CODE();
    } 
 
  }
}