[u/mrichter/AliRoot.git] / PHOS / testsimglobal.C

// Root
#include "TH2.h"
#include "TH1.h"
#include "TFile.h"
#include "TTree.h"
#include "TBranch.h"
#include "TClonesArray.h"
#include "TCanvas.h"
#include "TSystem.h"
#include "TString.h"
#include "TF1.h"
#include "TFormula.h"
#include "TFolder.h"
#include "TStopwatch.h"
#include "TObjArray.h"

//AliRoot
#include "AliPHOSHit.h"
#include "AliPHOSGetter.h"
#include "AliPHOSGeometry.h"
#include "AliPHOSDigit.h"
#include "AliPHOSSDigitizer.h"
#include "AliPHOSDigitizer.h"
#include "AliPHOSClusterizer.h"
#include "AliPHOSClusterizerv1.h"
#include "AliPHOSTrackSegmentMaker.h"
#include "AliPHOSTrackSegmentMakerv1.h"
#include "AliPHOSPID.h"
#include "AliPHOSPIDv1.h"

Bool_t sim_exam() ;
Bool_t sdigit() ;
Bool_t digit() ;
Bool_t recpoint() ;
Bool_t track() ;
Bool_t particle() ;
void write_info(TString) ;


//____________________________________________________________________________ 
void testsimglobal() 
{
  
  Bool_t error = kFALSE ;
  TString mess("") ;
  
  if ( sim_exam() ){
    mess = "Examination ended successfully." ;
    write_info(mess) ;
  }
  else
    error = kTRUE ;
  
  if (!error){
    mess = "Beginning of the PHOS reconstruction."  ;
    write_info(mess) ;
    if(sdigit()){
      mess = "SDigits process ended successfully."  ;
      write_info(mess) ;
    }
    else
      error = kTRUE ;
  }
  
  if (!error){
    if (digit()){
      mess = "Digits process ended successfully."  ;
      write_info(mess) ;
    }
    else
      error = kTRUE ;
  }
  
  if (!error){
    if (recpoint()){
      mess = "Cluster process ended successfully."  ;
      write_info(mess) ;
    }
    else
      error = kTRUE ;
  }
  
  if (!error){
    if (track()){
      mess = "TrackSegments process ended successfully."  ;
      write_info(mess) ;
    }
    else
      error = kTRUE ;
  }
  
  if (!error){
    if (particle()){
      mess = "RecParticles process ended successfully."  ;
      write_info(mess) ;
    }
    else
      error = kTRUE ;
  }
  
  if(!error){
    mess = "reconstruction ended successfully."  ;
    write_info(mess) ;
  }
  else {
    gSystem->Exec("uuencode $ALICE_ROOT/PHOS/testPHOS.root testPHOS.root | mail -s 'PHOS INSTALLATION ERROR' schutz@in2p3.fr") ;
    mess = "Error message to PHOS director has been sent, please wait for his answer before launching the whole simulation again."  ;
    write_info(mess) ;
  }
}


//____________________________________________________________________________ 
Bool_t sim_exam()
{
  
  // Definition of the alarm bounds for the examination
  const Float_t maxAlaHitsM = 12.79  ;  // total multiplicity
  const Float_t maxAlaTotEn = 19.34  ;  // total energy
  const Float_t maxAlaTotEnB = 18.35 ;  // per block multiplicity
  const Float_t maxAlaHitsMB = 11.1  ;  // per block energy
  
  TString mess("") ;

  mess = "Beginning of the simulation examination." ;
  write_info(mess) ;
  
  // define the array in which the events that have not reach th EMCA will be put.
  Bool_t error = kFALSE ;
  
  TStopwatch timer ;
  timer.Start() ;
   
  // Get the number of events generated in the simulation
  AliPHOSGetter * gime = AliPHOSGetter::GetInstance("testPHOS.root") ;
  Int_t maxevent = gime->MaxEvent() ;
  gime->Event(0,"Q") ;
  
  // Examine the alarms
  TObjArray * alahm = dynamic_cast<TObjArray*>(gime->Alarms()->FindObject("HitsM")) ;
  Float_t ratiohm = 100.0*static_cast<Float_t>(alahm->GetEntries())/static_cast<Float_t>(maxevent) ;
  
  TObjArray * alaet = dynamic_cast<TObjArray*>(gime->Alarms()->FindObject("TotEn")) ;
  Float_t ratioet = 100.0*static_cast<Float_t>(alaet->GetEntries())/static_cast<Float_t>(maxevent) ;
  
  // Define the alarms per block and examine them
  char namemul[80], namen[80] ;
  TObjArray* alahmb[5] ;
  TObjArray* alaenb[5] ;
  Float_t ratiohmb[5], ratioenb[5] ;
  
  Int_t i = 0 ;
  for (i = 0 ; i < 5 ; i++){
    sprintf(namemul,"HitsMB%d",i+1) ;
    sprintf(namen,"TotEnB%d",i+1) ;
    alahmb[i]   = (TObjArray*) (gime->Alarms()->FindObject(namemul)) ;
    ratiohmb[i] = 100.0*(Float_t)alahmb[i]->GetEntries()/(Float_t)maxevent ;
    alaenb[i]   = (TObjArray*)(gime->Alarms()->FindObject(namen)) ;
    ratioenb[i] = 100.0*(Float_t)alaenb[i]->GetEntries()/(Float_t)maxevent ;
    
    if (ratiohmb[i] > maxAlaHitsMB){
      error = kTRUE ;
      mess = "Examination detected an error in " + TString(namemul) ;
      write_info(mess) ;
    }
    
    if (ratioenb[i] > maxAlaTotEnB) {
      error = kTRUE ;
      mess = "Examination detected an error in " + TString(namen)  ;
      write_info(mess) ;
    }
  }
  
  
  timer.Stop() ;
  timer.Print() ;
  
  
  if (ratiohm > maxAlaHitsM){
    error = kTRUE ;
    mess = "Examination detected an error in HitsM." ;
    write_info(mess) ;
  }
  
  if (ratioet>maxAlaTotEn){
    error = kTRUE ;
    mess = "Examination detected an error in TotEn." ;
    write_info(mess) ;
  }
  
  // Condition that will launch the general loop that builds the histograms in order to allow a further analysis.
  
  if (!error)
    return kTRUE ;
  else {
    mess = "Examination sets up the file that will be sent to PHOS director (30s)." ;
    write_info(mess) ;
    
    Int_t index = 0 ;
    Int_t nhits = 0 ;
    
    TH1F * his    = new TH1F("Total Multiplicity", "Total Multiplicity in PHOS", 200, 0., 200.) ;
    TH1F * hisnrg = new TH1F("Total Energy", "Total energy in PHOS", 200, 0., 12.) ;
    
    // name and define the different histograms per block involved in the analysis
    
    TClonesArray hisba("TH1F") ;
    TClonesArray hisbanrg("TH1F") ;
    Int_t i = 0 ;
    
    char name[80], title[80] ;
    for (i = 0 ; i < 6 ; i++) {
      sprintf(name,"multiplicity for block %d",i) ;
      sprintf(title,"multiplicity per blocks, block %d",i) ;
      new(hisba[i]) TH1F(name, title, 100, 0., 100.) ;
      
      sprintf(name,"total energy for block %d",i) ;
      sprintf(title,"total energy per block, block %d",i) ;
      new(hisbanrg[i]) TH1F(name, title, 200, 0., 12.) ;
    }
    
    // define the global histograms, the hit pointer and give the means to get the actual block reached by the photon
    
    AliPHOSHit * hit ;
    TH1F * hist ;
    TH1F * histnrg ;
    TH2F * hbiz = new TH2F ("hbiz","hbiz", 200, 0., 200., 200, 0., 12.) ;
    const AliPHOSGeometry * geom = gime->PHOSGeometry() ;
    
    // the very general loop
    
    for (index = 0 ; index < maxevent ; index++) {
      //get the number of the event
      gime->Event(index) ;
      // get the number of cells reached during this event and fill the total multiplicity histogram
      Int_t n = gime->Hits()->GetEntries() ;
      nhits += n ;
      his->Fill(n) ;
      // Get the data per block
      TClonesArray * hita = static_cast<TClonesArray *>(gime -> Hits()) ;
      TIter next(hita) ;
      Float_t Et = 0. ;
      Int_t id = 0, block = 0 ;
      Int_t nhit[6], rid[4] ;
      Float_t etblock[6] ;
      Int_t i = 0 ;
      
      for ( i = 0; i < 6 ; i++) {
	nhit[i] = 0 ;
	etblock[i] = 0 ;
      }
      
      while ( (hit = static_cast<AliPHOSHit *>(next())) ) {
	id = hit->GetId() ;
	if  (geom->IsInEMC(id) ) {
	  Et += ( hit -> GetEnergy()) ;
	  geom->AbsToRelNumbering(id,rid) ;
	  block = rid[0] ;
	  nhit[block]++ ;
	  etblock[block] +=  ( hit -> GetEnergy()) ;
	}
      }
      
      //Fill all the histograms but total multiplicity, already done
      hist = static_cast<TH1F*>(hisba.At(block)) ;
      hist->Fill(nhit[block]) ;
      histnrg = static_cast<TH1F*>(hisbanrg.At(block)) ;
      histnrg->Fill(etblock[block]) ;
      hisnrg -> Fill(Et) ;
      hbiz->Fill(n,Et) ;
    }
         
    TFile * file = gROOT -> GetFile("testPHOS.root") ;
    file -> Write() ;
    file->Close() ;
    return kFALSE ;
  }
}


//____________________________________________________________________________ 
Bool_t sdigit()
{
  //SDigits process
  
  const Float_t maxSDigits = 62.89 ;
  const Float_t widSDigits = TMath::Sqrt(maxSDigits) ;

  TString mess("") ;
  TString reconame = "test suite" ;
  
  AliPHOSSDigitizer *sd = new AliPHOSSDigitizer("testPHOS.root",reconame.Data()) ;
  AliPHOSGetter * gime = AliPHOSGetter::GetInstance() ;
  
  sd->ExecuteTask("deb") ;
  
  Float_t nSDigits =  static_cast<Float_t>(gime->SDigitizer()->GetSDigitsInRun()) / static_cast<Float_t>(gime->MaxEvent()) ;
  if ( nSDigits < maxSDigits-widSDigits ||
       nSDigits > maxSDigits+widSDigits ) {
    mess = "Error detected in the SDigits process. Sending error file to PHOS director." ;
    write_info(mess) ;
    return kFALSE ;
  }
  else
    return kTRUE ;
}


//____________________________________________________________________________ 
Bool_t digit()
{
  
  //Digits process
  AliPHOSGetter * gime = AliPHOSGetter::GetInstance("testPHOS.root") ;
  TString reconame = "test suite" ;
  const Float_t maxDigits = 3489.41 ;
  const Float_t widDigits = TMath::Sqrt(maxDigits) ;
  
  TString mess("") ;

  AliPHOSDigitizer *d = new AliPHOSDigitizer("testPHOS.root",reconame.Data()) ;
  
  d->ExecuteTask("deb") ;
  
  Float_t nDigits = static_cast<Float_t>(gime->Digitizer()->GetDigitsInRun()) / static_cast<Float_t>(gime->MaxEvent()) ;
  
  if ( nDigits < maxDigits-widDigits || nDigits > maxDigits+widDigits ) {
    mess = "Error detected in the Digits process. Sending error file to PHOS director." ;
    write_info(mess) ;
    return kFALSE ;
  }
  else
    return kTRUE ;
}


//____________________________________________________________________________ 
Bool_t recpoint()
{
  
  //RecPoints process
  AliPHOSGetter * gime = AliPHOSGetter::GetInstance("testPHOS.root") ;
  TString reconame = "test suite" ;
  
  const Float_t maxRecPoints = 222.83 ;
  const Float_t widRecPoints = TMath::Sqrt(maxRecPoints) ;
  
  TString mess("") ;

  AliPHOSClusterizer * cluster = new  AliPHOSClusterizerv1("testPHOS.root", reconame.Data()) ;
  
  cluster->ExecuteTask("deb") ;
  
  Float_t nRecPoints =  static_cast<Float_t>(gime->Clusterizer(reconame.Data())->GetRecPointsInRun()) /
    static_cast<Float_t>(gime->MaxEvent()) ;
  
  if ( nRecPoints < maxRecPoints-widRecPoints
       || nRecPoints > maxRecPoints+widRecPoints ) {
    mess = "Error detected in the Clusterizing process. Sending error file to PHOS director." ;
    write_info(mess) ;
    return kFALSE ;
  }
  else
    return kTRUE ;
}


//____________________________________________________________________________ 
Bool_t track()
{
  
  //TrackSegments process
  AliPHOSGetter * gime = AliPHOSGetter::GetInstance("testPHOS.root") ;
  const Float_t maxTrackSegments = 1 ;

  TString mess("") ;
  TString reconame = "test suite" ;
  
  AliPHOSTrackSegmentMaker * tracks = new AliPHOSTrackSegmentMakerv1("testPHOS.root",reconame.Data()) ;
  
  tracks->ExecuteTask("deb") ;
  
  Float_t nTrackSegments =  static_cast<Float_t> (gime->TrackSegmentMaker(reconame.Data())->GetTrackSegmentsInRun()) /
    static_cast<Float_t>(gime->MaxEvent()) ;
  
  if ( nTrackSegments < maxTrackSegments-0.25 ||
       nTrackSegments > maxTrackSegments+0.25 ) {
    mess = "Error detected in the TrackSegments process. Sending error file to PHOS director." ;
    write_info(mess) ;
    return kFALSE ;
  }
  else
    return kTRUE ;
}


//____________________________________________________________________________ 
Bool_t particle()
{
  
  //RecParticles process
  AliPHOSGetter * gime = AliPHOSGetter::GetInstance("testPHOS.root") ;
  const Float_t maxRecParticles = 1 ;

  TString mess("") ;
  TString reconame = "test suite" ;
  
  AliPHOSPID * pid = new AliPHOSPIDv1("testPHOS.root",reconame.Data()) ;
  
  pid->ExecuteTask("deb") ;
  
  Float_t nRecParticles =  static_cast<Float_t> (gime->PID(reconame.Data())->GetRecParticlesInRun()) /
    static_cast<Float_t>(gime->MaxEvent()) ;
  
  
  if ( nRecParticles < maxRecParticles-0.25 ||
       nRecParticles > maxRecParticles+0.25 ) {
    mess = "Error detected in the RecParticles process. Sending error file to PHOS director.Stop reconstruction." ;
    write_info(mess) ;
    return kFALSE ;
  }
  else
    return kTRUE ;
}


//____________________________________________________________________________ 
void write_info(TString mess)
{
  cerr << " _____________________________________________________________ " << endl
       << " " << endl
       << "MESS ==> " << mess <<endl
       << " _____________________________________________________________ " <<endl ;
}
Commit	Line	Data
493ef90d	1	// Root
cede0770	2	#include "TH2.h"
	3	#include "TH1.h"
	4	#include "TFile.h"
	5	#include "TTree.h"
	6	#include "TBranch.h"
	7	#include "TClonesArray.h"
	8	#include "TCanvas.h"
	9	#include "TSystem.h"
493ef90d	10	#include "TString.h"
cede0770	11	#include "TF1.h"
	12	#include "TFormula.h"
	13	#include "TFolder.h"
	14	#include "TStopwatch.h"
	15	#include "TObjArray.h"
493ef90d	16
	17	//AliRoot
	18	#include "AliPHOSHit.h"
	19	#include "AliPHOSGetter.h"
cede0770	20	#include "AliPHOSGeometry.h"
	21	#include "AliPHOSDigit.h"
	22	#include "AliPHOSSDigitizer.h"
	23	#include "AliPHOSDigitizer.h"
	24	#include "AliPHOSClusterizer.h"
	25	#include "AliPHOSClusterizerv1.h"
	26	#include "AliPHOSTrackSegmentMaker.h"
	27	#include "AliPHOSTrackSegmentMakerv1.h"
	28	#include "AliPHOSPID.h"
	29	#include "AliPHOSPIDv1.h"
	30
493ef90d	31	Bool_t sim_exam() ;
	32	Bool_t sdigit() ;
	33	Bool_t digit() ;
	34	Bool_t recpoint() ;
	35	Bool_t track() ;
	36	Bool_t particle() ;
	37	void write_info(TString) ;
cede0770	38
493ef90d	39
	40	//____________________________________________________________________________
	41	void testsimglobal()
cede0770	42	{
cede0770	43
493ef90d	44	Bool_t error = kFALSE ;
	45	TString mess("") ;
	46
	47	if ( sim_exam() ){
	48	mess = "Examination ended successfully." ;
	49	write_info(mess) ;
	50	}
	51	else
	52	error = kTRUE ;
	53
	54	if (!error){
	55	mess = "Beginning of the PHOS reconstruction." ;
	56	write_info(mess) ;
	57	if(sdigit()){
	58	mess = "SDigits process ended successfully." ;
	59	write_info(mess) ;
	60	}
	61	else
	62	error = kTRUE ;
	63	}
	64
	65	if (!error){
	66	if (digit()){
	67	mess = "Digits process ended successfully." ;
	68	write_info(mess) ;
	69	}
	70	else
	71	error = kTRUE ;
	72	}
	73
	74	if (!error){
	75	if (recpoint()){
	76	mess = "Cluster process ended successfully." ;
	77	write_info(mess) ;
	78	}
	79	else
	80	error = kTRUE ;
	81	}
	82
	83	if (!error){
	84	if (track()){
	85	mess = "TrackSegments process ended successfully." ;
	86	write_info(mess) ;
	87	}
	88	else
	89	error = kTRUE ;
	90	}
	91
	92	if (!error){
	93	if (particle()){
	94	mess = "RecParticles process ended successfully." ;
	95	write_info(mess) ;
	96	}
	97	else
	98	error = kTRUE ;
	99	}
	100
	101	if(!error){
	102	mess = "reconstruction ended successfully." ;
	103	write_info(mess) ;
	104	}
	105	else {
69c46d16	106	gSystem->Exec("uuencode $ALICE_ROOT/PHOS/testPHOS.root testPHOS.root \| mail -s 'PHOS INSTALLATION ERROR' schutz@in2p3.fr") ;
493ef90d	107	mess = "Error message to PHOS director has been sent, please wait for his answer before launching the whole simulation again." ;
	108	write_info(mess) ;
	109	}
	110	}
cede0770	111
cede0770	112
493ef90d	113	//____________________________________________________________________________
	114	Bool_t sim_exam()
	115	{
	116
	117	// Definition of the alarm bounds for the examination
	118	const Float_t maxAlaHitsM = 12.79 ; // total multiplicity
	119	const Float_t maxAlaTotEn = 19.34 ; // total energy
	120	const Float_t maxAlaTotEnB = 18.35 ; // per block multiplicity
	121	const Float_t maxAlaHitsMB = 11.1 ; // per block energy
	122
	123	TString mess("") ;
cede0770	124
493ef90d	125	mess = "Beginning of the simulation examination." ;
	126	write_info(mess) ;
	127
	128	// define the array in which the events that have not reach th EMCA will be put.
	129	Bool_t error = kFALSE ;
	130
	131	TStopwatch timer ;
	132	timer.Start() ;
	133
	134	// Get the number of events generated in the simulation
	135	AliPHOSGetter * gime = AliPHOSGetter::GetInstance("testPHOS.root") ;
	136	Int_t maxevent = gime->MaxEvent() ;
	137	gime->Event(0,"Q") ;
	138
cede0770	139	// Examine the alarms
493ef90d	140	TObjArray * alahm = dynamic_cast<TObjArray*>(gime->Alarms()->FindObject("HitsM")) ;
493ef90d	141	Float_t ratiohm = 100.0*static_cast<Float_t>(alahm->GetEntries())/static_cast<Float_t>(maxevent) ;
cede0770	142
493ef90d	143	TObjArray * alaet = dynamic_cast<TObjArray*>(gime->Alarms()->FindObject("TotEn")) ;
493ef90d	144	Float_t ratioet = 100.0*static_cast<Float_t>(alaet->GetEntries())/static_cast<Float_t>(maxevent) ;
cede0770	145
493ef90d	146	// Define the alarms per block and examine them
	147	char namemul[80], namen[80] ;
	148	TObjArray* alahmb[5] ;
	149	TObjArray* alaenb[5] ;
	150	Float_t ratiohmb[5], ratioenb[5] ;
	151
	152	Int_t i = 0 ;
	153	for (i = 0 ; i < 5 ; i++){
	154	sprintf(namemul,"HitsMB%d",i+1) ;
	155	sprintf(namen,"TotEnB%d",i+1) ;
	156	alahmb[i] = (TObjArray*) (gime->Alarms()->FindObject(namemul)) ;
	157	ratiohmb[i] = 100.0*(Float_t)alahmb[i]->GetEntries()/(Float_t)maxevent ;
	158	alaenb[i] = (TObjArray*)(gime->Alarms()->FindObject(namen)) ;
	159	ratioenb[i] = 100.0*(Float_t)alaenb[i]->GetEntries()/(Float_t)maxevent ;
	160
	161	if (ratiohmb[i] > maxAlaHitsMB){
	162	error = kTRUE ;
69c46d16	163	mess = "Examination detected an error in " + TString(namemul) ;
493ef90d	164	write_info(mess) ;
	165	}
	166
	167	if (ratioenb[i] > maxAlaTotEnB) {
	168	error = kTRUE ;
69c46d16	169	mess = "Examination detected an error in " + TString(namen) ;
493ef90d	170	write_info(mess) ;
493ef90d	171	}
cede0770	172	}
493ef90d	173
	174
	175	timer.Stop() ;
	176	timer.Print() ;
	177
	178
	179	if (ratiohm > maxAlaHitsM){
	180	error = kTRUE ;
	181	mess = "Examination detected an error in HitsM." ;
	182	write_info(mess) ;
	183	}
	184
cede0770	185	if (ratioet>maxAlaTotEn){
493ef90d	186	error = kTRUE ;
	187	mess = "Examination detected an error in TotEn." ;
	188	write_info(mess) ;
cede0770	189	}
493ef90d	190
cede0770	191	// Condition that will launch the general loop that builds the histograms in order to allow a further analysis.
cede0770	192
493ef90d	193	if (!error)
	194	return kTRUE ;
	195	else {
	196	mess = "Examination sets up the file that will be sent to PHOS director (30s)." ;
	197	write_info(mess) ;
cede0770	198
493ef90d	199	Int_t index = 0 ;
493ef90d	200	Int_t nhits = 0 ;
cede0770	201
493ef90d	202	TH1F * his = new TH1F("Total Multiplicity", "Total Multiplicity in PHOS", 200, 0., 200.) ;
	203	TH1F * hisnrg = new TH1F("Total Energy", "Total energy in PHOS", 200, 0., 12.) ;
	204
	205	// name and define the different histograms per block involved in the analysis
	206
	207	TClonesArray hisba("TH1F") ;
	208	TClonesArray hisbanrg("TH1F") ;
	209	Int_t i = 0 ;
	210
	211	char name[80], title[80] ;
	212	for (i = 0 ; i < 6 ; i++) {
	213	sprintf(name,"multiplicity for block %d",i) ;
	214	sprintf(title,"multiplicity per blocks, block %d",i) ;
	215	new(hisba[i]) TH1F(name, title, 100, 0., 100.) ;
cede0770	216
493ef90d	217	sprintf(name,"total energy for block %d",i) ;
	218	sprintf(title,"total energy per block, block %d",i) ;
	219	new(hisbanrg[i]) TH1F(name, title, 200, 0., 12.) ;
	220	}
	221
	222	// define the global histograms, the hit pointer and give the means to get the actual block reached by the photon
	223
	224	AliPHOSHit * hit ;
	225	TH1F * hist ;
	226	TH1F * histnrg ;
	227	TH2F * hbiz = new TH2F ("hbiz","hbiz", 200, 0., 200., 200, 0., 12.) ;
	228	const AliPHOSGeometry * geom = gime->PHOSGeometry() ;
	229
	230	// the very general loop
	231
	232	for (index = 0 ; index < maxevent ; index++) {
	233	//get the number of the event
	234	gime->Event(index) ;
	235	// get the number of cells reached during this event and fill the total multiplicity histogram
	236	Int_t n = gime->Hits()->GetEntries() ;
	237	nhits += n ;
	238	his->Fill(n) ;
	239	// Get the data per block
	240	TClonesArray * hita = static_cast<TClonesArray *>(gime -> Hits()) ;
	241	TIter next(hita) ;
	242	Float_t Et = 0. ;
	243	Int_t id = 0, block = 0 ;
	244	Int_t nhit[6], rid[4] ;
	245	Float_t etblock[6] ;
	246	Int_t i = 0 ;
cede0770	247
493ef90d	248	for ( i = 0; i < 6 ; i++) {
	249	nhit[i] = 0 ;
	250	etblock[i] = 0 ;
	251	}
	252
	253	while ( (hit = static_cast<AliPHOSHit *>(next())) ) {
	254	id = hit->GetId() ;
	255	if (geom->IsInEMC(id) ) {
	256	Et += ( hit -> GetEnergy()) ;
	257	geom->AbsToRelNumbering(id,rid) ;
	258	block = rid[0] ;
	259	nhit[block]++ ;
	260	etblock[block] += ( hit -> GetEnergy()) ;
	261	}
	262	}
	263
	264	//Fill all the histograms but total multiplicity, already done
	265	hist = static_cast<TH1F*>(hisba.At(block)) ;
	266	hist->Fill(nhit[block]) ;
	267	histnrg = static_cast<TH1F*>(hisbanrg.At(block)) ;
	268	histnrg->Fill(etblock[block]) ;
	269	hisnrg -> Fill(Et) ;
	270	hbiz->Fill(n,Et) ;
cede0770	271	}
493ef90d	272
	273	TFile * file = gROOT -> GetFile("testPHOS.root") ;
	274	file -> Write() ;
	275	file->Close() ;
	276	return kFALSE ;
	277	}
	278	}
cede0770	279
cede0770	280
493ef90d	281	//____________________________________________________________________________
	282	Bool_t sdigit()
	283	{
	284	//SDigits process
	285
cede0770	286	const Float_t maxSDigits = 62.89 ;
cede0770	287	const Float_t widSDigits = TMath::Sqrt(maxSDigits) ;
493ef90d	288
	289	TString mess("") ;
	290	TString reconame = "test suite" ;
	291
	292	AliPHOSSDigitizer *sd = new AliPHOSSDigitizer("testPHOS.root",reconame.Data()) ;
	293	AliPHOSGetter * gime = AliPHOSGetter::GetInstance() ;
	294
	295	sd->ExecuteTask("deb") ;
	296
	297	Float_t nSDigits = static_cast<Float_t>(gime->SDigitizer()->GetSDigitsInRun()) / static_cast<Float_t>(gime->MaxEvent()) ;
	298	if ( nSDigits < maxSDigits-widSDigits \|\|
	299	nSDigits > maxSDigits+widSDigits ) {
	300	mess = "Error detected in the SDigits process. Sending error file to PHOS director." ;
	301	write_info(mess) ;
	302	return kFALSE ;
	303	}
	304	else
	305	return kTRUE ;
	306	}
	307
	308
	309	//____________________________________________________________________________
	310	Bool_t digit()
	311	{
	312
	313	//Digits process
	314	AliPHOSGetter * gime = AliPHOSGetter::GetInstance("testPHOS.root") ;
	315	TString reconame = "test suite" ;
cede0770	316	const Float_t maxDigits = 3489.41 ;
cede0770	317	const Float_t widDigits = TMath::Sqrt(maxDigits) ;
493ef90d	318
	319	TString mess("") ;
	320
	321	AliPHOSDigitizer *d = new AliPHOSDigitizer("testPHOS.root",reconame.Data()) ;
	322
	323	d->ExecuteTask("deb") ;
	324
	325	Float_t nDigits = static_cast<Float_t>(gime->Digitizer()->GetDigitsInRun()) / static_cast<Float_t>(gime->MaxEvent()) ;
	326
	327	if ( nDigits < maxDigits-widDigits \|\| nDigits > maxDigits+widDigits ) {
	328	mess = "Error detected in the Digits process. Sending error file to PHOS director." ;
	329	write_info(mess) ;
	330	return kFALSE ;
cede0770	331	}
493ef90d	332	else
	333	return kTRUE ;
	334	}
cede0770	335
cede0770	336
493ef90d	337	//____________________________________________________________________________
	338	Bool_t recpoint()
	339	{
	340
	341	//RecPoints process
	342	AliPHOSGetter * gime = AliPHOSGetter::GetInstance("testPHOS.root") ;
	343	TString reconame = "test suite" ;
	344
	345	const Float_t maxRecPoints = 222.83 ;
	346	const Float_t widRecPoints = TMath::Sqrt(maxRecPoints) ;
	347
	348	TString mess("") ;
cede0770	349
493ef90d	350	AliPHOSClusterizer * cluster = new AliPHOSClusterizerv1("testPHOS.root", reconame.Data()) ;
	351
	352	cluster->ExecuteTask("deb") ;
	353
	354	Float_t nRecPoints = static_cast<Float_t>(gime->Clusterizer(reconame.Data())->GetRecPointsInRun()) /
	355	static_cast<Float_t>(gime->MaxEvent()) ;
	356
	357	if ( nRecPoints < maxRecPoints-widRecPoints
	358	\|\| nRecPoints > maxRecPoints+widRecPoints ) {
	359	mess = "Error detected in the Clusterizing process. Sending error file to PHOS director." ;
	360	write_info(mess) ;
	361	return kFALSE ;
	362	}
	363	else
	364	return kTRUE ;
	365	}
cede0770	366
cede0770	367
493ef90d	368	//____________________________________________________________________________
	369	Bool_t track()
	370	{
	371
	372	//TrackSegments process
	373	AliPHOSGetter * gime = AliPHOSGetter::GetInstance("testPHOS.root") ;
	374	const Float_t maxTrackSegments = 1 ;
	375
	376	TString mess("") ;
	377	TString reconame = "test suite" ;
	378
	379	AliPHOSTrackSegmentMaker * tracks = new AliPHOSTrackSegmentMakerv1("testPHOS.root",reconame.Data()) ;
	380
	381	tracks->ExecuteTask("deb") ;
cede0770	382
493ef90d	383	Float_t nTrackSegments = static_cast<Float_t> (gime->TrackSegmentMaker(reconame.Data())->GetTrackSegmentsInRun()) /
	384	static_cast<Float_t>(gime->MaxEvent()) ;
	385
	386	if ( nTrackSegments < maxTrackSegments-0.25 \|\|
	387	nTrackSegments > maxTrackSegments+0.25 ) {
	388	mess = "Error detected in the TrackSegments process. Sending error file to PHOS director." ;
	389	write_info(mess) ;
	390	return kFALSE ;
cede0770	391	}
493ef90d	392	else
	393	return kTRUE ;
	394	}
	395
	396
	397	//____________________________________________________________________________
	398	Bool_t particle()
	399	{
cede0770	400
493ef90d	401	//RecParticles process
	402	AliPHOSGetter * gime = AliPHOSGetter::GetInstance("testPHOS.root") ;
	403	const Float_t maxRecParticles = 1 ;
cede0770	404
493ef90d	405	TString mess("") ;
	406	TString reconame = "test suite" ;
	407
	408	AliPHOSPID * pid = new AliPHOSPIDv1("testPHOS.root",reconame.Data()) ;
	409
	410	pid->ExecuteTask("deb") ;
	411
	412	Float_t nRecParticles = static_cast<Float_t> (gime->PID(reconame.Data())->GetRecParticlesInRun()) /
	413	static_cast<Float_t>(gime->MaxEvent()) ;
	414
	415
	416	if ( nRecParticles < maxRecParticles-0.25 \|\|
	417	nRecParticles > maxRecParticles+0.25 ) {
	418	mess = "Error detected in the RecParticles process. Sending error file to PHOS director.Stop reconstruction." ;
	419	write_info(mess) ;
	420	return kFALSE ;
cede0770	421	}
493ef90d	422	else
493ef90d	423	return kTRUE ;
cede0770	424	}
493ef90d	425
	426
	427	//____________________________________________________________________________
	428	void write_info(TString mess)
	429	{
	430	cerr << " _____________________________________________________________ " << endl
	431	<< " " << endl
	432	<< "MESS ==> " << mess <<endl
	433	<< " _____________________________________________________________ " <<endl ;
	434	}
	435