//_________________________________________________________________________
// RecPoint implementation for PHOS-EMC
// An EmcRecPoint is a cluster of digits
-//
+//*--
//*-- Author: Dmitri Peressounko (RRC KI & SUBATECH)
// --- Standard library ---
-#include <iostream.h>
-
// --- AliRoot header files ---
#include "AliGenerator.h"
#include "AliPHOSGeometry.h"
#include "AliPHOSEmcRecPoint.h"
#include "AliRun.h"
+#include "AliPHOSGetter.h"
ClassImp(AliPHOSEmcRecPoint)
fAmp = 0. ;
fCoreEnergy = 0 ;
fEnergyList = 0 ;
- fGeom = AliPHOSGeometry::GetInstance() ;
+ fNExMax = 0 ; //Not unfolded yet
+ fTime = -1. ;
+ fLocPos.SetX(1000000.) ; //Local position should be evaluated
+
+}
+
+//____________________________________________________________________________
+AliPHOSEmcRecPoint::AliPHOSEmcRecPoint(const char * opt) : AliPHOSRecPoint(opt)
+{
+ // ctor
+
+ fMulDigit = 0 ;
+ fAmp = 0. ;
+ fNExMax = 0 ; //Not unfolded yet
+ fCoreEnergy = 0 ;
+ fEnergyList = 0 ;
+ fTime = -1. ;
fLocPos.SetX(1000000.) ; //Local position should be evaluated
}
AliPHOSEmcRecPoint::~AliPHOSEmcRecPoint()
{
// dtor
+
if ( fEnergyList )
delete[] fEnergyList ;
}
void AliPHOSEmcRecPoint::AddDigit(AliPHOSDigit & digit, Float_t Energy)
{
// Adds a digit to the RecPoint
- // and accumulates the total amplitude and the multiplicity
+ // and accumulates the total amplitude and the multiplicity
if(fEnergyList == 0)
fEnergyList = new Float_t[fMaxDigit];
//____________________________________________________________________________
Bool_t AliPHOSEmcRecPoint::AreNeighbours(AliPHOSDigit * digit1, AliPHOSDigit * digit2 ) const
{
- // Tells if (true) or not (false) two digits are neighbors)
+ // Tells if (true) or not (false) two digits are neighbors
Bool_t aren = kFALSE ;
- AliPHOSGeometry * phosgeom = (AliPHOSGeometry *) fGeom ;
+ AliPHOSGetter * gime = AliPHOSGetter::GetInstance() ;
+ AliPHOSGeometry * phosgeom = (AliPHOSGeometry*)gime->PHOSGeometry();
+
Int_t relid1[4] ;
phosgeom->AbsToRelNumbering(digit1->GetId(), relid1) ;
return rv ;
}
-
//______________________________________________________________________________
-void AliPHOSEmcRecPoint::ExecuteEvent(Int_t event, Int_t px, Int_t py)
+void AliPHOSEmcRecPoint::ExecuteEvent(Int_t event, Int_t px, Int_t py) const
{
-// Commented by Dmitri Peressounko: there is no possibility to ensure,
-// that AliPHOSIndexToObject keeps the correct information.
-
-// // Execute action corresponding to one event
-// // This member function is called when a AliPHOSRecPoint is clicked with the locator
-// //
-// // If Left button is clicked on AliPHOSRecPoint, the digits are switched on
-// // and switched off when the mouse button is released.
-// //
-
-// // static Int_t pxold, pyold;
-
-// AliPHOSIndexToObject * please = AliPHOSIndexToObject::GetInstance() ;
-// static TGraph * digitgraph = 0 ;
+ // Execute action corresponding to one event
+ // This member function is called when a AliPHOSRecPoint is clicked with the locator
+ //
+ // If Left button is clicked on AliPHOSRecPoint, the digits are switched on
+ // and switched off when the mouse button is released.
+
+
+ AliPHOSGetter * gime = AliPHOSGetter::GetInstance() ;
+ if(!gime) return ;
+ AliPHOSGeometry * phosgeom = (AliPHOSGeometry*)gime->PHOSGeometry();
+
+ static TGraph * digitgraph = 0 ;
-// if (!gPad->IsEditable()) return;
+ if (!gPad->IsEditable()) return;
-// TH2F * histo = 0 ;
-// TCanvas * histocanvas ;
+ TH2F * histo = 0 ;
+ TCanvas * histocanvas ;
+
+ const TClonesArray * digits = gime->Digits() ;
-// switch (event) {
+ switch (event) {
-// case kButton1Down: {
-// AliPHOSDigit * digit ;
-// AliPHOSGeometry * phosgeom = (AliPHOSGeometry *) fGeom ;
-// Int_t iDigit;
-// Int_t relid[4] ;
+ case kButton1Down: {
+ AliPHOSDigit * digit ;
+ Int_t iDigit;
+ Int_t relid[4] ;
-// const Int_t kMulDigit = AliPHOSEmcRecPoint::GetDigitsMultiplicity() ;
-// Float_t * xi = new Float_t[kMulDigit] ;
-// Float_t * zi = new Float_t[kMulDigit] ;
+ const Int_t kMulDigit = AliPHOSEmcRecPoint::GetDigitsMultiplicity() ;
+ Float_t * xi = new Float_t[kMulDigit] ;
+ Float_t * zi = new Float_t[kMulDigit] ;
-// // create the histogram for the single cluster
-// // 1. gets histogram boundaries
-// Float_t ximax = -999. ;
-// Float_t zimax = -999. ;
-// Float_t ximin = 999. ;
-// Float_t zimin = 999. ;
+ // create the histogram for the single cluster
+ // 1. gets histogram boundaries
+ Float_t ximax = -999. ;
+ Float_t zimax = -999. ;
+ Float_t ximin = 999. ;
+ Float_t zimin = 999. ;
-// for(iDigit=0; iDigit<kMulDigit; iDigit++) {
-// digit = (AliPHOSDigit *) ( please->GimeDigit(fDigitsList[iDigit]) ) ;
-// phosgeom->AbsToRelNumbering(digit->GetId(), relid) ;
-// phosgeom->RelPosInModule(relid, xi[iDigit], zi[iDigit]);
-// if ( xi[iDigit] > ximax )
-// ximax = xi[iDigit] ;
-// if ( xi[iDigit] < ximin )
-// ximin = xi[iDigit] ;
-// if ( zi[iDigit] > zimax )
-// zimax = zi[iDigit] ;
-// if ( zi[iDigit] < zimin )
-// zimin = zi[iDigit] ;
-// }
-// ximax += phosgeom->GetCrystalSize(0) / 2. ;
-// zimax += phosgeom->GetCrystalSize(2) / 2. ;
-// ximin -= phosgeom->GetCrystalSize(0) / 2. ;
-// zimin -= phosgeom->GetCrystalSize(2) / 2. ;
-// Int_t xdim = (int)( (ximax - ximin ) / phosgeom->GetCrystalSize(0) + 0.5 ) ;
-// Int_t zdim = (int)( (zimax - zimin ) / phosgeom->GetCrystalSize(2) + 0.5 ) ;
+ for(iDigit=0; iDigit<kMulDigit; iDigit++) {
+ digit = (AliPHOSDigit *) digits->At(fDigitsList[iDigit]) ;
+ phosgeom->AbsToRelNumbering(digit->GetId(), relid) ;
+ phosgeom->RelPosInModule(relid, xi[iDigit], zi[iDigit]);
+ if ( xi[iDigit] > ximax )
+ ximax = xi[iDigit] ;
+ if ( xi[iDigit] < ximin )
+ ximin = xi[iDigit] ;
+ if ( zi[iDigit] > zimax )
+ zimax = zi[iDigit] ;
+ if ( zi[iDigit] < zimin )
+ zimin = zi[iDigit] ;
+ }
+ ximax += phosgeom->GetCrystalSize(0) / 2. ;
+ zimax += phosgeom->GetCrystalSize(2) / 2. ;
+ ximin -= phosgeom->GetCrystalSize(0) / 2. ;
+ zimin -= phosgeom->GetCrystalSize(2) / 2. ;
+ Int_t xdim = (int)( (ximax - ximin ) / phosgeom->GetCrystalSize(0) + 0.5 ) ;
+ Int_t zdim = (int)( (zimax - zimin ) / phosgeom->GetCrystalSize(2) + 0.5 ) ;
-// // 2. gets the histogram title
+ // 2. gets the histogram title
-// Text_t title[100] ;
-// sprintf(title,"Energy=%1.2f GeV ; Digits ; %d ", GetEnergy(), GetDigitsMultiplicity()) ;
+ Text_t title[100] ;
+ sprintf(title,"Energy=%1.2f GeV ; Digits ; %d ", GetEnergy(), GetDigitsMultiplicity()) ;
-// if (!histo) {
-// delete histo ;
-// histo = 0 ;
-// }
-// histo = new TH2F("cluster3D", title, xdim, ximin, ximax, zdim, zimin, zimax) ;
+ if (!histo) {
+ delete histo ;
+ histo = 0 ;
+ }
+ histo = new TH2F("cluster3D", title, xdim, ximin, ximax, zdim, zimin, zimax) ;
-// Float_t x, z ;
-// for(iDigit=0; iDigit<kMulDigit; iDigit++) {
-// digit = (AliPHOSDigit *) ( please->GimeDigit(fDigitsList[iDigit]) ) ;
-// phosgeom->AbsToRelNumbering(digit->GetId(), relid) ;
-// phosgeom->RelPosInModule(relid, x, z);
-// histo->Fill(x, z, fEnergyList[iDigit] ) ;
-// }
+ Float_t x, z ;
+ for(iDigit=0; iDigit<kMulDigit; iDigit++) {
+ digit = (AliPHOSDigit *) digits->At(fDigitsList[iDigit]) ;
+ phosgeom->AbsToRelNumbering(digit->GetId(), relid) ;
+ phosgeom->RelPosInModule(relid, x, z);
+ histo->Fill(x, z, fEnergyList[iDigit] ) ;
+ }
-// if (!digitgraph) {
-// digitgraph = new TGraph(kMulDigit,xi,zi);
-// digitgraph-> SetMarkerStyle(5) ;
-// digitgraph-> SetMarkerSize(1.) ;
-// digitgraph-> SetMarkerColor(1) ;
-// digitgraph-> Paint("P") ;
-// }
+ if (!digitgraph) {
+ digitgraph = new TGraph(kMulDigit,xi,zi);
+ digitgraph-> SetMarkerStyle(5) ;
+ digitgraph-> SetMarkerSize(1.) ;
+ digitgraph-> SetMarkerColor(1) ;
+ digitgraph-> Paint("P") ;
+ }
-// Print() ;
-// histocanvas = new TCanvas("cluster", "a single cluster", 600, 500) ;
-// histocanvas->Draw() ;
-// histo->Draw("lego1") ;
+ // Print() ;
+ histocanvas = new TCanvas("cluster", "a single cluster", 600, 500) ;
+ histocanvas->Draw() ;
+ histo->Draw("lego1") ;
-// delete[] xi ;
-// delete[] zi ;
+ delete[] xi ;
+ delete[] zi ;
-// break;
-// }
+ break;
+ }
-// case kButton1Up:
-// if (digitgraph) {
-// delete digitgraph ;
-// digitgraph = 0 ;
-// }
-// break;
+ case kButton1Up:
+ if (digitgraph) {
+ delete digitgraph ;
+ digitgraph = 0 ;
+ }
+ break;
-// }
+ }
}
//____________________________________________________________________________
{
// Calculates the dispersion of the shower at the origine of the RecPoint
- Float_t d = 0 ;
- Float_t wtot = 0 ;
+ Float_t d = 0. ;
+ Float_t wtot = 0. ;
- TVector3 locpos;
- GetLocalPosition(locpos);
- Float_t x = locpos.X() ;
- Float_t z = locpos.Z() ;
+ Float_t x = 0.;
+ Float_t z = 0.;
AliPHOSDigit * digit ;
- AliPHOSGeometry * phosgeom = (AliPHOSGeometry *) fGeom ;
+
+ AliPHOSGetter * gime = AliPHOSGetter::GetInstance() ;
+ AliPHOSGeometry * phosgeom = (AliPHOSGeometry*)gime->PHOSGeometry();
+
+
+ // Calculates the center of gravity in the local PHOS-module coordinates
Int_t iDigit;
+
+ for(iDigit=0; iDigit<fMulDigit; iDigit++) {
+ digit = (AliPHOSDigit *) digits->At(fDigitsList[iDigit]) ;
+ Int_t relid[4] ;
+ Float_t xi ;
+ Float_t zi ;
+ phosgeom->AbsToRelNumbering(digit->GetId(), relid) ;
+ phosgeom->RelPosInModule(relid, xi, zi);
+ Float_t w = TMath::Max( 0., logWeight + TMath::Log( fEnergyList[iDigit] / fAmp ) ) ;
+ x += xi * w ;
+ z += zi * w ;
+ wtot += w ;
+ }
+ x /= wtot ;
+ z /= wtot ;
+
+
+// Calculates the dispersion in coordinates
+ wtot = 0.;
for(iDigit=0; iDigit < fMulDigit; iDigit++) {
digit = (AliPHOSDigit *) digits->At(fDigitsList[iDigit]) ;
Int_t relid[4] ;
Float_t w = TMath::Max(0.,logWeight+TMath::Log(fEnergyList[iDigit]/fAmp ) ) ;
d += w*((xi-x)*(xi-x) + (zi-z)*(zi-z) ) ;
wtot+=w ;
- }
+
+ }
+
d /= wtot ;
fDispersion = TMath::Sqrt(d) ;
+
}
//______________________________________________________________________________
-void AliPHOSEmcRecPoint::EvalCoreEnergy(TClonesArray * digits)
+void AliPHOSEmcRecPoint::EvalCoreEnergy(Float_t logWeight, TClonesArray * digits)
{
- //This function calculates energy in the core,
- //i.e. within radius rad = 3cm. Beyond this radius
- //in accoradnce with shower profile energy deposition
+ // This function calculates energy in the core,
+ // i.e. within a radius rad = 3cm around the center. Beyond this radius
+ // in accordance with shower profile the energy deposition
// should be less than 2%
Float_t coreRadius = 3 ;
- TVector3 locpos;
- GetLocalPosition(locpos);
- Float_t x = locpos.X() ;
- Float_t z = locpos.Z() ;
+ Float_t x = 0 ;
+ Float_t z = 0 ;
AliPHOSDigit * digit ;
- AliPHOSGeometry * phosgeom = (AliPHOSGeometry *) fGeom ;
-
+
+ AliPHOSGetter * gime = AliPHOSGetter::GetInstance() ;
+ AliPHOSGeometry * phosgeom = (AliPHOSGeometry*)gime->PHOSGeometry();
+
Int_t iDigit;
+
+// Calculates the center of gravity in the local PHOS-module coordinates
+ Float_t wtot = 0;
+ for(iDigit=0; iDigit<fMulDigit; iDigit++) {
+ digit = (AliPHOSDigit *) digits->At(fDigitsList[iDigit]) ;
+ Int_t relid[4] ;
+ Float_t xi ;
+ Float_t zi ;
+ phosgeom->AbsToRelNumbering(digit->GetId(), relid) ;
+ phosgeom->RelPosInModule(relid, xi, zi);
+ Float_t w = TMath::Max( 0., logWeight + TMath::Log( fEnergyList[iDigit] / fAmp ) ) ;
+ x += xi * w ;
+ z += zi * w ;
+ wtot += w ;
+ }
+ x /= wtot ;
+ z /= wtot ;
+
+
for(iDigit=0; iDigit < fMulDigit; iDigit++) {
digit = (AliPHOSDigit *) ( digits->At(fDigitsList[iDigit]) ) ;
Int_t relid[4] ;
Double_t dxz = 0.;
AliPHOSDigit * digit ;
- AliPHOSGeometry * phosgeom = (AliPHOSGeometry *) fGeom ;
+
+ AliPHOSGetter * gime = AliPHOSGetter::GetInstance() ;
+ AliPHOSGeometry * phosgeom = (AliPHOSGeometry*)gime->PHOSGeometry();
+
Int_t iDigit;
+
for(iDigit=0; iDigit<fMulDigit; iDigit++) {
digit = (AliPHOSDigit *) digits->At(fDigitsList[iDigit]) ;
Int_t relid[4] ;
// //Apply correction due to non-perpendicular incidence
// Double_t CosX ;
// Double_t CosZ ;
-// Double_t DistanceToIP= (Double_t ) ((AliPHOSGeometry *) fGeom)->GetIPtoCrystalSurface() ;
+// AliPHOSGetter * gime = AliPHOSGetter::GetInstance() ;
+// AliPHOSGeometry * phosgeom = (AliPHOSGeometry*)gime->PHOSGeometry();
+ // Double_t DistanceToIP= (Double_t ) phosgeom->GetIPtoCrystalSurface() ;
// CosX = DistanceToIP/TMath::Sqrt(DistanceToIP*DistanceToIP+x*x) ;
// CosZ = DistanceToIP/TMath::Sqrt(DistanceToIP*DistanceToIP+z*z) ;
//____________________________________________________________________________
void AliPHOSEmcRecPoint::EvalAll(Float_t logWeight, TClonesArray * digits )
{
- AliPHOSRecPoint::EvalAll(logWeight,digits) ;
+ // Evaluates all shower parameters
+
EvalLocalPosition(logWeight, digits) ;
EvalElipsAxis(logWeight, digits) ;
EvalDispersion(logWeight, digits) ;
- EvalCoreEnergy(digits);
+ EvalCoreEnergy(logWeight, digits);
+ EvalTime(digits) ;
+ AliPHOSRecPoint::EvalAll(logWeight,digits) ;
}
//____________________________________________________________________________
void AliPHOSEmcRecPoint::EvalLocalPosition(Float_t logWeight, TClonesArray * digits)
{
// Calculates the center of gravity in the local PHOS-module coordinates
-
Float_t wtot = 0. ;
Int_t relid[4] ;
AliPHOSDigit * digit ;
- AliPHOSGeometry * phosgeom = (AliPHOSGeometry *) fGeom ;
+ AliPHOSGetter * gime = AliPHOSGetter::GetInstance() ;
+ AliPHOSGeometry * phosgeom = (AliPHOSGeometry*)gime->PHOSGeometry();
Int_t iDigit;
xoL = xo*TMath::Cos(phi)-yo*TMath::Sin(phi) ;
yoL = xo*TMath::Sin(phi)+yo*TMath::Cos(phi) ;
- Float_t radius = TMath::Sqrt((xoL-x)*(xoL-x)+
- (phosgeom->GetIPtoCrystalSurface()-yoL)*(phosgeom->GetIPtoCrystalSurface()-yoL)+
- (zo-z)*(zo-z));
+ Float_t radius = phosgeom->GetIPtoCrystalSurface()-yoL;
Float_t incidencephi = TMath::ATan((x-xoL ) / radius) ;
Float_t incidencetheta = TMath::ATan((z-zo) / radius) ;
Float_t depthx = ( para * TMath::Log(fAmp) + parb ) * TMath::Sin(incidencephi) ;
Float_t depthz = ( para * TMath::Log(fAmp) + parb ) * TMath::Sin(incidencetheta) ;
-
fLocPos.SetX(x - depthx) ;
fLocPos.SetY(0.) ;
fLocPos.SetZ(z - depthz) ;
+ fLocPosM = 0 ;
}
//____________________________________________________________________________
}
//____________________________________________________________________________
-Int_t AliPHOSEmcRecPoint::GetNumberOfLocalMax(Int_t * maxAt, Float_t * maxAtEnergy,
+Int_t AliPHOSEmcRecPoint::GetNumberOfLocalMax( AliPHOSDigit ** maxAt, Float_t * maxAtEnergy,
Float_t locMaxCut,TClonesArray * digits) const
{
// Calculates the number of local maxima in the cluster using fLocalMaxCut as the minimum
- // energy difference between two local maxima
+ // energy difference between two local maxima
AliPHOSDigit * digit ;
AliPHOSDigit * digitN ;
Int_t iDigit ;
for(iDigit = 0; iDigit < fMulDigit; iDigit++)
- maxAt[iDigit] = (Int_t) digits->At(fDigitsList[iDigit]) ;
+ maxAt[iDigit] = (AliPHOSDigit*) digits->At(fDigitsList[iDigit]) ;
for(iDigit = 0 ; iDigit < fMulDigit; iDigit++) {
- if(maxAt[iDigit] != -1) {
- digit = (AliPHOSDigit *) maxAt[iDigit] ;
+ if(maxAt[iDigit]) {
+ digit = maxAt[iDigit] ;
for(iDigitN = 0; iDigitN < fMulDigit; iDigitN++) {
digitN = (AliPHOSDigit *) digits->At(fDigitsList[iDigitN]) ;
if ( AreNeighbours(digit, digitN) ) {
if (fEnergyList[iDigit] > fEnergyList[iDigitN] ) {
- maxAt[iDigitN] = -1 ;
+ maxAt[iDigitN] = 0 ;
// but may be digit too is not local max ?
if(fEnergyList[iDigit] < fEnergyList[iDigitN] + locMaxCut)
- maxAt[iDigit] = -1 ;
+ maxAt[iDigit] = 0 ;
}
else {
- maxAt[iDigit] = -1 ;
+ maxAt[iDigit] = 0 ;
// but may be digitN too is not local max ?
if(fEnergyList[iDigit] > fEnergyList[iDigitN] - locMaxCut)
- maxAt[iDigitN] = -1 ;
+ maxAt[iDigitN] = 0 ;
}
} // if Areneighbours
} // while digitN
iDigitN = 0 ;
for(iDigit = 0; iDigit < fMulDigit; iDigit++) {
- if(maxAt[iDigit] != -1){
+ if(maxAt[iDigit]){
maxAt[iDigitN] = maxAt[iDigit] ;
maxAtEnergy[iDigitN] = fEnergyList[iDigit] ;
iDigitN++ ;
}
return iDigitN ;
}
+//____________________________________________________________________________
+void AliPHOSEmcRecPoint::EvalTime(TClonesArray * digits)
+{
+ // Define a rec.point time as a time in the cell with the maximum energy
+
+ Float_t maxE = 0;
+ Int_t maxAt = 0;
+ for(Int_t idig=0; idig < fMulDigit; idig++){
+ if(fEnergyList[idig] > maxE){
+ maxE = fEnergyList[idig] ;
+ maxAt = idig;
+ }
+ }
+ fTime = ((AliPHOSDigit*) digits->At(fDigitsList[maxAt]))->GetTime() ;
+
+}
+//____________________________________________________________________________
+void AliPHOSEmcRecPoint::Purify(Float_t threshold){
+ //Removes digits below threshold
+
+ Int_t * tempo = new ( Int_t[fMaxDigit] ) ;
+ Float_t * tempoE = new ( Float_t[fMaxDigit] ) ;
+
+ Int_t mult = 0 ;
+ for(Int_t iDigit=0;iDigit< fMulDigit ;iDigit++){
+ if(fEnergyList[iDigit] > threshold){
+ tempo[mult] = fDigitsList[iDigit] ;
+ tempoE[mult] = fEnergyList[iDigit] ;
+ mult++ ;
+ }
+ }
+
+ fMulDigit = mult ;
+ delete [] fDigitsList ;
+ delete [] fEnergyList ;
+ fDigitsList = new (Int_t[fMulDigit]) ;
+ fEnergyList = new ( Float_t[fMulDigit]) ;
+
+ for(Int_t iDigit=0;iDigit< fMulDigit ;iDigit++){
+ fDigitsList[iDigit] = tempo[iDigit];
+ fEnergyList[iDigit] = tempoE[iDigit] ;
+ }
+
+ delete [] tempo ;
+ delete [] tempoE ;
-
-
+}
//____________________________________________________________________________
-void AliPHOSEmcRecPoint::Print(Option_t * option)
+void AliPHOSEmcRecPoint::Print(Option_t * option) const
{
// Print the list of digits belonging to the cluster
- cout << "AliPHOSEmcRecPoint: " << endl ;
+ TString message ;
+ message = "AliPHOSEmcRecPoint:\n" ;
+ message += " digits # = " ;
+ Info("Print", message.Data()) ;
Int_t iDigit;
- cout << " digits # = " ;
for(iDigit=0; iDigit<fMulDigit; iDigit++)
- cout << fDigitsList[iDigit] << " " ;
- cout << endl ;
+ printf(" %d ", fDigitsList[iDigit] ) ;
- cout << " Energies = " ;
+ Info("Print", " Energies = ") ;
for(iDigit=0; iDigit<fMulDigit; iDigit++)
- cout << fEnergyList[iDigit] << " ";
- cout << endl ;
-
- cout << " Multiplicity = " << fMulDigit << endl ;
- cout << " Cluster Energy = " << fAmp << endl ;
- cout << " Stored at position " << GetIndexInList() << endl ;
+ printf(" %f ", fEnergyList[iDigit] ) ;
+ printf("\n") ;
+ Info("Print", " Primaries ") ;
+ for(iDigit = 0;iDigit < fMulTrack; iDigit++)
+ printf(" %d ", fTracksList[iDigit]) ;
+ printf("\n") ;
+ message = " Multiplicity = %d" ;
+ message += " Cluster Energy = %f" ;
+ message += " Number of primaries %d" ;
+ message += " Stored at position %d" ;
+ Info("Print", message.Data(), fMulDigit, fAmp, fMulTrack,GetIndexInList() ) ;
}