/*
$Log$
+Revision 1.41 2002/03/05 11:25:33 morsch
+- New quenching options
+- Correction in CheckTrigger()
+
Revision 1.40 2002/02/12 11:05:53 morsch
Get daughter indices right.
if (pSelected[i]) {
kf = iparticle->GetPdgCode();
+ ks = iparticle->GetStatusCode();
p[0] = iparticle->Px();
p[1] = iparticle->Py();
p[2] = iparticle->Pz();
} // if has mother
Bool_t tFlag = (fTrackIt && !hasDaughter);
SetTrack(tFlag,imo,kf,p,origin,polar,
- tof,kPNoProcess,nt);
+ tof,kPNoProcess,nt, 1., ks);
KeepTrack(nt);
newPos[i] = nt;
} // if selected
/*
$Log$
+Revision 1.51 2002/03/06 08:46:57 morsch
+- Loop until np-1
+- delete dyn. alloc. arrays (N. Carrer)
+
Revision 1.50 2002/03/03 13:48:50 morsch
Option kPyCharmPbMNR added. Produce charm pairs in agreement with MNR
NLO calculations (Nicola Carrer).
if (!pSelected[i]) continue;
TParticle * iparticle = (TParticle *) fParticles->At(i);
kf = CheckPDGCode(iparticle->GetPdgCode());
+ Int_t ks = iparticle->GetStatusCode();
p[0] = iparticle->Px();
p[1] = iparticle->Py();
p[2] = iparticle->Pz();
Int_t ipa = iparticle->GetFirstMother()-1;
Int_t iparent = (ipa > -1) ? pParent[ipa] : -1;
SetTrack(fTrackIt*trackIt[i] ,
- iparent, kf, p, origin, polar, tof, kPPrimary, nt, 1.);
+ iparent, kf, p, origin, polar, tof, kPPrimary, nt, 1, ks);
pParent[i] = nt;
KeepTrack(nt);
} // SetTrack loop
origin[2] = fOrigin[2]+iparticle->Vz()/10.;
Float_t tof=kconv*iparticle->T();
SetTrack(fTrackIt*trackIt, iparent, kf, p, origin, polar,
- tof, kPPrimary, nt);
+ tof, kPPrimary, nt, 1., ks);
KeepTrack(nt);
pParent[i] = nt;
} // select particle