KoralW.cc

/**************************************************************************
 * BASF2 (Belle Analysis Framework 2)                                     *
 * Copyright(C) 2011  Belle II Collaboration                              *
 *                                                                        *
 * Author: The Belle II Collaboration                                     *
 * Contributors: Andreas Moll                                             *
 *                                                                        *
 * This software is provided "as is" without any warranty.                *
 **************************************************************************/
 
/* Own header. */
#include <generators/koralw/KoralW.h>
 
/* Belle 2 headers. */
#include <framework/gearbox/Unit.h>
#include <framework/logging/Logger.h>
 
/* ROOT headers. */
#include <TRandom.h>
 
using namespace std;
using namespace Belle2;
 
//Declaration of the KoralW FORTRAN methods and common blocks.
extern"C" {
 
  extern struct {
    double q1[4];
    double q2[4];
    double p1[4];
    double p2[4];
    double p3[4];
    double p4[4];
  } momdec_;
 
  extern struct {
    double qeff1[4];
    double qeff2[4];
    double sphum[4];
    double sphot[4][100];
    int nphot;
  } momset_;
 
  extern struct {
    int nevhep;          
    int nhep;            
    int isthep[2000];    
    int idhep[2000];     
    int jmohep[2000][2]; 
    int jdahep[2000][2]; 
    float phep[2000][5]; 
    float vhep[2000][4]; 
  } hepevt_;
 
  void kw_setdatapath_(const char* filename, size_t* length);
  void kw_readatax_(const char* filename, size_t* length, int* reset, const int* max, double* xpar);
  void kw_initialize_(double* ecm, double* xpar);
  void marini_(unsigned int* mar1, unsigned int* mar2, unsigned int* mar3);
  void rmarin_(unsigned int* mar1, unsigned int* mar2, unsigned int* mar3);
  void kw_make_();
  void kw_finalize_();
  void kw_getmomdec_(double* p1, double* p2, double* p3, double* p4);
  void kw_getxsecmc_(double* xSecMC, double* xErrMC);
 
  void koralw_warning_ecm_(double* ecmconfig, double* ecm)
  {
    B2WARNING("KORALW: Different center of mass energy in config file (obsolete), E=" << *ecmconfig << ", and from beam parameters, E="
              << *ecm);
  }
 
}
 
void KoralW::init(const std::string& dataPath, const std::string& userDataFile)
{
  if (dataPath.empty()) B2FATAL("KoralW: The specified data path is empty !");
  if (userDataFile.empty()) B2FATAL("KoralW: The specified user data file is empty !");
 
  //Make sure the dataPath ends with an "/"
  string dataPathNew = dataPath;
  if (dataPath[dataPath.length() - 1] != '/') dataPathNew += "/";
 
  //Set the path to the data files
  size_t pathLength = dataPathNew.size();
  kw_setdatapath_(dataPathNew.c_str(), &pathLength);
 
  //Load the default KoralW input data
  int reset = 1;
  const string defaultDataFile = dataPathNew + "KoralW_Default.data";
  pathLength = defaultDataFile.size();
  kw_readatax_(defaultDataFile.c_str(), &pathLength, &reset, &m_numXPar, m_XPar);
 
  //Load the user KoralW input data
  reset = 0;
  pathLength = userDataFile.size();
  kw_readatax_(userDataFile.c_str(), &pathLength, &reset, &m_numXPar, m_XPar);
 
  //Initialize KoralW
  kw_initialize_(&m_cmsEnergy, m_XPar);
 
  //Initialize random number generator
  unsigned int mar1 = gRandom->Integer(m_seed1); //The range for this seed seems to be [0, 900000000]
  unsigned int mar2 = gRandom->Integer(m_seed2);
  unsigned int mar3 = gRandom->Integer(m_seed3);
  marini_(&mar1, &mar2, &mar3);
  rmarin_(&mar1, &mar2, &mar3);
}
 
 
void KoralW::generateEvent(MCParticleGraph& mcGraph, TVector3 vertex, TLorentzRotation boost)
{
  kw_make_();
 
  //Store the particles with status id 3 and 2 as virtual particles, the particles with status id 1 as real particles
  for (int iPart = 0; iPart < hepevt_.nhep; ++iPart) {
    if (hepevt_.isthep[iPart] > 1) {
      storeParticle(mcGraph, hepevt_.phep[iPart], hepevt_.vhep[iPart], hepevt_.idhep[iPart], vertex, boost, true);
    } else {
      storeParticle(mcGraph, hepevt_.phep[iPart], hepevt_.vhep[iPart], hepevt_.idhep[iPart], vertex, boost);
    }
  }
}
 
 
void KoralW::term()
{
  kw_finalize_();
 
  //Get the cross section
  kw_getxsecmc_(&m_crossSection, &m_crossSectionError);
}
 
//=========================================================================
//                       Protected methods
//=========================================================================
 
void KoralW::storeParticle(MCParticleGraph& mcGraph, const float* mom, const float* vtx, int pdg, TVector3 vertex,
                           TLorentzRotation boost, bool isVirtual, bool isInitial)
{
  // //Create particle
  //MCParticleGraph::GraphParticle& part = mcGraph.addParticle();
  //if (!isVirtual) {
  //  part.setStatus(MCParticle::c_PrimaryParticle);
  //} else {
  //  part.setStatus(MCParticle::c_IsVirtual);
  //}
 
  //  RG 6/25/14 Add new flag for ISR "c_Initial"
  MCParticleGraph::GraphParticle& part = mcGraph.addParticle();
  if (isVirtual) {
    part.setStatus(MCParticle::c_IsVirtual);
  } else if (isInitial) {
    part.setStatus(MCParticle::c_Initial);
  }
 
  //every particle from a generator is primary, TF
  part.addStatus(MCParticle::c_PrimaryParticle);
  part.setPDG(pdg);
  part.setFirstDaughter(0);
  part.setLastDaughter(0);
  part.setMomentum(TVector3(mom[0], mom[1], mom[2]));
  part.setEnergy(mom[3]);
  part.setMass(mom[4]);
  part.setProductionVertex(vtx[0]*Unit::mm, vtx[1]*Unit::mm, vtx[2]*Unit::mm);
 
  //boost, TF
  TLorentzVector p4 = part.get4Vector();
  p4 = boost * p4;
  part.set4Vector(p4);
 
  //set vertex, TF
  if (!isInitial) {
    TVector3 v3 = part.getProductionVertex();
    v3 = v3 + vertex;
    part.setProductionVertex(v3);
    part.setValidVertex(true);
  }
}