--- /dev/null
+static Int_t eventsPerRun = 100;
+enum PprGeo_t
+{
+ kHoles, kNoHoles
+};
+static PprGeo_t geo = kHoles;
+
+void Config()
+{
+ // 7-DEC-2000 09:00
+ // Switch on Transition Radiation simulation. 6/12/00 18:00
+ // iZDC=1 7/12/00 09:00
+ // ThetaRange is (0., 180.). It was (0.28,179.72) 7/12/00 09:00
+ // Theta range given through pseudorapidity limits 22/6/2001
+
+ // Set Random Number seed
+ // AliLoader::SetDebug(5) ;
+ gRandom->SetSeed(12345);
+
+
+ // libraries required by geant321
+ gSystem->Load("libgeant321");
+
+ new TGeant3("C++ Interface to Geant3");
+
+ if (!gSystem->Getenv("CONFIG_FILE"))
+ {
+ cout<<"Config.C: Creating Run Loader ..."<<endl;
+ AliRunLoader* rl = AliRunLoader::Open("galice.root",AliConfig::fgkDefaultEventFolderName,
+ "recreate");
+ if (rl == 0x0)
+ {
+ gAlice->Fatal("Config.C","Can not instatiate the Run Loader");
+ return;
+ }
+ rl->SetCompressionLevel(2);
+ rl->SetNumberOfEventsPerFile(1000);
+ gAlice->SetRunLoader(rl);
+ }
+
+ TGeant3 *geant3 = (TGeant3 *) gMC;
+
+ //
+ // Set External decayer
+ TVirtualMCDecayer *decayer = new AliDecayerPythia();
+
+ decayer->SetForceDecay(kAll);
+ decayer->Init();
+ gMC->SetExternalDecayer(decayer);
+ //
+ //
+ //=======================================================================
+ // ******* GEANT STEERING parameters FOR ALICE SIMULATION *******
+ geant3->SetTRIG(1); //Number of events to be processed
+ geant3->SetSWIT(4, 10);
+ geant3->SetDEBU(0, 0, 1);
+ //geant3->SetSWIT(2,2);
+ geant3->SetDCAY(1);
+ geant3->SetPAIR(1);
+ geant3->SetCOMP(1);
+ geant3->SetPHOT(1);
+ geant3->SetPFIS(0);
+ geant3->SetDRAY(0);
+ geant3->SetANNI(1);
+ geant3->SetBREM(1);
+ geant3->SetMUNU(1);
+ geant3->SetCKOV(1);
+ geant3->SetHADR(1); //Select pure GEANH (HADR 1) or GEANH/NUCRIN (HADR 3)
+ geant3->SetLOSS(2);
+ geant3->SetMULS(1);
+ geant3->SetRAYL(1);
+ geant3->SetAUTO(1); //Select automatic STMIN etc... calc. (AUTO 1) or manual (AUTO 0)
+ geant3->SetABAN(0); //Restore 3.16 behaviour for abandoned tracks
+ geant3->SetOPTI(2); //Select optimisation level for GEANT geometry searches (0,1,2)
+ geant3->SetERAN(5.e-7);
+
+ Float_t cut = 1.e-3; // 1MeV cut by default
+ Float_t tofmax = 1.e10;
+
+ // GAM ELEC NHAD CHAD MUON EBREM MUHAB EDEL MUDEL MUPA TOFMAX
+ geant3->SetCUTS(cut, cut, cut, cut, cut, cut, cut, cut, cut, cut,
+ tofmax);
+ //
+ //=======================================================================
+ // ************* STEERING parameters FOR ALICE SIMULATION **************
+ // --- Specify event type to be tracked through the ALICE setup
+ // --- All positions are in cm, angles in degrees, and P and E in GeV
+ if (gSystem->Getenv("CONFIG_NPARTICLES"))
+ {
+ int nParticles = atoi(gSystem->Getenv("CONFIG_NPARTICLES"));
+ } else
+ {
+ int nParticles = 10;
+ }
+ // AliGenCocktail *gener = new AliGenCocktail();
+// gener->SetPhiRange(220, 320);
+// // Set pseudorapidity range from -8 to 8.
+// Float_t thmin = EtaToTheta(0.12); // theta min. <---> eta max
+// Float_t thmax = EtaToTheta(-0.12); // theta max. <---> eta min
+// gener->SetThetaRange(thmin,thmax);
+// gener->SetOrigin(0, 0, 0); //vertex position
+// gener->SetSigma(0, 0, 0); //Sigma in (X,Y,Z) (cm) on IP position
+
+// AliGenHIJINGpara *hijingparam = new AliGenHIJINGpara(nParticles);
+// hijingparam->SetMomentumRange(0.2, 999);
+// gener->AddGenerator(hijingparam,"HIJING PARAM",1);
+
+// AliGenBox *genbox = new AliGenBox(nParticles);
+// genbox->SetPart(22);
+// genbox->SetPtRange(0.3, 10.00);
+// gener->AddGenerator(genbox,"GENBOX GAMMA for PHOS",1);
+// gener->Init();
+
+ AliGenBox *gener = new AliGenBox(1);
+ gener->SetMomentumRange(10,11.);
+ gener->SetPhiRange(60.0,180.0);
+ gener->SetEtaRange(-0.7,0.7);
+
+ gener->SetOrigin(0,0,0); //vertex position
+ gener->SetSigma(0,0,0); //Sigma in (X,Y,Z) (cm) on IP position
+ gener->SetPart(22);
+ gener->Init();
+
+ //
+ // Activate this line if you want the vertex smearing to happen
+ // track by track
+ //
+ //gener->SetVertexSmear(perTrack);
+ // Field (L3 0.4 T)
+ AliMagFMaps* field = new AliMagFMaps("Maps","Maps", 2, 1., 10., 1);
+ gAlice->SetField(field);
+
+
+ Int_t iABSO = 0;
+ Int_t iDIPO = 0;
+ Int_t iFMD = 0;
+ Int_t iFRAME = 0;
+ Int_t iHALL = 0;
+ Int_t iITS = 0;
+ Int_t iMAG = 0;
+ Int_t iMUON = 0;
+ Int_t iPHOS = 0;
+ Int_t iPIPE = 0;
+ Int_t iPMD = 0;
+ Int_t iRICH = 0;
+ Int_t iSHIL = 0;
+ Int_t iSTART = 0;
+ Int_t iTOF = 0;
+ Int_t iTPC = 0;
+ Int_t iTRD = 0;
+ Int_t iZDC = 0;
+ Int_t iEMCAL = 1;
+ Int_t iCRT = 0;
+ Int_t iVZERO = 0;
+ rl->CdGAFile();
+ //=================== Alice BODY parameters =============================
+ AliBODY *BODY = new AliBODY("BODY", "Alice envelop");
+
+ if (iMAG)
+ {
+ //=================== MAG parameters ============================
+ // --- Start with Magnet since detector layouts may be depending ---
+ // --- on the selected Magnet dimensions ---
+ AliMAG *MAG = new AliMAG("MAG", "Magnet");
+ }
+
+
+ if (iABSO)
+ {
+ //=================== ABSO parameters ============================
+ AliABSO *ABSO = new AliABSOv0("ABSO", "Muon Absorber");
+ }
+
+ if (iDIPO)
+ {
+ //=================== DIPO parameters ============================
+
+ AliDIPO *DIPO = new AliDIPOv2("DIPO", "Dipole version 2");
+ }
+
+ if (iHALL)
+ {
+ //=================== HALL parameters ============================
+
+ AliHALL *HALL = new AliHALL("HALL", "Alice Hall");
+ }
+
+
+ if (iFRAME)
+ {
+ //=================== FRAME parameters ============================
+
+ AliFRAMEv2 *FRAME = new AliFRAMEv2("FRAME", "Space Frame");
+ if (geo == kHoles) {
+ FRAME->SetHoles(1);
+ } else {
+ FRAME->SetHoles(0);
+ }
+ }
+
+ if (iSHIL)
+ {
+ //=================== SHIL parameters ============================
+
+ AliSHIL *SHIL = new AliSHILv2("SHIL", "Shielding Version 2");
+ }
+
+
+ if (iPIPE)
+ {
+ //=================== PIPE parameters ============================
+
+ AliPIPE *PIPE = new AliPIPEv0("PIPE", "Beam Pipe");
+ }
+
+ if(iITS) {
+
+ //=================== ITS parameters ============================
+ //
+ // As the innermost detector in ALICE, the Inner Tracking System "impacts" on
+ // almost all other detectors. This involves the fact that the ITS geometry
+ // still has several options to be followed in parallel in order to determine
+ // the best set-up which minimizes the induced background. All the geometries
+ // available to date are described in the following. Read carefully the comments
+ // and use the default version (the only one uncommented) unless you are making
+ // comparisons and you know what you are doing. In this case just uncomment the
+ // ITS geometry you want to use and run Aliroot.
+ //
+ // Detailed geometries:
+ //
+ //
+ //AliITS *ITS = new AliITSv5symm("ITS","Updated ITS TDR detailed version with symmetric services");
+ //
+ //AliITS *ITS = new AliITSv5asymm("ITS","Updates ITS TDR detailed version with asymmetric services");
+ //
+ AliITSvPPRasymm *ITS = new AliITSvPPRasymm("ITS","New ITS PPR detailed version with asymmetric services");
+ ITS->SetMinorVersion(2); // don't touch this parameter if you're not an ITS developer
+ ITS->SetReadDet(kFALSE); // don't touch this parameter if you're not an ITS developer
+ // ITS->SetWriteDet("$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.det"); // don't touch this parameter if you're not an ITS developer
+ ITS->SetThicknessDet1(200.); // detector thickness on layer 1 must be in the range [100,300]
+ ITS->SetThicknessDet2(200.); // detector thickness on layer 2 must be in the range [100,300]
+ ITS->SetThicknessChip1(200.); // chip thickness on layer 1 must be in the range [150,300]
+ ITS->SetThicknessChip2(200.); // chip thickness on layer 2 must be in the range [150,300]
+ ITS->SetRails(0); // 1 --> rails in ; 0 --> rails out
+ ITS->SetCoolingFluid(1); // 1 --> water ; 0 --> freon
+ //
+ //AliITSvPPRsymm *ITS = new AliITSvPPRsymm("ITS","New ITS PPR detailed version with symmetric services");
+ //ITS->SetMinorVersion(2); // don't touch this parameter if you're not an ITS developer
+ //ITS->SetReadDet(kFALSE); // don't touch this parameter if you're not an ITS developer
+ //ITS->SetWriteDet("$ALICE_ROOT/ITS/ITSgeometry_vPPRsymm2.det"); // don't touch this parameter if you're not an ITS developer
+ //ITS->SetThicknessDet1(200.); // detector thickness on layer 1 must be in the range [100,300]
+ //ITS->SetThicknessDet2(200.); // detector thickness on layer 2 must be in the range [100,300]
+ //ITS->SetThicknessChip1(200.); // chip thickness on layer 1 must be in the range [150,300]
+ //ITS->SetThicknessChip2(200.); // chip thickness on layer 2 must be in the range [150,300]
+ //ITS->SetRails(0); // 1 --> rails in ; 0 --> rails out
+ //ITS->SetCoolingFluid(1); // 1 --> water ; 0 --> freon
+ //
+ //
+ // Coarse geometries (warning: no hits are produced with these coarse geometries and they unuseful
+ // for reconstruction !):
+ //
+ //
+ //AliITSvPPRcoarseasymm *ITS = new AliITSvPPRcoarseasymm("ITS","New ITS PPR coarse version with asymmetric services");
+ //ITS->SetRails(0); // 1 --> rails in ; 0 --> rails out
+ //ITS->SetSupportMaterial(0); // 0 --> Copper ; 1 --> Aluminum ; 2 --> Carbon
+ //
+ //AliITS *ITS = new AliITSvPPRcoarsesymm("ITS","New ITS PPR coarse version with symmetric services");
+ //ITS->SetRails(0); // 1 --> rails in ; 0 --> rails out
+ //ITS->SetSupportMaterial(0); // 0 --> Copper ; 1 --> Aluminum ; 2 --> Carbon
+ //
+ //
+ //
+ // Geant3 <-> EUCLID conversion
+ // ============================
+ //
+ // SetEUCLID is a flag to output (=1) or not to output (=0) both geometry and
+ // media to two ASCII files (called by default ITSgeometry.euc and
+ // ITSgeometry.tme) in a format understandable to the CAD system EUCLID.
+ // The default (=0) means that you dont want to use this facility.
+ //
+ ITS->SetEUCLID(0);
+ }
+
+ if (iTPC)
+ {
+ //============================ TPC parameters ================================
+ // --- This allows the user to specify sectors for the SLOW (TPC geometry 2)
+ // --- Simulator. SecAL (SecAU) <0 means that ALL lower (upper)
+ // --- sectors are specified, any value other than that requires at least one
+ // --- sector (lower or upper)to be specified!
+ // --- Reminder: sectors 1-24 are lower sectors (1-12 -> z>0, 13-24 -> z<0)
+ // --- sectors 25-72 are the upper ones (25-48 -> z>0, 49-72 -> z<0)
+ // --- SecLows - number of lower sectors specified (up to 6)
+ // --- SecUps - number of upper sectors specified (up to 12)
+ // --- Sens - sensitive strips for the Slow Simulator !!!
+ // --- This does NOT work if all S or L-sectors are specified, i.e.
+ // --- if SecAL or SecAU < 0
+ //
+ //
+ //-----------------------------------------------------------------------------
+
+ // gROOT->LoadMacro("SetTPCParam.C");
+ // AliTPCParam *param = SetTPCParam();
+ AliTPC *TPC = new AliTPCv2("TPC", "Default");
+
+ // All sectors included
+ TPC->SetSecAU(-1);
+ TPC->SetSecAL(-1);
+ }
+
+
+ if (iTOF) {
+ if (geo == kHoles) {
+ //=================== TOF parameters ============================
+ AliTOF *TOF = new AliTOFv2FHoles("TOF", "TOF with Holes");
+ } else {
+ AliTOF *TOF = new AliTOFv4T0("TOF", "normal TOF");
+ }
+ }
+
+
+ if (iRICH)
+ {
+ //=================== RICH parameters ===========================
+ AliRICH *RICH = new AliRICHv3("RICH", "normal RICH");
+
+ }
+
+
+ if (iZDC)
+ {
+ //=================== ZDC parameters ============================
+
+ AliZDC *ZDC = new AliZDCv2("ZDC", "normal ZDC");
+ }
+
+ if (iTRD)
+ {
+ //=================== TRD parameters ============================
+
+ AliTRD *TRD = new AliTRDv1("TRD", "TRD slow simulator");
+
+ // Select the gas mixture (0: 97% Xe + 3% isobutane, 1: 90% Xe + 10% CO2)
+ TRD->SetGasMix(1);
+ if (geo == kHoles) {
+ // With hole in front of PHOS
+ TRD->SetPHOShole();
+ // With hole in front of RICH
+ TRD->SetRICHhole();
+ }
+ // Switch on TR
+ AliTRDsim *TRDsim = TRD->CreateTR();
+ }
+
+ if (iFMD)
+ {
+ //=================== FMD parameters ============================
+ AliFMD *FMD = new AliFMDv1("FMD", "normal FMD");
+ FMD->SetRingsSi1(256);
+ FMD->SetRingsSi2(128);
+ FMD->SetSectorsSi1(20);
+ FMD->SetSectorsSi2(40);
+ }
+
+ if (iMUON)
+ {
+ //=================== MUON parameters ===========================
+
+ AliMUON *MUON = new AliMUONv1("MUON", "default");
+ }
+ //=================== PHOS parameters ===========================
+
+ if (iPHOS)
+ {
+ AliPHOS *PHOS = new AliPHOSv1("PHOS", "IHEP");
+ }
+
+
+ if (iPMD)
+ {
+ //=================== PMD parameters ============================
+ AliPMD *PMD = new AliPMDv1("PMD", "normal PMD");
+ }
+
+ if (iSTART)
+ {
+ //=================== START parameters ============================
+ AliSTART *START = new AliSTARTv1("START", "START Detector");
+ }
+
+ if (iEMCAL)
+ {
+ //=================== EMCAL parameters ============================
+ AliEMCAL *EMCAL = new AliEMCALv1("EMCAL", "EMCALArch1a");
+ }
+
+ if (iCRT)
+ {
+ //=================== CRT parameters ============================
+ AliCRT *CRT = new AliCRTv0("CRT", "normal ACORDE");
+ }
+
+ if (iVZERO)
+ {
+ //=================== CRT parameters ============================
+ AliVZERO *VZERO = new AliVZEROv2("VZERO", "normal VZERO");
+ }
+
+}
+
+Float_t EtaToTheta(Float_t arg){
+ return (180./TMath::Pi())*2.*atan(exp(-arg));
+}
--- /dev/null
+#! /bin/tcsh -f
+#
+# Prepare the environment
+#
+mkdir $HOME/EMCALTestSuite ; cd $HOME/EMCALTestSuite
+cp $ALICE_ROOT/EMCAL/grunTestSuite.C .
+cp $ALICE_ROOT/EMCAL/ConfigTestSuite.C .
+#
+#begin data
+set MINHITS=68
+set MAXHITS=72
+set MINSDIGITS=68
+set MAXSDIGITS=72
+set MINDIGITS=47
+set MAXDIGITS=51
+set MINEMCRECPOINTS=1
+set MAXEMCRECPOINTS=2
+set MINCPVRECPOINTS=0
+set MAXCPVRECPOINTS=2
+set MINTRACKSEGMENTS=1
+set MAXTRACKSEGMENTS=2
+set MINRECPARTICLES=1
+set MAXRECPARTICLES=2
+#end data
+#
+echo EMCAL Test Suite run on `date` > TestSuite.log
+echo "=======================================================================" >> TestSuite.log
+echo AliROOT version `which aliroot` >> TestSuite.log
+echo Root version `which root` >> TestSuite.log
+echo "=======================================================================" >> TestSuite.log
+#
+# SIMULATION
+#
+echo " **** SIMULATION **** " >> TestSuite.log
+aliroot -b -q grunTestSuite.C\(100\) >>& TestSuite.log
+echo '{ ' > tempo.C
+echo " Int_t minhits = $MINHITS ;" >> tempo.C
+echo " Int_t maxhits = $MAXHITS ;" >> tempo.C
+echo ' AliEMCALGetter * gime = AliEMCALGetter::Instance("galice.root") ;' >> tempo.C
+echo ' TH1F * hitmul = new TH1F("hitmul", "EMCAL Test Suite", 100, 0., 200.) ; ' >> tempo.C
+echo ' Int_t max = gime->MaxEvent() ; ' >> tempo.C
+echo ' Int_t evt = 0 ; ' >> tempo.C
+echo ' for ( evt = 0 ; evt < max ; evt++ ) { ' >> tempo.C
+echo ' gime->Event(evt,"H") ; ' >> tempo.C
+echo ' hitmul->Fill(gime->Hits()->GetEntries()) ; ' >> tempo.C
+echo ' } ' >> tempo.C
+echo ' TF1 * gaus = new TF1("gaus", "gaus", 0., 200.) ; ' >> tempo.C
+echo ' hitmul->Fit(gaus,"", "", 40, 100) ; ' >> tempo.C
+echo ' if( gaus->GetParameter(1) > maxhits || gaus->GetParameter(1) < minhits ) ' >> tempo.C
+echo ' printf("ERRORSIM 1") ; ' >> tempo.C
+echo ' else ' >> tempo.C
+echo ' printf("ERRORSIM 0") ; ' >> tempo.C
+echo '} ' >> tempo.C
+aliroot -b -q tempo.C >>& TestSuite.log
+set ERRORSIM = `cat TestSuite.log | grep ERRORSIM | awk '{print $2}'`
+if($ERRORSIM) then
+ echo ERROR
+ uuencode TestSuite.log TestSuite.log | mail -s 'EMCAL INSTALLATION ERROR' yves.schutz@cern.ch
+ exit(0)
+endif
+rm tempo.C
+#
+# RECONSTRUCTION
+#
+echo " **** RECONSTRUCTION **** " >> TestSuite.log
+aliroot -b >>& TestSuite.log <<EOF
+ AliEMCALSDigitizer sd("galice.root") ;
+ sd.ExecuteTask("deb all") ;
+ AliEMCALDigitizer d("galice.root") ;
+ d.ExecuteTask("deb all") ;
+ AliEMCALClusterizerv1 cl("galice.root") ;
+ cl.ExecuteTask("deb all") ;
+ AliEMCALTrackSegmentMakerv1 ts("galice.root") ;
+ ts.ExecuteTask("deb all") ;
+ AliEMCALPIDv1 pd("galice.root") ;
+ pd.ExecuteTask("deb all") ;
+ .q
+EOF
+echo '{ ' > tempo.C
+echo " Int_t minsdig = $MINSDIGITS ;" >> tempo.C
+echo " Int_t maxsdig = $MAXSDIGITS ;" >> tempo.C
+echo " Int_t mindig = $MINDIGITS ;" >> tempo.C
+echo " Int_t maxdig = $MAXDIGITS ;" >> tempo.C
+echo " Int_t minemcrp = $MINEMCRECPOINTS ;" >> tempo.C
+echo " Int_t maxemcrp = $MAXEMCRECPOINTS ;" >> tempo.C
+echo " Int_t mincpvrp = $MINCPVRECPOINTS ;" >> tempo.C
+echo " Int_t maxcpvrp = $MAXCPVRECPOINTS ;" >> tempo.C
+echo " Int_t mints = $MINTRACKSEGMENTS ;" >> tempo.C
+echo " Int_t maxts = $MAXTRACKSEGMENTS ;" >> tempo.C
+echo " Int_t minpa = $MINRECPARTICLES ;" >> tempo.C
+echo " Int_t maxpa = $MAXRECPARTICLES ;" >> tempo.C
+echo ' AliEMCALGetter * gime = AliEMCALGetter::Instance("galice.root") ;' >> tempo.C
+echo ' TH1F * sdigmul = new TH1F("sdigmul", " SDigits EMCAL Test Suite", 100, 0., 200.) ; ' >> tempo.C
+echo ' TH1F * digmul = new TH1F("digmul", " Digits EMCAL Test Suite", 100, 0., 200.) ; ' >> tempo.C
+echo ' TH1F * emcrpmul= new TH1F("emcrpmul", " EMCRecPoints EMCAL Test Suite", 100, 0., 200.) ; ' >> tempo.C
+echo ' TH1F * cpvrpmul= new TH1F("cpvrpmul", " CPVRecPoints EMCAL Test Suite", 100, 0., 200.) ; ' >> tempo.C
+echo ' TH1F * tsmul = new TH1F("tsmul", " TrackSegments EMCAL Test Suite", 100, 0., 200.) ; ' >> tempo.C
+echo ' TH1F * pamul = new TH1F("pamul", " RecParticles EMCAL Test Suite", 100, 0., 200.) ; ' >> tempo.C
+echo ' Int_t max = gime->MaxEvent() ; ' >> tempo.C
+echo ' Int_t evt = 0 ; ' >> tempo.C
+echo ' for ( evt = 0 ; evt < max ; evt++ ) { ' >> tempo.C
+echo ' gime->Event(evt,"SDRTP") ; ' >> tempo.C
+echo ' sdigmul->Fill(gime->SDigits()->GetEntries()) ; ' >> tempo.C
+echo ' digmul->Fill(gime->Digits()->GetEntries()) ; ' >> tempo.C
+echo ' emcrpmul->Fill(gime->EmcRecPoints()->GetEntries()) ; ' >> tempo.C
+echo ' cpvrpmul->Fill(gime->CpvRecPoints()->GetEntries()) ; ' >> tempo.C
+echo ' tsmul->Fill(gime->TrackSegments()->GetEntries()) ; ' >> tempo.C
+echo ' pamul->Fill(gime->RecParticles()->GetEntries()) ; ' >> tempo.C
+echo ' } ' >> tempo.C
+echo ' TF1 * gaus = new TF1("gaus", "gaus", 0., 200.) ; ' >> tempo.C
+echo ' sdigmul->Fit(gaus, "", "", 40., 100.) ; ' >> tempo.C
+echo ' sdigmul->Draw() ; ' >> tempo.C
+echo ' if( gaus->GetParameter(1) > maxsdig || gaus->GetParameter(1) < minsdig ) ' >> tempo.C
+echo ' printf("ERRORREC 1 sdigits\n") ; ' >> tempo.C
+echo ' digmul->Fit(gaus, "", "", 20., 80.) ; ' >> tempo.C
+echo ' if( gaus->GetParameter(1) > maxdig || gaus->GetParameter(1) < mindig ) ' >> tempo.C
+echo ' printf("ERRORREC 1 digits\n") ; ' >> tempo.C
+echo ' emcrpmul->Fit(gaus, "", "", 0., 4.) ; ' >> tempo.C
+echo ' if( gaus->GetParameter(1) > maxemcrp || gaus->GetParameter(1) < minemcrp ) ' >> tempo.C
+echo ' printf("ERRORREC 1 emc recpoints\n") ; ' >> tempo.C
+echo ' cpvrpmul->Fit(gaus, "", "", 0., 4.) ; ' >> tempo.C
+echo ' if( gaus->GetParameter(1) > maxcpvrp || gaus->GetParameter(1) < mincpvrp ) ' >> tempo.C
+echo ' printf("ERRORREC 1 cpv recpoints\n") ; ' >> tempo.C
+echo ' tsmul->Fit(gaus, "", "", 0., 4.) ; ' >> tempo.C
+echo ' if( gaus->GetParameter(1) > maxts || gaus->GetParameter(1) < mints ) ' >> tempo.C
+echo ' printf("ERRORREC 1 track segments\n") ; ' >> tempo.C
+echo ' pamul->Fit(gaus, "", "", 0., 4. ) ; ' >> tempo.C
+echo ' if( gaus->GetParameter(1) > maxpa || gaus->GetParameter(1) < minpa ) ' >> tempo.C
+echo ' printf("ERRORREC 1 recparticles\n") ; ' >> tempo.C
+echo '} ' >> tempo.C
+aliroot -b -q tempo.C >>& TestSuite.log
+set ERRORREC = `cat TestSuite.log | grep ERRORREC | awk '{print $2}'`
+if($ERRORREC) then
+ echo ERROR
+ uuencode TestSuite.log TestSuite.log | mail -s 'EMCAL INSTALLATION ERROR' yves.schutz@cern.ch
+ exit(0)
+endif
+#rm tempo.C
+#/cd $HOME
+#rm -fr $HOME/EMCALTestSuite