[u/mrichter/AliRoot.git] / PHOS / AliPHOSv3.cxx

/**************************************************************************
 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
 *                                                                        *
 * Author: The ALICE Off-line Project.                                    *
 * Contributors are mentioned in the code where appropriate.              *
 *                                                                        *
 * Permission to use, copy, modify and distribute this software and its   *
 * documentation strictly for non-commercial purposes is hereby granted   *
 * without fee, provided that the above copyright notice appears in all   *
 * copies and that both the copyright notice and this permission notice   *
 * appear in the supporting documentation. The authors make no claims     *
 * about the suitability of this software for any purpose. It is          *
 * provided "as is" without express or implied warranty.                  *
 **************************************************************************/

/* $Id$ */

//_________________________________________________________________________
// Implementation version v0 of PHOS Manager class 
// Layout EMC + PPSD has name GPS2  
// The main goal of this version of AliPHOS is to calculte the 
//  induced charged in the PIN diode, taking into account light
//  tracking in the PbWO4 crystal, induced signal in the 
//  PIN due to MIPS particle and electronic noise.
// This is done in the StepManager 
//                  
//*-- Author:  Odd Harald Odland & Gines Martinez (SUBATECH)


// --- ROOT system ---
#include "TRandom.h"

// --- Standard library ---

#include <string.h>
#include <stdlib.h>
#include <strstream.h>

// --- AliRoot header files ---

#include "AliPHOSv3.h"
#include "AliPHOSHit.h"
#include "AliPHOSCPVDigit.h"
#include "AliRun.h"
#include "AliConst.h"
#include "AliPHOSGeometry.h"

ClassImp(AliPHOSv3)

//____________________________________________________________________________
  AliPHOSv3::AliPHOSv3(void) : AliPHOSv1() 
{
  // default ctor: initialize daa members

  fLightYieldMean         = 0. ;         
  fIntrinsicPINEfficiency = 0. ; 
  fLightYieldAttenuation  = 0. ;  
  fRecalibrationFactor    = 0. ;    
  fElectronsPerGeV        = 0. ;
  fAPDGain                = 0. ;    
  
}

//____________________________________________________________________________
  AliPHOSv3::AliPHOSv3(const char *name, const char *title):
AliPHOSv1(name,title)
{
  // ctor 

  // The light yield is a poissonian distribution of the number of
  // photons created in the PbWo4 crystal, calculated using following formula
  // NumberOfPhotons = EnergyLost * LightYieldMean* APDEfficiency * 
  //              exp (-LightYieldAttenuation * DistanceToPINdiodeFromTheHit);
  // LightYieldMean is parameter calculated to be over 47000 photons per GeV  
  // APDEfficiency is 0.02655
  // k_0 is 0.0045 from Valery Antonenko 
  // The number of electrons created in the APD is 
  // NumberOfElectrons = APDGain * LightYield
  // The APD Gain is 300

  fLightYieldMean = 47000;
  fIntrinsicPINEfficiency = 0.02655 ; //APD= 0.1875/0.1271 * 0.018 (PIN)
  fLightYieldAttenuation = 0.0045 ; 
  fRecalibrationFactor = 13.418/ fLightYieldMean ;
  fElectronsPerGeV = 2.77e+8 ;
  fAPDGain= 300. ;
}

// //____________________________________________________________________________
// AliPHOSv3::AliPHOSv3(AliPHOSReconstructioner * Reconstructioner, const char *name, const char *title):
//   AliPHOSv1(Reconstructioner,name,title)
// {
//   // ctor 

//   // Number of electrons created in the PIN due to light collected in the PbWo4 crystal is calculated using 
//   // following formula
//   // NumberOfElectrons = EnergyLost * LightYield * PINEfficiency * 
//   //                     exp (-LightYieldAttenuation * DistanceToPINdiodeFromTheHit) *
//   //                     RecalibrationFactor ;
//   // LightYield is obtained as a Poissonian distribution with a mean at 700000 photons per GeV fromValery Antonenko
//   // PINEfficiency is 0.1875 
//   // k_0 is 0.0045 from Valery Antonenko 

//   fLightYieldMean = 700000.;
//   fIntrinsicPINEfficiency = 0.1875 ;
//   fLightYieldAttenuation = 0.0045 ;
//   fRecalibrationFactor = 6.2 / fLightYieldMean ;
//   fRecalibrationFactor = 5.67 /fLightYieldMean ;//25.04.2001 OHO
//   fElectronsPerGeV = 2.77e+8 ;
// }
//____________________________________________________________________________

void AliPHOSv3::StepManager(void)
{
  // Accumulates hits as long as the track stays in a single crystal or PPSD gas Cell

//    if (gMC->IsTrackEntering())
//      Info("StepManager", "Track enters the volume %d", gMC->CurrentVolName()) ;
//    if (gMC->IsTrackExiting())
//      Info("StepManager", "Track leaves the volume %d", gMC->CurrentVolName()) ;

  Int_t          relid[4] ;        // (box, layer, row, column) indices
  Int_t          absid    ;        // absolute cell ID number
  Float_t        xyze[4]={0,0,0,0}  ; // position wrt MRS and energy deposited

  TLorentzVector pos      ;     // Lorentz vector of the track current position
  Int_t          copy     ;
  Float_t        fLightYield ;   // Light Yield per GeV

  Int_t tracknumber =  gAlice->CurrentTrack() ; 
  Int_t primary     =  gAlice->GetPrimary( gAlice->CurrentTrack() ); 
  TString name      =  GetGeometry()->GetName() ; 
  Float_t        lostenergy ;
  Float_t        global[3] ;
  Float_t        local[3] ;


  if ( name == "GPS2" || name == "MIXT" ) {            // ======> CPV is a GPS' PPSD

    if( gMC->CurrentVolID(copy) == gMC->VolId("PPCE") ) // We are inside a gas cell 
    {
      gMC->TrackPosition(pos) ;
      xyze[0] = pos[0] ;
      xyze[1] = pos[1] ;
      xyze[2] = pos[2] ;
      xyze[3] = gMC->Edep() ; 

      if ( xyze[3] != 0) { // there is deposited energy 
       	gMC->CurrentVolOffID(5, relid[0]) ;  // get the PHOS Module number
	if ( name == "MIXT" && strcmp(gMC->CurrentVolOffName(5),"PHO1") == 0 ){
	  relid[0] += GetGeometry()->GetNModules() - GetGeometry()->GetNPPSDModules();
	}
       	gMC->CurrentVolOffID(3, relid[1]) ;  // get the Micromegas Module number 
      // 1-> GetGeometry()->GetNumberOfModulesPhi() * GetGeometry()->GetNumberOfModulesZ() upper
      //   > GetGeometry()->GetNumberOfModulesPhi() * GetGeometry()->GetNumberOfModulesZ() lower
       	gMC->CurrentVolOffID(1, relid[2]) ;  // get the row number of the cell
        gMC->CurrentVolID(relid[3]) ;        // get the column number 

	// get the absolute Id number

       	GetGeometry()->RelToAbsNumbering(relid, absid) ; 

	// add current hit to the hit list      
	  AddHit(fIshunt, primary, tracknumber, absid, xyze);


      } // there is deposited energy 
    } // We are inside the gas of the CPV  
  } // GPS2 configuration

  if ( name == "IHEP" || name == "MIXT" ) {       // ======> CPV is a IHEP's one

    // Yuri Kharlov, 28 September 2000

    if( gMC->CurrentVolID(copy) == gMC->VolId("PCPQ") &&
	gMC->IsTrackEntering()  &&
	gMC->TrackCharge() != 0) {      

      gMC -> TrackPosition(pos);
      Float_t xyzm[3], xyzd[3] ;
      Int_t i;
      for (i=0; i<3; i++) xyzm[i] = pos[i];
      gMC -> Gmtod (xyzm, xyzd, 1);    // transform coordinate from master to daughter system

      Float_t        xyd[3]={0,0,0}   ;   //local posiiton of the entering
      xyd[0]  = xyzd[0];
      xyd[1]  =-xyzd[1];
      xyd[2]  =-xyzd[2];

      
      // Current momentum of the hit's track in the local ref. system
        TLorentzVector pmom     ;        //momentum of the particle initiated hit
      gMC -> TrackMomentum(pmom);
      Float_t pm[3], pd[3];
      for (i=0; i<3; i++) pm[i]   = pmom[i];
      gMC -> Gmtod (pm, pd, 2);        // transform 3-momentum from master to daughter system
      pmom[0] = pd[0];
      pmom[1] =-pd[1];
      pmom[2] =-pd[2];
      
      // Digitize the current CPV hit:

      // 1. find pad response and
      
      Int_t moduleNumber;
      gMC->CurrentVolOffID(3,moduleNumber);
      moduleNumber--;


      TClonesArray *cpvDigits = new TClonesArray("AliPHOSCPVDigit",0);   // array of digits for current hit
      CPVDigitize(pmom,xyd,moduleNumber,cpvDigits);
      
      Float_t xmean = 0;
      Float_t zmean = 0;
      Float_t qsum  = 0;
      Int_t   idigit,ndigits;

      // 2. go through the current digit list and sum digits in pads

      ndigits = cpvDigits->GetEntriesFast();
      for (idigit=0; idigit<ndigits-1; idigit++) {
	AliPHOSCPVDigit  *cpvDigit1 = dynamic_cast<AliPHOSCPVDigit*>(cpvDigits->UncheckedAt(idigit));
	Float_t x1 = cpvDigit1->GetXpad() ;
	Float_t z1 = cpvDigit1->GetYpad() ;
	for (Int_t jdigit=idigit+1; jdigit<ndigits; jdigit++) {
	  AliPHOSCPVDigit  *cpvDigit2 = dynamic_cast<AliPHOSCPVDigit*>(cpvDigits->UncheckedAt(jdigit));
	  Float_t x2 = cpvDigit2->GetXpad() ;
	  Float_t z2 = cpvDigit2->GetYpad() ;
	  if (x1==x2 && z1==z2) {
	    Float_t qsum = cpvDigit1->GetQpad() + cpvDigit2->GetQpad() ;
	    cpvDigit2->SetQpad(qsum) ;
	    cpvDigits->RemoveAt(idigit) ;
	  }
	}
      }
      cpvDigits->Compress() ;

      // 3. add digits to temporary hit list fTmpHits

      ndigits = cpvDigits->GetEntriesFast();
      for (idigit=0; idigit<ndigits; idigit++) {
	AliPHOSCPVDigit  *cpvDigit = dynamic_cast<AliPHOSCPVDigit*>(cpvDigits->UncheckedAt(idigit));
	relid[0] = moduleNumber + 1 ;                             // CPV (or PHOS) module number
	relid[1] =-1 ;                                            // means CPV
	relid[2] = cpvDigit->GetXpad() ;                          // column number of a pad
	relid[3] = cpvDigit->GetYpad() ;                          // row    number of a pad
	
	// get the absolute Id number
	GetGeometry()->RelToAbsNumbering(relid, absid) ; 

	// add current digit to the temporary hit list
	xyze[0] = 0. ;
	xyze[1] = 0. ;
	xyze[2] = 0. ;
	xyze[3] = cpvDigit->GetQpad() ;                           // amplitude in a pad
	primary = -1;                                             // No need in primary for CPV
	AddHit(fIshunt, primary, tracknumber, absid, xyze);

	if (cpvDigit->GetQpad() > 0.02) {
	  xmean += cpvDigit->GetQpad() * (cpvDigit->GetXpad() + 0.5);
	  zmean += cpvDigit->GetQpad() * (cpvDigit->GetYpad() + 0.5);
	  qsum  += cpvDigit->GetQpad();
	}
      }
      delete cpvDigits;
    }
  } // end of IHEP configuration
  

if(gMC->CurrentVolID(copy)==gMC->VolId("PXTL")){// We are inside a PBWO4 crystal
    gMC->TrackPosition(pos) ;
    xyze[0] = pos[0] ;
    xyze[1] = pos[1] ;
    xyze[2] = pos[2] ;
    global[0] = pos[0] ;
    global[1] = pos[1] ;
    global[2] = pos[2] ;
    lostenergy = gMC->Edep(); 
    xyze[3] = gMC->Edep() ;

  
  if ( (xyze[3] != 0) ){//Track is inside the crystal and deposits some energy

      gMC->CurrentVolOffID(10, relid[0]) ; // get the PHOS module number ;

      if ( name == "MIXT" && strcmp(gMC->CurrentVolOffName(10),"PHO1") == 0 )
	relid[0] += GetGeometry()->GetNModules() - GetGeometry()->GetNPPSDModules();      

      relid[1] = 0   ;                    // means PBW04
   gMC->CurrentVolOffID(4, relid[2]) ; // get the row number inside the module
   gMC->CurrentVolOffID(3, relid[3]) ; // get the cell number inside the module
      
      // get the absolute Id number

   GetGeometry()->RelToAbsNumbering(relid, absid) ; 

   gMC->Gmtod(global, local, 1) ;

   //Calculates the light yield, the number of photns produced in the
   //crystal 
   fLightYield = gRandom->Poisson(
				  fLightYieldMean * lostenergy *
				  fIntrinsicPINEfficiency * 
				  exp(-fLightYieldAttenuation *
				      (local[1]+GetGeometry()->GetCrystalSize(1)/2.0 ))
				  ) ;
   //Calculates de energy deposited in the crystal  
   xyze[3] = (fRecalibrationFactor/100.) * fAPDGain * fLightYield  ;
  
    
   // Info("StepManager", "xyze[3]: %f", xyze[3]) ;
   // Info("StepManager", "lostenergy: %f", lostenergy) ; 


      // add current hit to the hit list
 

   if (xyze[3] != 0.) AddHit(fIshunt, primary,tracknumber, absid, xyze);
  

    } // there is deposited energy
  } // we are inside a PHOS Xtal

//  if(gMC->CurrentVolID(copy) == gMC->VolId("PPIN"))//We are inside the PIN diode 
//     {
//       Info("StepManager", "Inside PIN";
//       gMC->TrackPosition(pos) ;
//       global[0] = pos[0] ;
//       global[1] = pos[1] ;
//       global[2] = pos[2] ;
//       xyze[0] = pos[0] ;
//       xyze[1] = pos[1] ;
//       xyze[2] = pos[2] ;
//       lostenergy = gMC->Edep() ;
//       xyze[3] = gMC->Edep() ;
      
//       if ( xyze[3] != 0 ) {
// 	gMC->CurrentVolOffID(11, relid[0]) ; // get the PHOS module number ;
// 	relid[1] = 0   ;                    // means PW04 and PIN
// 	gMC->CurrentVolOffID(5, relid[2]) ; // get the row number inside the module
// 	gMC->CurrentVolOffID(4, relid[3]) ; // get the cell number inside the module
	
// 	// get the absolute Id number
	
// 	Int_t absid ; 
// 	GetGeometry()->RelToAbsNumbering(relid,absid) ;
// 	gMC->Gmtod(global, local, 1) ;

// // calculating number of electrons in the PIN diode asociated to this hit

// 	  //nElectrons = lostenergy * fElectronsPerGeV ;
//        //  xyze[3] = nElectrons * fRecalibrationFactor ;
//           apdgain = gRandom->Poisson(300.) ;
//           // apdgain = 300.;
//    //if(local[1]<-0.0045) xyze[3] = apdgain * nElectrons * fRecalibrationFactor/10000.;

//     if(local[1]<-0.0045) xyze[3] = apdgain * lostenergy * fElectronsPerGeV* (fRecalibrationFactor/100.);

//    //if((local[1]>-0.0045)&&(gMC->TrackPid()==-11)) xyze[3] = apdgain * nElectrons * fRecalibrationFactor/10000.;

//      if((local[1]>-0.0045)&&(gMC->TrackPid()==-11)) xyze[3] = apdgain * lostenergy * fElectronsPerGeV * (fRecalibrationFactor/100.);

//    //if(local[1]>-0.0045) xyze[3] = nElectrons * fRecalibrationFactor/10000.;

//      if(local[1]>-0.0045) xyze[3] = lostenergy * fElectronsPerGeV * (fRecalibrationFactor/100.);
	  
// 	  // add current hit to the hit list

// 	  AddHit(fIshunt, primary, tracknumber, absid, xyze);

// 	  //printf("PIN volume is  %d, %d, %d, %d \n",relid[0],relid[1],relid[2],relid[3]);
// 	  printf("Lost energy in the PIN is %f \n",lostenergy) ;
//       } // there is deposited energy
//     } // we are inside a PHOS XtalPHOS PIN diode
}
Commit	Line	Data
	1	/**************************************************************************
	2	* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
	3	* *
	4	* Author: The ALICE Off-line Project. *
	5	* Contributors are mentioned in the code where appropriate. *
	6	* *
	7	* Permission to use, copy, modify and distribute this software and its *
	8	* documentation strictly for non-commercial purposes is hereby granted *
	9	* without fee, provided that the above copyright notice appears in all *
	10	* copies and that both the copyright notice and this permission notice *
	11	* appear in the supporting documentation. The authors make no claims *
	12	* about the suitability of this software for any purpose. It is *
	13	* provided "as is" without express or implied warranty. *
	14	**************************************************************************/
	15
	16	/* $Id$ */
	17
	18	//_________________________________________________________________________
	19	// Implementation version v0 of PHOS Manager class
	20	// Layout EMC + PPSD has name GPS2
	21	// The main goal of this version of AliPHOS is to calculte the
	22	// induced charged in the PIN diode, taking into account light
	23	// tracking in the PbWO4 crystal, induced signal in the
	24	// PIN due to MIPS particle and electronic noise.
	25	// This is done in the StepManager
	26	//
	27	//*-- Author: Odd Harald Odland & Gines Martinez (SUBATECH)
	28
	29
	30	// --- ROOT system ---
	31	#include "TRandom.h"
	32
	33	// --- Standard library ---
	34
	35	#include <string.h>
	36	#include <stdlib.h>
	37	#include <strstream.h>
	38
	39	// --- AliRoot header files ---
	40
	41	#include "AliPHOSv3.h"
	42	#include "AliPHOSHit.h"
	43	#include "AliPHOSCPVDigit.h"
	44	#include "AliRun.h"
	45	#include "AliConst.h"
	46	#include "AliPHOSGeometry.h"
	47
	48	ClassImp(AliPHOSv3)
	49
	50	//____________________________________________________________________________
	51	AliPHOSv3::AliPHOSv3(void) : AliPHOSv1()
	52	{
	53	// default ctor: initialize daa members
	54
	55	fLightYieldMean = 0. ;
	56	fIntrinsicPINEfficiency = 0. ;
	57	fLightYieldAttenuation = 0. ;
	58	fRecalibrationFactor = 0. ;
	59	fElectronsPerGeV = 0. ;
	60	fAPDGain = 0. ;
	61
	62	}
	63
	64	//____________________________________________________________________________
	65	AliPHOSv3::AliPHOSv3(const char name, const char title):
	66	AliPHOSv1(name,title)
	67	{
	68	// ctor
	69
	70	// The light yield is a poissonian distribution of the number of
	71	// photons created in the PbWo4 crystal, calculated using following formula
	72	// NumberOfPhotons = EnergyLost * LightYieldMean* APDEfficiency *
	73	// exp (-LightYieldAttenuation * DistanceToPINdiodeFromTheHit);
	74	// LightYieldMean is parameter calculated to be over 47000 photons per GeV
	75	// APDEfficiency is 0.02655
	76	// k_0 is 0.0045 from Valery Antonenko
	77	// The number of electrons created in the APD is
	78	// NumberOfElectrons = APDGain * LightYield
	79	// The APD Gain is 300
	80
	81	fLightYieldMean = 47000;
	82	fIntrinsicPINEfficiency = 0.02655 ; //APD= 0.1875/0.1271 * 0.018 (PIN)
	83	fLightYieldAttenuation = 0.0045 ;
	84	fRecalibrationFactor = 13.418/ fLightYieldMean ;
	85	fElectronsPerGeV = 2.77e+8 ;
	86	fAPDGain= 300. ;
	87	}
	88
	89	// //____________________________________________________________________________
	90	// AliPHOSv3::AliPHOSv3(AliPHOSReconstructioner * Reconstructioner, const char name, const char title):
	91	// AliPHOSv1(Reconstructioner,name,title)
	92	// {
	93	// // ctor
	94
	95	// // Number of electrons created in the PIN due to light collected in the PbWo4 crystal is calculated using
	96	// // following formula
	97	// // NumberOfElectrons = EnergyLost * LightYield * PINEfficiency *
	98	// // exp (-LightYieldAttenuation * DistanceToPINdiodeFromTheHit) *
	99	// // RecalibrationFactor ;
	100	// // LightYield is obtained as a Poissonian distribution with a mean at 700000 photons per GeV fromValery Antonenko
	101	// // PINEfficiency is 0.1875
	102	// // k_0 is 0.0045 from Valery Antonenko
	103
	104	// fLightYieldMean = 700000.;
	105	// fIntrinsicPINEfficiency = 0.1875 ;
	106	// fLightYieldAttenuation = 0.0045 ;
	107	// fRecalibrationFactor = 6.2 / fLightYieldMean ;
	108	// fRecalibrationFactor = 5.67 /fLightYieldMean ;//25.04.2001 OHO
	109	// fElectronsPerGeV = 2.77e+8 ;
	110	// }
	111	//____________________________________________________________________________
	112
	113	void AliPHOSv3::StepManager(void)
	114	{
	115	// Accumulates hits as long as the track stays in a single crystal or PPSD gas Cell
	116
	117	// if (gMC->IsTrackEntering())
	118	// Info("StepManager", "Track enters the volume %d", gMC->CurrentVolName()) ;
	119	// if (gMC->IsTrackExiting())
	120	// Info("StepManager", "Track leaves the volume %d", gMC->CurrentVolName()) ;
	121
	122	Int_t relid[4] ; // (box, layer, row, column) indices
	123	Int_t absid ; // absolute cell ID number
	124	Float_t xyze[4]={0,0,0,0} ; // position wrt MRS and energy deposited
	125
	126	TLorentzVector pos ; // Lorentz vector of the track current position
	127	Int_t copy ;
	128	Float_t fLightYield ; // Light Yield per GeV
	129
	130	Int_t tracknumber = gAlice->CurrentTrack() ;
	131	Int_t primary = gAlice->GetPrimary( gAlice->CurrentTrack() );
	132	TString name = GetGeometry()->GetName() ;
	133	Float_t lostenergy ;
	134	Float_t global[3] ;
	135	Float_t local[3] ;
	136
	137
	138	if ( name == "GPS2" \|\| name == "MIXT" ) { // ======> CPV is a GPS' PPSD
	139
	140	if( gMC->CurrentVolID(copy) == gMC->VolId("PPCE") ) // We are inside a gas cell
	141	{
	142	gMC->TrackPosition(pos) ;
	143	xyze[0] = pos[0] ;
	144	xyze[1] = pos[1] ;
	145	xyze[2] = pos[2] ;
	146	xyze[3] = gMC->Edep() ;
	147
	148	if ( xyze[3] != 0) { // there is deposited energy
	149	gMC->CurrentVolOffID(5, relid[0]) ; // get the PHOS Module number
	150	if ( name == "MIXT" && strcmp(gMC->CurrentVolOffName(5),"PHO1") == 0 ){
	151	relid[0] += GetGeometry()->GetNModules() - GetGeometry()->GetNPPSDModules();
	152	}
	153	gMC->CurrentVolOffID(3, relid[1]) ; // get the Micromegas Module number
	154	// 1-> GetGeometry()->GetNumberOfModulesPhi() * GetGeometry()->GetNumberOfModulesZ() upper
	155	// > GetGeometry()->GetNumberOfModulesPhi() * GetGeometry()->GetNumberOfModulesZ() lower
	156	gMC->CurrentVolOffID(1, relid[2]) ; // get the row number of the cell
	157	gMC->CurrentVolID(relid[3]) ; // get the column number
	158
	159	// get the absolute Id number
	160
	161	GetGeometry()->RelToAbsNumbering(relid, absid) ;
	162
	163	// add current hit to the hit list
	164	AddHit(fIshunt, primary, tracknumber, absid, xyze);
	165
	166
	167	} // there is deposited energy
	168	} // We are inside the gas of the CPV
	169	} // GPS2 configuration
	170
	171	if ( name == "IHEP" \|\| name == "MIXT" ) { // ======> CPV is a IHEP's one
	172
	173	// Yuri Kharlov, 28 September 2000
	174
	175	if( gMC->CurrentVolID(copy) == gMC->VolId("PCPQ") &&
	176	gMC->IsTrackEntering() &&
	177	gMC->TrackCharge() != 0) {
	178
	179	gMC -> TrackPosition(pos);
	180	Float_t xyzm[3], xyzd[3] ;
	181	Int_t i;
	182	for (i=0; i<3; i++) xyzm[i] = pos[i];
	183	gMC -> Gmtod (xyzm, xyzd, 1); // transform coordinate from master to daughter system
	184
	185	Float_t xyd[3]={0,0,0} ; //local posiiton of the entering
	186	xyd[0] = xyzd[0];
	187	xyd[1] =-xyzd[1];
	188	xyd[2] =-xyzd[2];
	189
	190
	191	// Current momentum of the hit's track in the local ref. system
	192	TLorentzVector pmom ; //momentum of the particle initiated hit
	193	gMC -> TrackMomentum(pmom);
	194	Float_t pm[3], pd[3];
	195	for (i=0; i<3; i++) pm[i] = pmom[i];
	196	gMC -> Gmtod (pm, pd, 2); // transform 3-momentum from master to daughter system
	197	pmom[0] = pd[0];
	198	pmom[1] =-pd[1];
	199	pmom[2] =-pd[2];
	200
	201	// Digitize the current CPV hit:
	202
	203	// 1. find pad response and
	204
	205	Int_t moduleNumber;
	206	gMC->CurrentVolOffID(3,moduleNumber);
	207	moduleNumber--;
	208
	209
	210	TClonesArray *cpvDigits = new TClonesArray("AliPHOSCPVDigit",0); // array of digits for current hit
	211	CPVDigitize(pmom,xyd,moduleNumber,cpvDigits);
	212
	213	Float_t xmean = 0;
	214	Float_t zmean = 0;
	215	Float_t qsum = 0;
	216	Int_t idigit,ndigits;
	217
	218	// 2. go through the current digit list and sum digits in pads
	219
	220	ndigits = cpvDigits->GetEntriesFast();
	221	for (idigit=0; idigit<ndigits-1; idigit++) {
	222	AliPHOSCPVDigit cpvDigit1 = dynamic_cast<AliPHOSCPVDigit>(cpvDigits->UncheckedAt(idigit));
	223	Float_t x1 = cpvDigit1->GetXpad() ;
	224	Float_t z1 = cpvDigit1->GetYpad() ;
	225	for (Int_t jdigit=idigit+1; jdigit<ndigits; jdigit++) {
	226	AliPHOSCPVDigit cpvDigit2 = dynamic_cast<AliPHOSCPVDigit>(cpvDigits->UncheckedAt(jdigit));
	227	Float_t x2 = cpvDigit2->GetXpad() ;
	228	Float_t z2 = cpvDigit2->GetYpad() ;
	229	if (x1==x2 && z1==z2) {
	230	Float_t qsum = cpvDigit1->GetQpad() + cpvDigit2->GetQpad() ;
	231	cpvDigit2->SetQpad(qsum) ;
	232	cpvDigits->RemoveAt(idigit) ;
	233	}
	234	}
	235	}
	236	cpvDigits->Compress() ;
	237
	238	// 3. add digits to temporary hit list fTmpHits
	239
	240	ndigits = cpvDigits->GetEntriesFast();
	241	for (idigit=0; idigit<ndigits; idigit++) {
	242	AliPHOSCPVDigit cpvDigit = dynamic_cast<AliPHOSCPVDigit>(cpvDigits->UncheckedAt(idigit));
	243	relid[0] = moduleNumber + 1 ; // CPV (or PHOS) module number
	244	relid[1] =-1 ; // means CPV
	245	relid[2] = cpvDigit->GetXpad() ; // column number of a pad
	246	relid[3] = cpvDigit->GetYpad() ; // row number of a pad
	247
	248	// get the absolute Id number
	249	GetGeometry()->RelToAbsNumbering(relid, absid) ;
	250
	251	// add current digit to the temporary hit list
	252	xyze[0] = 0. ;
	253	xyze[1] = 0. ;
	254	xyze[2] = 0. ;
	255	xyze[3] = cpvDigit->GetQpad() ; // amplitude in a pad
	256	primary = -1; // No need in primary for CPV
	257	AddHit(fIshunt, primary, tracknumber, absid, xyze);
	258
	259	if (cpvDigit->GetQpad() > 0.02) {
	260	xmean += cpvDigit->GetQpad() * (cpvDigit->GetXpad() + 0.5);
	261	zmean += cpvDigit->GetQpad() * (cpvDigit->GetYpad() + 0.5);
	262	qsum += cpvDigit->GetQpad();
	263	}
	264	}
	265	delete cpvDigits;
	266	}
	267	} // end of IHEP configuration
	268
	269
	270	if(gMC->CurrentVolID(copy)==gMC->VolId("PXTL")){// We are inside a PBWO4 crystal
	271	gMC->TrackPosition(pos) ;
	272	xyze[0] = pos[0] ;
	273	xyze[1] = pos[1] ;
	274	xyze[2] = pos[2] ;
	275	global[0] = pos[0] ;
	276	global[1] = pos[1] ;
	277	global[2] = pos[2] ;
	278	lostenergy = gMC->Edep();
	279	xyze[3] = gMC->Edep() ;
	280
	281
	282	if ( (xyze[3] != 0) ){//Track is inside the crystal and deposits some energy
	283
	284	gMC->CurrentVolOffID(10, relid[0]) ; // get the PHOS module number ;
	285
	286	if ( name == "MIXT" && strcmp(gMC->CurrentVolOffName(10),"PHO1") == 0 )
	287	relid[0] += GetGeometry()->GetNModules() - GetGeometry()->GetNPPSDModules();
	288
	289	relid[1] = 0 ; // means PBW04
	290	gMC->CurrentVolOffID(4, relid[2]) ; // get the row number inside the module
	291	gMC->CurrentVolOffID(3, relid[3]) ; // get the cell number inside the module
	292
	293	// get the absolute Id number
	294
	295	GetGeometry()->RelToAbsNumbering(relid, absid) ;
	296
	297	gMC->Gmtod(global, local, 1) ;
	298
	299	//Calculates the light yield, the number of photns produced in the
	300	//crystal
	301	fLightYield = gRandom->Poisson(
	302	fLightYieldMean * lostenergy *
	303	fIntrinsicPINEfficiency *
	304	exp(-fLightYieldAttenuation *
	305	(local[1]+GetGeometry()->GetCrystalSize(1)/2.0 ))
	306	) ;
	307	//Calculates de energy deposited in the crystal
	308	xyze[3] = (fRecalibrationFactor/100.) * fAPDGain * fLightYield ;
	309
	310
	311	// Info("StepManager", "xyze[3]: %f", xyze[3]) ;
	312	// Info("StepManager", "lostenergy: %f", lostenergy) ;
	313
	314
	315
	316
	317	// add current hit to the hit list
	318
	319
	320	if (xyze[3] != 0.) AddHit(fIshunt, primary,tracknumber, absid, xyze);
	321
	322
	323	} // there is deposited energy
	324	} // we are inside a PHOS Xtal
	325
	326	// if(gMC->CurrentVolID(copy) == gMC->VolId("PPIN"))//We are inside the PIN diode
	327	// {
	328	// Info("StepManager", "Inside PIN";
	329	// gMC->TrackPosition(pos) ;
	330	// global[0] = pos[0] ;
	331	// global[1] = pos[1] ;
	332	// global[2] = pos[2] ;
	333	// xyze[0] = pos[0] ;
	334	// xyze[1] = pos[1] ;
	335	// xyze[2] = pos[2] ;
	336	// lostenergy = gMC->Edep() ;
	337	// xyze[3] = gMC->Edep() ;
	338
	339	// if ( xyze[3] != 0 ) {
	340	// gMC->CurrentVolOffID(11, relid[0]) ; // get the PHOS module number ;
	341	// relid[1] = 0 ; // means PW04 and PIN
	342	// gMC->CurrentVolOffID(5, relid[2]) ; // get the row number inside the module
	343	// gMC->CurrentVolOffID(4, relid[3]) ; // get the cell number inside the module
	344
	345	// // get the absolute Id number
	346
	347	// Int_t absid ;
	348	// GetGeometry()->RelToAbsNumbering(relid,absid) ;
	349	// gMC->Gmtod(global, local, 1) ;
	350
	351	// // calculating number of electrons in the PIN diode asociated to this hit
	352
	353	// //nElectrons = lostenergy * fElectronsPerGeV ;
	354	// // xyze[3] = nElectrons * fRecalibrationFactor ;
	355	// apdgain = gRandom->Poisson(300.) ;
	356	// // apdgain = 300.;
	357	// //if(local[1]<-0.0045) xyze[3] = apdgain * nElectrons * fRecalibrationFactor/10000.;
	358
	359	// if(local[1]<-0.0045) xyze[3] = apdgain * lostenergy * fElectronsPerGeV* (fRecalibrationFactor/100.);
	360
	361	// //if((local[1]>-0.0045)&&(gMC->TrackPid()==-11)) xyze[3] = apdgain * nElectrons * fRecalibrationFactor/10000.;
	362
	363	// if((local[1]>-0.0045)&&(gMC->TrackPid()==-11)) xyze[3] = apdgain * lostenergy * fElectronsPerGeV * (fRecalibrationFactor/100.);
	364
	365	// //if(local[1]>-0.0045) xyze[3] = nElectrons * fRecalibrationFactor/10000.;
	366
	367	// if(local[1]>-0.0045) xyze[3] = lostenergy * fElectronsPerGeV * (fRecalibrationFactor/100.);
	368
	369	// // add current hit to the hit list
	370
	371	// AddHit(fIshunt, primary, tracknumber, absid, xyze);
	372
	373	// //printf("PIN volume is %d, %d, %d, %d \n",relid[0],relid[1],relid[2],relid[3]);
	374	// printf("Lost energy in the PIN is %f \n",lostenergy) ;
	375	// } // there is deposited energy
	376	// } // we are inside a PHOS XtalPHOS PIN diode
	377	}