    // @(#)root/pythia6:$Name:  $:$Id: TMCParticle6.cxx,v 1.2 2000/12/13 15:13:53 brun Exp $
    // 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.                                  //
    ////////////////////////////////////////////////////////////////////////////////

    #include "TMCParticle6.h"
    #include "TPrimary.h"

    #ifndef WIN32
    # define pyname pyname_
    extern "C" void pyname(const Int_t &kf, const char *name, const Int_t len);
    #else
    # define pyname PYNAME
    extern "C" void pyname(const Int_t &kf, const char *name, const Int_t len);
    #endif

    ClassImp(TMCParticle)

    //______________________________________________________________________________
     void TMCParticle::ls(Option_t *) const
    {
       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=%g\n",
              fEnergy,fMass,fVx,fVy,fVz,fTime,fLifetime);
    }

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

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