EvtLunda Class Reference

#include <EvtLunda.hh>

Inheritance diagram for EvtLunda:

Public Member Functions
	EvtLunda ()
virtual	~EvtLunda ()
void	getName (std::string &name)
EvtDecayBase *	clone ()
void	decay (EvtParticle *p)
std::string	commandName ()
void	command (std::string cmd)
void	init ()
void	initProbMax ()
int	getTotalEvt ()
void	LundaInit (int dummy)
void	ExclusiveDecay (EvtParticle *p)
Public Member Functions inherited from EvtDecayIncoherent
void	makeDecay (EvtParticle *p)
virtual	~EvtDecayIncoherent ()
void	setDaughterSpinDensity (int daughter)
int	isDaughterSpinDensitySet (int daughter)
Public Member Functions inherited from EvtDecayBase
double	getProbMax (double prob)
double	resetProbMax (double prob)
	EvtDecayBase ()
virtual	~EvtDecayBase ()
virtual bool	matchingDecay (const EvtDecayBase &other) const
EvtId	getParentId ()
double	getBranchingFraction ()
void	disableCheckQ ()
void	checkQ ()
int	getNDaug ()
EvtId *	getDaugs ()
EvtId	getDaug (int i)
int	getNArg ()
int	getPHOTOS ()
void	setPHOTOS ()
void	setVerbose ()
void	setSummary ()
double *	getArgs ()
std::string *	getArgsStr ()
double	getArg (int j)
std::string	getArgStr (int j)
std::string	getModelName ()
int	getDSum ()
int	summary ()
int	verbose ()
void	saveDecayInfo (EvtId ipar, int ndaug, EvtId *daug, int narg, std::vector< std::string > &args, std::string name, double brfr)
void	printSummary ()
void	setProbMax (double prbmx)
void	noProbMax ()
void	checkNArg (int a1, int a2=-1, int a3=-1, int a4=-1)
void	checkNDaug (int d1, int d2=-1)
void	checkSpinParent (EvtSpinType::spintype sp)
void	checkSpinDaughter (int d1, EvtSpinType::spintype sp)
virtual int	nRealDaughters ()

Additional Inherited Members
Static Public Member Functions inherited from EvtDecayBase
static void	findMasses (EvtParticle *p, int ndaugs, EvtId daugs[10], double masses[10])
static void	findMass (EvtParticle *p)
static double	findMaxMass (EvtParticle *p)
Protected Member Functions inherited from EvtDecayBase
bool	daugsDecayedByParentModel ()
Protected Attributes inherited from EvtDecayBase
bool	_daugsDecayedByParentModel

Detailed Description

Definition at line 33 of file EvtLunda.hh.

Constructor & Destructor Documentation

EvtLunda()

EvtLunda::EvtLunda

(

)

Definition at line 90 of file EvtLunda.cc.

{}

Referenced by clone().

~EvtLunda()

EvtLunda::~EvtLunda ( )

virtual

Definition at line 91 of file EvtLunda.cc.

                   {
 
 
  int i;
 
 
  //the deletion of commands is really uggly!
 
  if (nlundadecays==0) {
    delete [] commands;
    commands=0;
    return;
  }
 
  for(i=0;i<nlundadecays;i++){
    if (lundadecays[i]==this){
      lundadecays[i]=lundadecays[nlundadecays-1];
      nlundadecays--;
      if (nlundadecays==0) {
    delete [] commands;
    commands=0;
      }
      return;
    }
  }
 
  report(ERROR,"EvtGen") << "Error in destroying Lunda model!"<<endl;
 
}

Member Function Documentation

clone()

EvtDecayBase * EvtLunda::clone ( )

virtual

Implements EvtDecayBase.

Definition at line 128 of file EvtLunda.cc.

                             {
 
  return new EvtLunda;
 
}

command()

void EvtLunda::command ( std::string cmd )

virtual

Reimplemented from EvtDecayBase.

Definition at line 176 of file EvtLunda.cc.

                                   {
  if (ncommand==lcommand){
    lcommand=10+2*lcommand;
    std::string* newcommands=new std::string[lcommand];
    int i;
    for(i=0;i<ncommand;i++){
      newcommands[i]=commands[i];
    }
    delete [] commands;
    commands=newcommands;
  }
  commands[ncommand]=cmd;
  ncommand++;
}

commandName()

std::string EvtLunda::commandName ( )

virtual

Reimplemented from EvtDecayBase.

Definition at line 170 of file EvtLunda.cc.

                               {
     
  return std::string("LundaPar");
  
}

decay()

void EvtLunda::decay ( EvtParticle * p )

virtual

Implements EvtDecayBase.

Definition at line 193 of file EvtLunda.cc.

                                   {
 
  static int iniflag=1;
 
  static EvtId STRNG=EvtPDL::getId("string");
 
  int istdheppar=EvtPDL::getStdHep(p->getId());
 
  /*
  int Xpdg=0;
  if(getNArg()==1){
    Xpdg = getArg(0);
    if(Xpdg == 100443) Xpdg = 30443; //chage the curent pdg code to jetset pdg code for psiprime
  }
    nores_.xpdg = Xpdg;
  */
 
/*
  if (pycomp_(&istdheppar)==0){
    report(ERROR,"EvtGen") << "Lunda can not decay:"
      <<EvtPDL::name(p->getId()).c_str()<<endl;
    return;
  }
*/
  double mp=p->mass();
  float xmp=mp;
//  std::cout<<"float xmp="<<xmp<<std::endl;
 
  EvtVector4R p4[50];
  
  int i,more;
  int ip=EvtPDL::getStdHep(p->getId());
  int ndaugjs;
  static int kf[4000];
  EvtId evtnumstable[100],evtnumparton[100];
  int stableindex[100],partonindex[100];
  int numstable;
  int numparton;
  static int km[4000];
  EvtId type[MAX_DAUG];
 
  int isr=1; //open ISR (default)
  if(getNArg()>0){ isr=getArg(0);}
 
  static double px[4000],py[4000],pz[4000],e[4000];
  if (iniflag==1) lundar_(&isr,&iniflag,&xmp,&ndaugjs,kf,km,px,py,pz,e);
 
  if ( p->getNDaug() != 0 ) { p->deleteDaughters(true);}
 
  int count=0;
  bool mtg=0;
 
  do{
    //report(INFO,"EvtGen") << "calling lunda " << ip<< " " << mp <<endl;
    iniflag=iniflag+1;  //to count the event number
    //std::cout<<"Event number by Lunda: "<<iniflag<<std::endl;
modeSelection:
    lundar_(&isr,&iniflag,&xmp,&ndaugjs,kf,km,px,py,pz,e);
 
    mtg = checktag_.decaytag==1;
    if(mtg)std::cout<<"checktag_.decaytag="<<checktag_.decaytag<<std::endl;
    //if the Ecms is too low, Lunda fails to decay, so change to 3pi decay exclusively
    //if(mtg) {ExclusiveDecay(p); return;} //see SUBROUTINE LUBEGN(KFL,ECM) in luarlw.F
 
    LundaInit(0); // allow user to set LundaPar in the decay list 
    numstable=0;
    numparton=0;
    //report(INFO,"EvtGen") << "found some daughters " << ndaugjs << endl;
    double esum=0;
    //for debugging
    //for(int i=0;i<ndaugjs;i++){
    //std::cout<<"ndaugjs,kf,km,px,py,pz,e: "<<i<<", "<<km[i]<<", "<<EvtPDL::name(EvtPDL::evtIdFromStdHep(kf[i]))<<", "<<px[i]<<" ,"<<py[i]<<", "<<pz[i]<<", "<<e[i]<<std::endl; 
    //}
 
    for(i=0;i<ndaugjs;i++){
      if (fabs(kf[i])==11 || kf[i]==92 || kf[i]==22) continue; //fill out the unstatble particle
      //std::cout<<i<<", "<<km[i]<<", "<<kf[i]<<", "<<EvtPDL::name(EvtPDL::evtIdFromStdHep(kf[i]))<<" "<<px[i]<<" ,"<<py[i]<<", "<<pz[i]<<", "<<e[i]<<std::endl; //for debugging
      if (EvtPDL::evtIdFromStdHep(kf[i])==EvtId(-1,-1)) {
    report(ERROR,"EvtGen") << "Lunda returned particle:"<<kf[i]<<endl;
    report(ERROR,"EvtGen") << "This can not be translated to evt number"<<endl;
    report(ERROR,"EvtGen") << "and the decay will be rejected!"<<endl;
    report(ERROR,"EvtGen") << "The decay was of particle:"<<ip<<endl;
    //xmp=(1+0.01)*xmp;
    std::cout<<"xmp= "<<xmp<<std::endl;
    goto modeSelection;
      }
      
      //sort out the partons
      if (fabs(kf[i])<=6||kf[i]==21){
    partonindex[numparton]=i;
    evtnumparton[numparton]=EvtPDL::evtIdFromStdHep(kf[i]);
    numparton++;
      }
      else{
    stableindex[numstable]=i;
    evtnumstable[numstable]=EvtPDL::evtIdFromStdHep(kf[i]); 
    numstable++;
      }
      
      esum+=e[i];
      // have to protect against negative mass^2 for massless particles
      // i.e. neutrinos and photons.
      // this is uggly but I need to fix it right now....
      
      if (px[i]*px[i]+py[i]*py[i]+pz[i]*pz[i]>=e[i]*e[i]){
    
        e[i]=sqrt(px[i]*px[i]+py[i]*py[i]+pz[i]*pz[i])+0.0000000001;
    
      }
      
      p4[i].set(e[i],px[i],py[i],pz[i]);
      
      
    }
 
    int channel=EvtDecayTable::inChannelList(p->getId(),numstable,evtnumstable);
  
    // Test the branching fraction of lunda
    // the specified decay mode is put as the 0-th channel with specifing mother particle
    more=(channel!=-1);
    //debugging
    if(fabs(esum-xmp)>0.001 ){
      std::cout<<"Unexpected final states from Lunda with total energy "<<esum<<" unequal to "<<xmp<<std::endl;
      //xmp=(1+0.01)*xmp;
      std::cout<<"xmp= "<<xmp<<std::endl;
      goto modeSelection;
    }
 
    count++;
 }while( more && (count<10000) && mtg );
    //  }while( more && (count<10000) );
  
  if (count>9999) {
    report(INFO,"EvtGen") << "Too many loops in EvtLunda!!!"<<endl;
    report(INFO,"EvtGen") << "Parent:"<<EvtPDL::name(getParentId()).c_str()<<endl;
    for(i=0;i<numstable;i++){
      report(INFO,"EvtGen") << "Daug("<<i<<")"<<EvtPDL::name(evtnumstable[i]).c_str()<<endl;
    }
 
  }
 
 
 
  if (numparton==0){
 
    p->makeDaughters(numstable,evtnumstable);
    int ndaugFound=0;
    for(i=0;i<numstable;i++){
      p->getDaug(i)->init(evtnumstable[i],p4[stableindex[i]]);
      ndaugFound++;
    }
    if ( ndaugFound == 0 ) {
      report(ERROR,"EvtGen") << "Lunda has failed to do a decay ";
      report(ERROR,"EvtGen") << EvtPDL::name(p->getId()).c_str() << " " << p->mass()<<endl;
      assert(0);
    }
 
    fixPolarizations(p);
    //debugging
    // p->printTree();
 
    return ;
   
  }
  else{
 
    //have partons in LUNDA
 
    EvtVector4R p4string(0.0,0.0,0.0,0.0);
 
    for(i=0;i<numparton;i++){
      p4string+=p4[partonindex[i]];
    }
 
    int nprimary=1;
    type[0]=STRNG;
    for(i=0;i<numstable;i++){
      if (km[stableindex[i]]==0){
    type[nprimary++]=evtnumstable[i];
      }
    }
 
    p->makeDaughters(nprimary,type);
 
    p->getDaug(0)->init(STRNG,p4string);
 
    EvtVector4R p4partons[10];
 
    for(i=0;i<numparton;i++){
      p4partons[i]=p4[partonindex[i]];
    }
 
    ((EvtStringParticle*)p->getDaug(0))->initPartons(numparton,p4partons,evtnumparton);
 
 
 
    nprimary=1;
 
    for(i=0;i<numstable;i++){
 
      if (km[stableindex[i]]==0){
    p->getDaug(nprimary++)->init(evtnumstable[i],p4[stableindex[i]]);
      }
    }
 
 
    int nsecond=0;
    for(i=0;i<numstable;i++){
      if (km[stableindex[i]]!=0){
    type[nsecond++]=evtnumstable[i];
      }
    }
 
 
    p->getDaug(0)->makeDaughters(nsecond,type);
 
    EvtVector4R p4stringboost(p4string.get(0),-p4string.get(1),
                  -p4string.get(2),-p4string.get(3));
 
    nsecond=0;
    for(i=0;i<numstable;i++){
      if (km[stableindex[i]]!=0){
    p4[stableindex[i]]=boostTo(p4[stableindex[i]],p4stringboost);
    p->getDaug(0)->getDaug(nsecond)->init(evtnumstable[i],p4[stableindex[i]]);
    p->getDaug(0)->getDaug(nsecond)->setDiagonalSpinDensity();
    p->getDaug(0)->getDaug(nsecond)->decay();
    nsecond++;
      }
    }
 
    if ( nsecond == 0 ) {
      report(ERROR,"EvtGen") << "Jetset has failed to do a decay ";
      report(ERROR,"EvtGen") << EvtPDL::name(p->getId()).c_str() << " " << p->mass() <<endl;
      assert(0);
    }
 
    fixPolarizations(p);
    
    return ;
 
  }
 
}

ExclusiveDecay()

void EvtLunda::ExclusiveDecay

(

EvtParticle *

p

)

Definition at line 512 of file EvtLunda.cc.

                                           {
  EvtId daugs[8];
  int _ndaugs =4;
  daugs[0]=EvtPDL::getId(std::string("pi+"));
  daugs[1]=EvtPDL::getId(std::string("pi-"));
  daugs[2]=EvtPDL::getId(std::string("pi+"));
  daugs[3]=EvtPDL::getId(std::string("pi-"));
 checkA:
  p->makeDaughters(_ndaugs,daugs);  
  double totMass=0;
  for(int i=0;i< _ndaugs;i++){            
    EvtParticle* di=p->getDaug(i);
    double xmi=EvtPDL::getMass(di->getId()); 
    di->setMass(xmi);
    totMass+=xmi;
  }              
  if(totMass>p->mass()) goto checkA;
  p->initializePhaseSpace( _ndaugs , daugs);  
  
 
}

getName()

void EvtLunda::getName ( std::string & name )

virtual

Implements EvtDecayBase.

Definition at line 122 of file EvtLunda.cc.

                                           {
 
  model_name="LUNDA";     
 
}

getTotalEvt()

int EvtLunda::getTotalEvt ( )

inline

Definition at line 50 of file EvtLunda.hh.

{return nevt;}

init()

void EvtLunda::init ( )

virtual

Reimplemented from EvtDecayBase.

Definition at line 142 of file EvtLunda.cc.

                   {
 
//  checkNArg(1);
  std::string strpdg=getenv("BESEVTGENROOT");
  strpdg +="/share/r_pdg.dat"; 
  //strcpy(mypdgfile_.mypdg, strpdg.c_str());
  std::cout<<"mypdg= "<<strpdg<<std::endl;
 
  if(getNArg()>2){std::cout<<"Parameter can be 1 or 2, You have "<<getNArg()<<std::endl; ::abort();}
 
  if (getParentId().isAlias()){
 
    report(ERROR,"EvtGen") << "EvtLunda finds that you are decaying the"<<endl
                           << " aliased particle "
               << EvtPDL::name(getParentId()).c_str()
               << " with the Lunda model"<<endl
               << " this does not work, please modify decay table."
               << endl;
    report(ERROR,"EvtGen") << "Will terminate execution!"<<endl;
    ::abort();
 
  }
 
  store(this);
 
}

initProbMax()

void EvtLunda::initProbMax ( )

virtual

Reimplemented from EvtDecayBase.

Definition at line 135 of file EvtLunda.cc.

                          {
 
  noProbMax();
 
}

LundaInit()

void EvtLunda::LundaInit

(

int

dummy

)

Definition at line 500 of file EvtLunda.cc.

                                 {
  
  static int first=1;
  if (first){
    
    first=0;
    for(int i=0;i<ncommand;i++)
      lugive0_(commands[i].c_str(),strlen(commands[i].c_str()));
  }
 
}

Referenced by decay().

---

The documentation for this class was generated from the following files:

• EvtLunda.hh
• EvtLunda.cc