/**************************************************************************
 * 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$ */

///////////////////////////////////////////////////////////////////////////////
//                                                                           //
//  			ZDC digitizer class                                  //
//                                                                           //
///////////////////////////////////////////////////////////////////////////////

// --- Standard libraries
#include <stdlib.h>
#include <stdio.h>

// --- ROOT system
#include <TTree.h>
#include <TFile.h>
#include <TNtuple.h>
#include <TRandom.h>

// --- AliRoot header files
#include "AliRun.h"
#include "AliHeader.h"
#include "AliGenHijingEventHeader.h"
#include "AliGenCocktailEventHeader.h"
#include "AliDigitizationInput.h"
#include "AliRunLoader.h"
#include "AliLoader.h"
#include "AliGRPObject.h"
#include "AliCDBManager.h"
#include "AliCDBEntry.h"
#include "AliZDCSDigit.h"
#include "AliZDCDigit.h"
#include "AliZDCFragment.h"
#include "AliZDCv3.h"
#include "AliZDCDigitizer.h"

class AliCDBStorage;
class AliZDCPedestals;

ClassImp(AliZDCDigitizer)


//____________________________________________________________________________
AliZDCDigitizer::AliZDCDigitizer() :
  fIsCalibration(0), 
  fIsSignalInADCGate(kFALSE),
  fFracLostSignal(0.),
  fPedData(0), 
  fSpectators2Track(kFALSE),
  fBeamEnergy(0.),
  fBeamType(""),
  fIspASystem(kFALSE),
  fIsRELDISgen(kFALSE),
  fSpectatorData(0)
{
  // Default constructor    
  for(Int_t i=0; i<2; i++) fADCRes[i]=0.;
}

//____________________________________________________________________________
AliZDCDigitizer::AliZDCDigitizer(AliDigitizationInput* digInput):
  AliDigitizer(digInput),
  fIsCalibration(0), //By default the simulation doesn't create calib. data
  fIsSignalInADCGate(kFALSE),
  fFracLostSignal(0.),
  fPedData(GetPedData()), 
  fSpectators2Track(kFALSE),
  fBeamEnergy(0.),
  fBeamType(""),
  fIspASystem(kFALSE),
  fIsRELDISgen(kFALSE),
  fSpectatorData(NULL)
{
  // Get calibration data
  if(fIsCalibration!=0) printf("\n\t AliZDCDigitizer -> Creating calibration data (pedestals)\n");
  for(Int_t i=0; i<5; i++){
    for(Int_t j=0; j<5; j++)
       fPMGain[i][j] = 0.;
  }
}

//____________________________________________________________________________
AliZDCDigitizer::~AliZDCDigitizer()
{
// Destructor
   if(fSpectatorData!=NULL){
      fSpectatorData->Close();
      delete fSpectatorData;
   } 
}


//____________________________________________________________________________
AliZDCDigitizer::AliZDCDigitizer(const AliZDCDigitizer &digitizer):
  AliDigitizer(),
  fIsCalibration(digitizer.fIsCalibration),
  fIsSignalInADCGate(digitizer.fIsSignalInADCGate),
  fFracLostSignal(digitizer.fFracLostSignal),
  fPedData(digitizer.fPedData),
  fSpectators2Track(digitizer.fSpectators2Track),
  fBeamEnergy(digitizer.fBeamEnergy),
  fBeamType(digitizer.fBeamType),
  fIspASystem(digitizer.fIspASystem),
  fIsRELDISgen(digitizer.fIsRELDISgen),
  fSpectatorData(digitizer.fSpectatorData)
{
  // Copy constructor

  for(Int_t i=0; i<5; i++){
     for(Int_t j=0; j<5; j++){
        fPMGain[i][j]   = digitizer.fPMGain[i][j];           
     }
  }
  for(Int_t i=0; i<2; i++) fADCRes[i] = digitizer.fADCRes[i];


}

//____________________________________________________________________________
Bool_t AliZDCDigitizer::Init()
{
  // Initialize the digitizer
  
  
  //printf(" **** Initializing AliZDCDigitizer fBeamEnergy = %1.0f GeV\n\n", fBeamEnergy);
  AliCDBEntry*  entry = AliCDBManager::Instance()->Get("GRP/GRP/Data");
  if(!entry) AliFatal("No calibration data loaded!");  
  AliGRPObject* grpData = 0x0;
  if(entry){
    TMap* m = dynamic_cast<TMap*>(entry->GetObject());  // old GRP entry
    if(m){
      //m->Print();
      grpData = new AliGRPObject();
      grpData->ReadValuesFromMap(m);
    }
    else{
      grpData = dynamic_cast<AliGRPObject*>(entry->GetObject());  // new GRP entry
    }
    entry->SetOwner(0);
    AliCDBManager::Instance()->UnloadFromCache("GRP/GRP/Data");
  }
  if(!grpData){
    AliError("No GRP entry found in OCDB! \n ");
    return kFALSE;
  }
  
  fBeamType = grpData->GetBeamType();
  if(fBeamType==AliGRPObject::GetInvalidString()){
    AliError("\t UNKNOWN beam type from GRP obj -> PMT gains not set in ZDC digitizer!!!\n");
  }
  
  // If beam energy is not set from Config.C (RELDIS / spectator generators)
  if(fBeamEnergy<0.01){
    fBeamEnergy = grpData->GetBeamEnergy();
    if(fBeamEnergy==AliGRPObject::GetInvalidFloat()){
      AliWarning("GRP/GRP/Data entry:  missing value for the beam energy ! Using 0.");
      AliError("\t UNKNOWN beam type from GRP obj -> PMT gains not set in ZDC digitizer!!!\n");
      fBeamEnergy = 0.;
    }
  }
  
  /*if(fIspASystem){
    fBeamType = "p-A";
    AliInfo(" AliZDCDigitizer -> Manually setting beam type to p-A\n");
  }*/
  
  // Setting beam type for spectator generator and RELDIS generator
  if(((fBeamType.CompareTo("UNKNOWN")) == 0) || fIsRELDISgen){
     fBeamType = "A-A";
     AliInfo(" AliZDCDigitizer -> Manually setting beam type to A-A\n");
  }    
  printf("\n\t  AliZDCDigitizer ->  beam type %s  - beam energy = %f GeV\n", fBeamType.Data(), fBeamEnergy);
  if(fSpectators2Track) printf("\n\t  AliZDCDigitizer ->  spectator signal added at digit level\n\n");
  
  if(fBeamEnergy>0.1){
    ReadPMTGains();
    //CalculatePMTGains();
  }
  else{
    AliWarning("\n Beam energy is 0 -> ZDC PMT gains can't be set -> NO ZDC DIGITS!!!\n");
  }
  
  // ADC Caen V965
  fADCRes[0] = 0.0000008; // ADC Resolution high gain: 200 fC/adcCh
  fADCRes[1] = 0.0000064; // ADC Resolution low gain:  25  fC/adcCh

  return kTRUE;
}

//____________________________________________________________________________
void AliZDCDigitizer::Digitize(Option_t* /*option*/)
{
  // Execute digitization

  // ------------------------------------------------------------
  // !!! 2nd ZDC set added 
  // *** 1st 3 arrays are digits from REAL (simulated) hits
  // *** last 2 are copied from simulated digits
  // --- pm[0][...] = light in ZN side C  [C, Q1, Q2, Q3, Q4]
  // --- pm[1][...] = light in ZP side C [C, Q1, Q2, Q3, Q4]
  // --- pm[2][...] = light in ZEM [x, 1, 2, x, x]
  // --- pm[3][...] = light in ZN side A [C, Q1, Q2, Q3, Q4] ->NEW!
  // --- pm[4][...] = light in ZP side A [C, Q1, Q2, Q3, Q4] ->NEW!
  // ------------------------------------------------------------
  Float_t pm[5][5]; 
  for(Int_t iSector1=0; iSector1<5; iSector1++) 
    for(Int_t iSector2=0; iSector2<5; iSector2++){
      pm[iSector1][iSector2] = 0;
    }
    
  // ------------------------------------------------------------
  // ### Out of time ADC added (22 channels)
  // --- same codification as for signal PTMs (see above)
  // ------------------------------------------------------------
  // Float_t pmoot[5][5];
  // for(Int_t iSector1=0; iSector1<5; iSector1++) 
  //   for(Int_t iSector2=0; iSector2<5; iSector2++){
  //     pmoot[iSector1][iSector2] = 0;
  //   }

  // impact parameter and number of spectators
  Float_t impPar = 0;
  Int_t specNTarg = 0, specPTarg = 0;
  Int_t specNProj = 0, specPProj = 0;
  Float_t signalTime0 = 0.;

  // loop over input streams
  for(Int_t iInput = 0; iInput<fDigInput->GetNinputs(); iInput++){

    // get run loader and ZDC loader
    AliRunLoader* runLoader = 
      AliRunLoader::GetRunLoader(fDigInput->GetInputFolderName(iInput));
    AliLoader* loader = runLoader->GetLoader("ZDCLoader");
    if(!loader) continue;

    // load sdigits
    loader->LoadSDigits();
    TTree* treeS = loader->TreeS();
    if(!treeS) continue;
    AliZDCSDigit sdigit;
    AliZDCSDigit* psdigit = &sdigit;
    treeS->SetBranchAddress("ZDC", &psdigit);

    // loop over sdigits
    for(Int_t iSDigit=0; iSDigit<treeS->GetEntries(); iSDigit++){
      treeS->GetEntry(iSDigit);
      //
      if(!psdigit) continue;
      if((sdigit.GetSector(1) < 0) || (sdigit.GetSector(1) > 4)){
	AliError(Form("\nsector[0] = %d, sector[1] = %d\n", 
                      sdigit.GetSector(0), sdigit.GetSector(1)));
	continue;
      }
      // Checking if signal is inside ADC gate
      if(iSDigit==0) signalTime0 = sdigit.GetTrackTime();
      else{
        // Assuming a signal lenght of 20 ns, signal is in gate if 
	// signal ENDS in signalTime0+50. -> sdigit.GetTrackTime()+20<=signalTime0+50.
        if(sdigit.GetTrackTime()<=signalTime0+30.) fIsSignalInADCGate = kTRUE;
        if(sdigit.GetTrackTime()>signalTime0+30.){
	  fIsSignalInADCGate = kFALSE;
	  // Vedi quaderno per spiegazione approx. usata nel calcolo della fraz. di segnale perso
	  fFracLostSignal = (sdigit.GetTrackTime()-30)*(sdigit.GetTrackTime()-30)/280.;
	}
      }
      
      Float_t sdSignal = sdigit.GetLightPM();
      if(fIsSignalInADCGate == kFALSE){
        AliDebug(2,Form("\t Signal time %f -> fraction %f of ZDC signal for det.(%d, %d) out of ADC gate\n",
		sdigit.GetTrackTime(),fFracLostSignal,sdigit.GetSector(0),sdigit.GetSector(1)));
	sdSignal = (1-fFracLostSignal)*sdSignal;
      }
      
      pm[(sdigit.GetSector(0))-1][sdigit.GetSector(1)] += sdigit.GetLightPM();
      //Ch. debug
      /*printf("\t Detector %d, Tower %d -> pm[%d][%d] = %.0f \n",
      	  sdigit.GetSector(0), sdigit.GetSector(1),sdigit.GetSector(0)-1,
      	  sdigit.GetSector(1), pm[sdigit.GetSector(0)-1][sdigit.GetSector(1)]); 
      */
      
    }

    loader->UnloadSDigits();

    // get the impact parameter and the number of spectators in case of hijing
    if(!runLoader->GetAliRun()) runLoader->LoadgAlice();
    AliHeader* header = runLoader->GetHeader();
    if(!header) continue;
    AliGenEventHeader* genHeader = header->GenEventHeader();
    if(!genHeader) continue;
    AliGenHijingEventHeader *hijingHeader = 0;
    if(genHeader->InheritsFrom(AliGenHijingEventHeader::Class())) hijingHeader = dynamic_cast <AliGenHijingEventHeader*> (genHeader);
    else if(genHeader->InheritsFrom(AliGenCocktailEventHeader::Class())){
      TList* listOfHeaders = ((AliGenCocktailEventHeader*) genHeader)->GetHeaders();
      if(listOfHeaders){ 
	for(Int_t iH = 0; iH < listOfHeaders->GetEntries(); ++iH) {
	  AliGenEventHeader *currHeader = dynamic_cast <AliGenEventHeader *> (listOfHeaders->At(iH));
	  if (currHeader && currHeader->InheritsFrom(AliGenHijingEventHeader::Class())) {
	    hijingHeader = dynamic_cast <AliGenHijingEventHeader*> (currHeader);
	    break;
	  }
	}
      }
      else{
        printf(" No list of headers from generator \n");
      }
    }
    if(!hijingHeader){ 
        printf(" No HIJING header found in list of headers from generator\n");
    }
    
    if(hijingHeader && fSpectators2Track==kTRUE){
      impPar = hijingHeader->ImpactParameter();
      specNProj = hijingHeader->ProjSpectatorsn();
      specPProj = hijingHeader->ProjSpectatorsp();
      specNTarg = hijingHeader->TargSpectatorsn();
      specPTarg = hijingHeader->TargSpectatorsp();
      /*printf("\t AliZDCDigitizer: b = %1.2f fm\n"
      " \t    PROJECTILE:  #spectator n %d, #spectator p %d\n"
      " \t    TARGET:  #spectator n %d, #spectator p %d\n", 
      impPar, specNProj, specPProj, specNTarg, specPTarg);*/
    
      // Applying fragmentation algorithm and adding spectator signal
      Int_t freeSpecNProj=0, freeSpecPProj=0;
      if(specNProj!=0 || specPProj!=0) Fragmentation(impPar, specNProj, specPProj, freeSpecNProj, freeSpecPProj);
      Int_t freeSpecNTarg=0, freeSpecPTarg=0;
      if(specNTarg!=0 || specPTarg!=0) Fragmentation(impPar, specNTarg, specPTarg, freeSpecNTarg, freeSpecPTarg);
      if(freeSpecNProj!=0) SpectatorSignal(1, freeSpecNProj, pm);
      if(freeSpecPProj!=0) SpectatorSignal(2, freeSpecPProj, pm);
      //printf("\t AliZDCDigitizer -> Adding spectator signal for PROJECTILE: %d free  n and %d free p\n",freeSpecNProj,freeSpecPProj);
      if(freeSpecNTarg!=0) SpectatorSignal(3, freeSpecNTarg, pm);
      if(freeSpecPTarg!=0) SpectatorSignal(4, freeSpecPTarg, pm);
      //printf("\t AliZDCDigitizer -> Adding spectator signal for TARGET: %d free  n and %d free p\n",freeSpecNTarg,freeSpecPTarg);
    }
  }


  // get the output run loader and loader
  AliRunLoader* runLoader = 
    AliRunLoader::GetRunLoader(fDigInput->GetOutputFolderName());
  AliLoader* loader = runLoader->GetLoader("ZDCLoader");
  if(!loader) {
    AliError("no ZDC loader found");
    return;
  }

  // create the output tree
  const char* mode = "update";
  if(runLoader->GetEventNumber() == 0) mode = "recreate";
  loader->LoadDigits(mode);
  loader->MakeTree("D");
  TTree* treeD = loader->TreeD();
  AliZDCDigit digit;
  AliZDCDigit* pdigit = &digit;
  const Int_t kBufferSize = 4000;
  treeD->Branch("ZDC", "AliZDCDigit", &pdigit, kBufferSize);

  // Create digits
  Int_t sector[2];
  Int_t digi[2], digioot[2];
  for(sector[0]=1; sector[0]<6; sector[0]++){
    for(sector[1]=0; sector[1]<5; sector[1]++){
        if((sector[0]==3) && ((sector[1]<1) || (sector[1]>2))) continue;
        for(Int_t res=0; res<2; res++){
           digi[res] = Phe2ADCch(sector[0], sector[1], pm[sector[0]-1][sector[1]], res) 
	            + Pedestal(sector[0], sector[1], res);
      	}
	new(pdigit) AliZDCDigit(sector, digi);
        treeD->Fill();

	//Ch. debug
	//printf("\t DIGIT added -> det %d quad %d - digi[0,1] = [%d, %d]\n",
	  //   sector[0], sector[1], digi[0], digi[1]); // Chiara debugging!
	
    }
  } // Loop over detector
  // Adding in-time digits for 2 reference PTM signals (after signal ch.)
  // (for the moment the ref. signal is completely invented assuming a PMgain of 5*10^4!)
  Int_t sectorRef[2];
  sectorRef[1] = 5;
  Int_t sigRef[2];
  // Reference signal are set to 100 (high gain chain) and 800 (low gain chain)
  if(fIsCalibration==0) {sigRef[0]=100;  sigRef[1]=800;}
  else {sigRef[0]=0;  sigRef[1]=0;} // calibration -> simulation of pedestal values
  //
  for(Int_t iref=0; iref<2; iref++){
     sectorRef[0] = 3*iref+1;
     for(Int_t res=0; res<2; res++){
       sigRef[res] += Pedestal(sectorRef[0], sectorRef[1], res);
     }
     new(pdigit) AliZDCDigit(sectorRef, sigRef);
     treeD->Fill();     
     
     //Ch. debug
     //printf("\t RefDigit added -> det = %d, quad = %d - digi[0,1] = [%d, %d]\n",
     //    sectorRef[0], sectorRef[1], sigRef[0], sigRef[1]); // Chiara debugging!     
  }
  //
  // --- Adding digits for out-of-time channels after signal digits
  for(sector[0]=1; sector[0]<6; sector[0]++){
    for(sector[1]=0; sector[1]<5; sector[1]++){
        if((sector[0]==3) && ((sector[1]<1) || (sector[1]>2))) continue;
        for(Int_t res=0; res<2; res++){
           digioot[res] = Pedestal(sector[0], sector[1], res); // out-of-time ADCs
      	}
	new(pdigit) AliZDCDigit(sector, digioot);
        treeD->Fill();

        //Ch. debug
	//printf("\t DIGIToot added -> det = %d, quad = %d - digi[0,1] = [%d, %d]\n",
	//     sector[0], sector[1], digioot[0], digioot[1]); // Chiara debugging!	
    }
  }
  // Adding out-of-time digits for 2 reference PTM signals (after out-of-time ch.)
  Int_t sigRefoot[2];
  for(Int_t iref=0; iref<2; iref++){
     sectorRef[0] = 3*iref+1;
     for(Int_t res=0; res<2; res++){
       sigRefoot[res] = Pedestal(sectorRef[0], sectorRef[1], res);
     }
     new(pdigit) AliZDCDigit(sectorRef, sigRefoot);
     treeD->Fill();
     //Ch. debug
     //printf("\t RefDigitoot added -> det = %d, quad = %d - digi[0,1] = [%d, %d]\n",
     //    sectorRef[0], sectorRef[1], sigRefoot[0], sigRefoot[1]); // Chiara debugging!
     
  }
  //printf("\t AliZDCDigitizer -> TreeD has %d entries\n",(Int_t) treeD->GetEntries());

  // write the output tree
  loader->WriteDigits("OVERWRITE");
  loader->UnloadDigits();
}


//_____________________________________________________________________________
void AliZDCDigitizer::ReadPMTGains()
{
// Read PMT gain from an external file

  char *fname = gSystem->ExpandPathName("$ALICE_ROOT/ZDC/PMTGainsdata.txt");
  FILE *fdata = fopen(fname,"r");
  if(fdata==NULL){
     AliWarning(" Can't open file $ALICE_ROOT/ZDC/PMTGainsdata.txt to read ZDC PMT Gains\n");
     AliWarning("  -> ZDC signal will be pedestal!!!!!!!!!!!!\n\n");
     return;
  }
  int read=1;
  Float_t data[5];
  Int_t beam[12], det[12];
  Float_t gain[12], aEne[12], bEne[12];
  for(int ir=0; ir<12; ir++){
    for(int ic=0; ic<5; ic++){
       read = fscanf(fdata,"%f ",&data[ic]);
       if(read==0) AliDebug(3, " Error in reading PMT gains from external file ");
    }
    beam[ir] = (int) (data[0]);
    det[ir]  = (int) (data[1]);
    gain[ir] = data[2];
    aEne[ir] = data[3];
    bEne[ir] = data[4];
  }
  fclose(fdata);
  
  if(((fBeamType.CompareTo("P-P")) == 0) || ((fBeamType.CompareTo("p-p")) == 0)){
    for(int i=0; i<12; i++){
      if(beam[i]==0 && fBeamEnergy!=0.){
        if(det[i]!=31 && det[i]!=32){
	  for(Int_t j=0; j<5; j++) fPMGain[det[i]-1][j] = gain[i]*(aEne[i]/fBeamEnergy+bEne[i]);
	}
        else if(det[i] == 31) fPMGain[2][1] = gain[i]*(aEne[i]-fBeamEnergy*bEne[i]);
	else if(det[i] == 32) fPMGain[2][2] = gain[i]*(aEne[i]-fBeamEnergy*bEne[i]);
      }
    }
    //
    printf("\n    AliZDCDigitizer::ReadPMTGains -> ZDC PMT gains for p-p @ %1.0f+%1.0f GeV: ZNC(%1.0f), ZPC(%1.0f), ZEM(%1.0f), ZNA(%1.0f) ZPA(%1.0f)\n",
      	fBeamEnergy, fBeamEnergy, fPMGain[0][0], fPMGain[1][0], fPMGain[2][1], fPMGain[3][0], fPMGain[4][0]);     
  }
  else if(((fBeamType.CompareTo("A-A")) == 0)){
    for(int i=0; i<12; i++){
      if(beam[i]==1){
        Float_t scalGainFactor = fBeamEnergy/2760.;
        if(det[i]!=31 && det[i]!=32){
	  for(Int_t j=0; j<5; j++) fPMGain[det[i]-1][j] = gain[i]/(aEne[i]*scalGainFactor);
	}
        else{
	  for(int iq=1; iq<3; iq++) fPMGain[2][iq] = gain[i]/(aEne[i]*scalGainFactor);
	}
      }
     }  
     //
     printf("\n    AliZDCDigitizer::ReadPMTGains -> ZDC PMT gains for Pb-Pb @ %1.0f+%1.0f A GeV: ZN(%1.0f), ZP(%1.0f), ZEM(%1.0f)\n",
      	fBeamEnergy, fBeamEnergy, fPMGain[0][0], fPMGain[1][0], fPMGain[2][1]);
  }
  else if(((fBeamType.CompareTo("p-A")) == 0) || ((fBeamType.CompareTo("P-A")) == 0)){
    for(int i=0; i<12; i++){
      if(beam[i]==0 && fBeamEnergy!=0.){
        if(det[i]==1 || det[i]==2){ // Setting ZNC/ZPC gains as for p-p
	  for(Int_t j=0; j<5; j++) fPMGain[det[i]-1][j] = gain[i]*(aEne[i]/fBeamEnergy+bEne[i]);
	}
      }
      if(beam[i]==1){
        Float_t scalGainFactor = fBeamEnergy/2760.;
	Float_t npartScalingFactor = 208./15.;
        if(det[i]==4 || det[i]==5){ // Setting ZNA/ZPA gains as for Pb-Pb
	  for(Int_t j=0; j<5; j++) fPMGain[det[i]-1][j] = npartScalingFactor*gain[i]/(aEne[i]*scalGainFactor);
	}
        else if(det[i]==31 || det[i]==32){ // Setting ZEM gains as for Pb-Pb
	  for(int iq=1; iq<3; iq++) fPMGain[2][iq] = npartScalingFactor*gain[i]/(aEne[i]*scalGainFactor);
	}
      }
    }
    printf("\n    AliZDCDigitizer::ReadPMTGains -> ZDC PMT gains for p-Pb: ZNC(%1.0f), ZPC(%1.0f), ZEM(%1.0f), ZNA(%1.0f) ZPA(%1.0f)\n",
      	fPMGain[0][0], fPMGain[1][0], fPMGain[2][1], fPMGain[3][0], fPMGain[4][0]);
  }
  else if(((fBeamType.CompareTo("A-p")) == 0) || ((fBeamType.CompareTo("A-P")) == 0)){
    for(int i=0; i<12; i++){
      if(beam[i]==0 && fBeamEnergy!=0.){ // Setting ZNA/ZPA gains as for p-p
        if(det[i]==4 || det[i]==5){
	  for(Int_t j=0; j<5; j++) fPMGain[det[i]-1][j] = gain[i]*(aEne[i]/fBeamEnergy+bEne[i]);
	}
        // Setting ZEM gains as for p-p
        else if(det[i] == 31) fPMGain[2][1] = gain[i]*(aEne[i]-fBeamEnergy*bEne[i]);
	else if(det[i] == 32) fPMGain[2][2] = gain[i]*(aEne[i]-fBeamEnergy*bEne[i]);
      }
      if(beam[i]==1){
        Float_t scalGainFactor = fBeamEnergy/2760.;
	Float_t npartScalingFactor = 208./15.;
        if(det[i]==1 || det[i]==2){ // Setting ZNC/ZPC gains as for Pb-Pb
	  for(Int_t j=0; j<5; j++) fPMGain[det[i]-1][j] = npartScalingFactor*gain[i]/(aEne[i]*scalGainFactor);
	}
      }
    }
    printf("\n    AliZDCDigitizer::ReadPMTGains -> ZDC PMT gains for Pb-p: ZNC(%1.0f), ZPC(%1.0f), ZEM(%1.0f), ZNA(%1.0f) ZPA(%1.0f)\n",
      	fPMGain[0][0], fPMGain[1][0], fPMGain[2][1], fPMGain[3][0], fPMGain[4][0]);
  }
}

//_____________________________________________________________________________
void AliZDCDigitizer::CalculatePMTGains()
{
// Calculate PMT gain according to beam type and beam energy
  if( ((fBeamType.CompareTo("P-P")) == 0) ||  ((fBeamType.CompareTo("p-p"))) ){
    // PTM gains rescaled to beam energy for p-p
    // New correction coefficients for PMT gains needed
    // to reproduce experimental spectra (from Grazia Jul 2010)
    if(fBeamEnergy != 0){
      for(Int_t j = 0; j < 5; j++){
          fPMGain[0][j] = 1.515831*(661.444/fBeamEnergy+0.000740671)*10000000;
          fPMGain[1][j] = 0.674234*(864.350/fBeamEnergy+0.00234375)*10000000;
          fPMGain[3][j] = 1.350938*(661.444/fBeamEnergy+0.000740671)*10000000; 
          fPMGain[4][j] = 0.678597*(864.350/fBeamEnergy+0.00234375)*10000000;
      }
      fPMGain[2][1] = 0.869654*(1.32312-0.000101515*fBeamEnergy)*10000000;
      fPMGain[2][2] = 1.030883*(1.32312-0.000101515*fBeamEnergy)*10000000;
      //
      printf("\n    AliZDCDigitizer::CalculatePMTGains -> ZDC PMT gains for p-p @ %1.0f+%1.0f GeV: ZNC(%1.0f), ZPC(%1.0f), ZEM(%1.0f), ZNA(%1.0f) ZPA(%1.0f)\n",
      	fBeamEnergy, fBeamEnergy, fPMGain[0][0], fPMGain[1][0], fPMGain[2][1], fPMGain[3][0], fPMGain[4][0]);
     
    }
  }
  else if(((fBeamType.CompareTo("A-A")) == 0)){
    // PTM gains for Pb-Pb @ 2.7+2.7 A TeV ***************
    // rescaled for Pb-Pb @ 1.38+1.38 A TeV ***************
    // Values corrected after 2010 Pb-Pb data taking (7/2/2011 - Ch.)
    // Experimental data compared to EMD simulation for single nucleon peaks:
    // ZN gains must be divided by 4, ZP gains by 10!
    Float_t scalGainFactor = fBeamEnergy/2760.;
    for(Int_t j = 0; j < 5; j++){
       fPMGain[0][j] = 50000./(4*scalGainFactor);  // ZNC	         
       fPMGain[1][j] = 100000./(5*scalGainFactor); // ZPC       
       fPMGain[2][j] = 100000./scalGainFactor; 	   // ZEM
       fPMGain[3][j] = 50000./(4*scalGainFactor);  // ZNA	         
       fPMGain[4][j] = 100000./(5*scalGainFactor); // ZPA    
    }
    printf("\n    AliZDCDigitizer::CalculatePMTGains -> ZDC PMT gains for Pb-Pb @ %1.0f+%1.0f A GeV: ZN(%1.0f), ZP(%1.0f), ZEM(%1.0f)\n",
      	fBeamEnergy, fBeamEnergy, fPMGain[0][0], fPMGain[1][0], fPMGain[2][1]);
  }
  else if(((fBeamType.CompareTo("p-A")) == 0) || ((fBeamType.CompareTo("P-A"))) ){
    // PTM gains for Pb-Pb @ 1.38+1.38 A TeV on side A
    // PTM gains rescaled to beam energy for p-p on side C
    // WARNING! Energies are set by hand for 2011 pA RUN!!!
    Float_t scalGainFactor = fBeamEnergy/2760.;
    Float_t npartScalingFactor = 208./15.;
    
    for(Int_t j = 0; j < 5; j++){
       fPMGain[0][j] = 1.515831*(661.444/fBeamEnergy+0.000740671)*10000000; //ZNC (p)
       fPMGain[1][j] = 0.674234*(864.350/fBeamEnergy+0.00234375)*10000000;  //ZPC (p)
       if(j<2) fPMGain[2][j] = npartScalingFactor*100000./scalGainFactor; 	   // ZEM (Pb)
       // Npart max scales from 400 in Pb-Pb to ~8 in pPb -> *40.
       fPMGain[3][j] = npartScalingFactor*50000/(4*scalGainFactor);  // ZNA (Pb)  	     
       fPMGain[4][j] = npartScalingFactor*100000/(5*scalGainFactor); // ZPA (Pb)  
    }
    printf("\n    AliZDCDigitizer::CalculatePMTGains -> ZDC PMT gains for p-Pb: ZNC(%1.0f), ZPC(%1.0f), ZEM(%1.0f), ZNA(%1.0f) ZPA(%1.0f)\n",
      	fPMGain[0][0], fPMGain[1][0], fPMGain[2][1], fPMGain[3][0], fPMGain[4][0]);
  }
  else if(((fBeamType.CompareTo("A-p")) == 0) || ((fBeamType.CompareTo("A-P"))) ){
    // PTM gains for Pb-Pb @ 1.38+1.38 A TeV on side A
    // PTM gains rescaled to beam energy for p-p on side C
     Float_t scalGainFactor = fBeamEnergy/2760.;
    Float_t npartScalingFactor = 208./15.;
    
    for(Int_t j = 0; j < 5; j++){
       fPMGain[3][j] = 1.350938*(661.444/fBeamEnergy+0.000740671)*10000000;  //ZNA (p)
       fPMGain[4][j] = 0.678597*(864.350/fBeamEnergy+0.00234375)*10000000;   //ZPA (p)
       // Npart max scales from 400 in Pb-Pb to ~8 in pPb -> *40.
       fPMGain[1][j] = npartScalingFactor*50000/(4*scalGainFactor);  // ZNC (Pb)  	     
       fPMGain[2][j] = npartScalingFactor*100000/(5*scalGainFactor); // ZPC (Pb)  
    }
    fPMGain[2][1] = 0.869654*(1.32312-0.000101515*fBeamEnergy)*10000000; // ZEM (pp)
    fPMGain[2][2] = 1.030883*(1.32312-0.000101515*fBeamEnergy)*10000000; // ZEM (pp)
    printf("\n    AliZDCDigitizer::CalculatePMTGains -> ZDC PMT gains for Pb-p: ZNC(%1.0f), ZPC(%1.0f), ZEM(%1.0f), ZNA(%1.0f) ZPA(%1.0f)\n",
      	fPMGain[0][0], fPMGain[1][0], fPMGain[2][1], fPMGain[3][0], fPMGain[4][0]);
  }
}

//_____________________________________________________________________________
void AliZDCDigitizer::Fragmentation(Float_t impPar, Int_t specN, Int_t specP,
                                    Int_t &freeSpecN, Int_t &freeSpecP) const
{
// simulate fragmentation of spectators

  AliZDCFragment frag(impPar);

  // Fragments generation
  frag.GenerateIMF();
  Int_t nAlpha = frag.GetNalpha();

  // Attach neutrons
  frag.AttachNeutrons();
  Int_t ztot = frag.GetZtot();
  Int_t ntot = frag.GetNtot();
  
  // Removing fragments and alpha pcs
  freeSpecN = specN-ntot-2*nAlpha;
  freeSpecP = specP-ztot-2*nAlpha;
  
  // Removing deuterons
  Int_t ndeu = (Int_t) (freeSpecN*frag.DeuteronNumber());
  freeSpecN -= ndeu;
  freeSpecP -= ndeu;
  //
  if(freeSpecN<0) freeSpecN=0;
  if(freeSpecP<0) freeSpecP=0;
  AliDebug(2, Form("FreeSpn = %d, FreeSpp = %d", freeSpecN, freeSpecP));
}

//_____________________________________________________________________________
void AliZDCDigitizer::SpectatorSignal(Int_t SpecType, Int_t numEvents, Float_t pm[5][5]) 
{
// add signal of the spectators
  
  if(!fSpectatorData) fSpectatorData = TFile::Open("$ALICE_ROOT/ZDC/SpectatorSignal.root");
  if(!fSpectatorData || !fSpectatorData->IsOpen()) {
    AliError((" Opening file $ALICE_ROOT/ZDC/SpectatorSignal.root failed\n"));
    return;
  }

  TNtuple* zdcSignal=0x0;
  
  Float_t sqrtS = 2*fBeamEnergy;
  //
  if(TMath::Abs(sqrtS-5500) < 100.){
    AliInfo(" Extracting signal from SpectatorSignal/energy5500 ");
    fSpectatorData->cd("energy5500");
    //
    if(SpecType == 1) {	   // --- Signal for projectile spectator neutrons
      fSpectatorData->GetObject("energy5500/ZNCSignal;1",zdcSignal);
      if(!zdcSignal) AliError("  PROBLEM!!! Can't retrieve ZNCSignal from SpectatorSignal.root file");
    } 
    else if(SpecType == 2) { // --- Signal for projectile spectator protons
      fSpectatorData->GetObject("energy5500/ZPCSignal;1",zdcSignal);
      if(!zdcSignal) AliError("  PROBLEM!!! Can't retrieve ZPCSignal from SpectatorSignal.root file");
    }
    else if(SpecType == 3) { // --- Signal for target spectator neutrons
      fSpectatorData->GetObject("energy5500/ZNASignal;1",zdcSignal);
      if(!zdcSignal) AliError("  PROBLEM!!! Can't retrieve ZNASignal from SpectatorSignal.root file");
    }
    else if(SpecType == 4) { // --- Signal for target spectator protons
      fSpectatorData->GetObject("energy5500/ZPASignal;1",zdcSignal);
      if(!zdcSignal) AliError("  PROBLEM!!! Can't retrieve ZPASignal from SpectatorSignal.root file");
    }
  }
  else if(TMath::Abs(sqrtS-2760) < 100.){
    AliInfo(" Extracting signal from SpectatorSignal/energy2760 ");
    fSpectatorData->cd("energy2760");
    //
    if(SpecType == 1) {	   // --- Signal for projectile spectator neutrons
      fSpectatorData->GetObject("energy2760/ZNCSignal;1",zdcSignal);
      if(!zdcSignal) AliError("  PROBLEM!!! Can't retrieve ZNCSignal from SpectatorSignal.root file");
    } 
    else if(SpecType == 2) { // --- Signal for projectile spectator protons
      fSpectatorData->GetObject("energy2760/ZPCSignal;1",zdcSignal);
      if(!zdcSignal) AliError("  PROBLEM!!! Can't retrieve ZPCSignal from SpectatorSignal.root file");
    }
    else if(SpecType == 3) { // --- Signal for target spectator neutrons
      fSpectatorData->GetObject("energy2760/ZNASignal;1",zdcSignal);
      if(!zdcSignal) AliError("  PROBLEM!!! Can't retrieve ZNASignal from SpectatorSignal.root file");
    }
    else if(SpecType == 4) { // --- Signal for target spectator protons
      fSpectatorData->GetObject("energy2760/ZPASignal;1",zdcSignal);
      if(!zdcSignal) AliError("  PROBLEM!!! Can't retrieve ZPASignal from SpectatorSignal.root file");
    }
  }
  
  if(!zdcSignal){
    printf("\n No spectator signal available for ZDC digitization\n");
    return;
  } 
  
  Int_t nentries = (Int_t) zdcSignal->GetEntries();
  
  Float_t *entry;
  Int_t pl, i, k, iev=0, rnd[125], volume[2];
  for(pl=0;pl<125;pl++) rnd[pl] = 0;
  if(numEvents > 125) {
    AliDebug(2,Form("numEvents (%d) is larger than 125", numEvents));
    numEvents = 125;
  }
  for(pl=0;pl<numEvents;pl++){
     rnd[pl] = (Int_t) (9999*gRandom->Rndm());
     if(rnd[pl] >= 9999) rnd[pl] = 9998;
     //printf("	rnd[%d] = %d\n",pl,rnd[pl]);     
  }
  // Sorting vector in ascending order with C function QSORT 
  qsort((void*)rnd,numEvents,sizeof(Int_t),comp);
  do{
     for(i=0; i<nentries; i++){  
  	zdcSignal->GetEvent(i);
  	entry = zdcSignal->GetArgs();
  	if(entry[0] == rnd[iev]){
          for(k=0; k<2; k++) volume[k] = (Int_t) entry[k+1];
	  //
	  Float_t lightQ = entry[7];
	  Float_t lightC = entry[8];
	  //
	  if(volume[0] != 3) {  // ZN or ZP
            pm[volume[0]-1][0] += lightC;
            pm[volume[0]-1][volume[1]] += lightQ;
	    //printf("\n   pm[%d][0] = %.0f, pm[%d][%d] = %.0f\n",(volume[0]-1),pm[volume[0]-1][0],
	    //	(volume[0]-1),volume[1],pm[volume[0]-1][volume[1]]);
	  } 
	  else { 
            if(volume[1] == 1) pm[2][1] += lightC; // ZEM 1
            else               pm[2][2] += lightQ; // ZEM 2
	    //printf("\n   pm[2][1] = %.0f, pm[2][2] = %.0f\n",pm[2][1],pm[2][2]);
	  }
  	}
  	else if(entry[0] > rnd[iev]){
	  iev++;
	  continue;
	}
     }
  }while(iev<numEvents);
  
}


//_____________________________________________________________________________
Int_t AliZDCDigitizer::Phe2ADCch(Int_t Det, Int_t Quad, Float_t Light, 
                                 Int_t Res) const
{
  // Evaluation of the ADC channel corresponding to the light yield Light
  Int_t vADCch = (Int_t) (Light * fPMGain[Det-1][Quad] * fADCRes[Res]);
  // Ch. debug
  //printf("\t Phe2ADCch -> det %d quad %d - PMGain[%d][%d] %1.0f phe %1.2f  ADC %d\n", 
  //	Det,Quad,Det-1,Quad,fPMGain[Det-1][Quad],Light,vADCch);

  return vADCch;
}

//_____________________________________________________________________________
Int_t AliZDCDigitizer::Pedestal(Int_t Det, Int_t Quad, Int_t Res) const
{
  // Returns a pedestal for detector det, PM quad, channel with res.
  //
  Float_t pedValue=0.;
  // Normal run
  if(fIsCalibration == 0){
    Int_t index=0, kNch=24;
    if(Quad!=5){
      if(Det==1)	index = Quad+kNch*Res;	  // ZNC
      else if(Det==2)	index = (Quad+5)+kNch*Res;  // ZPC
      else if(Det==3)	index = (Quad+9)+kNch*Res;  // ZEM
      else if(Det==4)	index = (Quad+12)+kNch*Res; // ZNA
      else if(Det==5)	index = (Quad+17)+kNch*Res; // ZPA
    }
    else index = (Det-1)/3+22+kNch*Res; // Reference PMs
    //
    if(fPedData){
      Float_t meanPed = fPedData->GetMeanPed(index);
      Float_t pedWidth = fPedData->GetMeanPedWidth(index);
      pedValue = gRandom->Gaus(meanPed,pedWidth);
      //
      /*printf("\t  AliZDCDigitizer::Pedestal -> det %d quad %d res %d - Ped[%d] = %d\n",
    	Det, Quad, Res, index,(Int_t) pedValue); // Chiara debugging!
      */
    }
    else{
      printf("  AliZDCDigitizer::Pedestal -> No valid pedestal calibration object loaded!\n\n");
    }
  }
  // To create calibration object
  else{
    if(Res == 0) pedValue = gRandom->Gaus((35.+10.*gRandom->Rndm()),(0.5+0.2*gRandom->Rndm())); //High gain
    else  pedValue = gRandom->Gaus((250.+100.*gRandom->Rndm()),(3.5+2.*gRandom->Rndm())); //Low gain
  }

  return (Int_t) pedValue;
}

//_____________________________________________________________________________
AliCDBStorage* AliZDCDigitizer::SetStorage(const char *uri) 
{

  Bool_t deleteManager = kFALSE;
  
  AliCDBManager *manager = AliCDBManager::Instance();
  AliCDBStorage *defstorage = manager->GetDefaultStorage();
  
  if(!defstorage || !(defstorage->Contains("ZDC"))){ 
     AliWarning("No default storage set or default storage doesn't contain ZDC!");
     manager->SetDefaultStorage(uri);
     deleteManager = kTRUE;
  }
 
  AliCDBStorage *storage = manager->GetDefaultStorage();

  if(deleteManager){
    AliCDBManager::Instance()->UnsetDefaultStorage();
    defstorage = 0;   // the storage is killed by AliCDBManager::Instance()->Destroy()
  }

  return storage; 
}

//_____________________________________________________________________________
AliZDCPedestals* AliZDCDigitizer::GetPedData() const
{

  // Getting pedestal calibration object for ZDC set
  AliZDCPedestals *calibdata = 0x0;
  AliCDBEntry  *entry = AliCDBManager::Instance()->Get("ZDC/Calib/Pedestals");
  if(!entry) AliFatal("No calibration data loaded!");  
  else{
    calibdata = dynamic_cast<AliZDCPedestals*>  (entry->GetObject());
    if(!calibdata)  AliFatal("Wrong calibration object in calibration  file!");
  }
  return calibdata;
}