//*CMZ :  2.00/00 18/02/98  09.22.30  by  Rene Brun
//*CMZ :  1.03/09 08/12/97  21.17.18  by  Fons Rademakers
//*-- Author :    Piotr Golonka   17/09/97
////////////////////////////////////////////////////////////////////////////////
//                                                                            //
//  class TMCParticle                                                         //
//                                                                            //
// This class serves as a data storage for description of one particle.       //
// It is especially convenient to store information taken from LUJETS common, //
// which is done by interface class TPythia.                                  //
////////////////////////////////////////////////////////////////////////////////

//*KEEP,TMCPARTICLE.
#include "TMCParticle.h"
//*KEEP,TPrimary.
#include "TPrimary.h"
//*KEND.

#ifndef WIN32
# define luname luname_
extern "C" void luname(const Int_t &kf, const char *name, const Int_t len);
#else
# define luname LUNAME
extern "C" void luname(const Int_t &kf, const char *name, const Int_t len);
#endif

ClassImp(TMCParticle)

//______________________________________________________________________________
 void TMCParticle::ls(Option_t *)
{
   printf("(%2i,%4i) <-%3i, =>[%3i,%3i]",fKS,fKF,fParent,
          fFirstChild,fLastChild);
   printf(":  p=(%7.3f,%7.3f,%9.3f) ;",fPx,fPy,fPz);

   printf(" E=%8.3f ; m=%7.3f ; V=(%g,%g,%g); t=%g, tau=%gn",
          fEnergy,fMass,fVx,fVy,fVz,fTime,fLifetime);
}

//______________________________________________________________________________
 const Text_t *TMCParticle::GetName() const
{
   // Return name of this particle via Pythia

   static char name[20];
   luname(fKF,name,16); name[15] = 0;
   for (Int_t i=14;i>0;i--) {
      if (name[i] != ' ') break;
      name[i] = 0;
   }
   return name;
}