Commit of new FMD3 geometry and other geometry related issues.
[u/mrichter/AliRoot.git] / FMD / Config.C
CommitLineData
7684b53c 1//____________________________________________________________________
2//
3// $Id$
4//
5// One can use the configuration macro in compiled mode by
6// root [0] gSystem->Load("libgeant321");
7// root [0] gSystem->SetIncludePath("-I$ROOTSYS/include -I$ALICE_ROOT/include\
8// -I$ALICE_ROOT -I$ALICE/geant3/TGeant3");
9// root [0] .x grun.C(1,"ConfigPPR.C++")
10//
c2fc1258 11/** @file Config.C
12 @author Christian Holm Christensen <cholm@nbi.dk>
13 @date Mon Mar 27 12:50:29 2006
14 @brief Simulation configuration script
15*/
7684b53c 16#if !defined(__CINT__) || defined(__MAKECINT__)
17#include <Riostream.h>
9bb2665f 18#include <TPDGCode.h>
7684b53c 19#include <TSystem.h>
20#include <TVirtualMC.h>
21#include <TGeant3.h>
22#include "STEER/AliRunLoader.h"
23#include "STEER/AliRun.h"
24#include "STEER/AliConfig.h"
25#include "STEER/AliGenerator.h"
26#include "PYTHIA6/AliDecayerPythia.h"
27#include "EVGEN/AliGenHIJINGpara.h"
28#include "THijing/AliGenHijing.h"
29#include "EVGEN/AliGenCocktail.h"
30#include "EVGEN/AliGenSlowNucleons.h"
31#include "EVGEN/AliSlowNucleonModelExp.h"
32#include "EVGEN/AliGenParam.h"
33#include "EVGEN/AliGenMUONlib.h"
34#include "EVGEN/AliGenMUONCocktail.h"
35#include "PYTHIA6/AliGenPythia.h"
36#include "STEER/AliMagFMaps.h"
37#include "STRUCT/AliBODY.h"
38#include "STRUCT/AliMAG.h"
39#include "STRUCT/AliABSOv0.h"
40#include "STRUCT/AliDIPOv2.h"
41#include "STRUCT/AliHALL.h"
42#include "STRUCT/AliFRAMEv2.h"
43#include "STRUCT/AliSHILv2.h"
44#include "STRUCT/AliPIPEv0.h"
45#include "ITS/AliITSvPPRasymmFMD.h"
46#include "TPC/AliTPCv2.h"
47#include "TOF/AliTOFv4T0.h"
f4b3bbb7 48#include "HMPID/AliHMPIDv1.h"
7684b53c 49#include "ZDC/AliZDCv2.h"
50#include "TRD/AliTRDv1.h"
51#include "FMD/AliFMDv1.h"
52#include "MUON/AliMUONv1.h"
53#include "MUON/AliMUONSt1GeometryBuilderV2.h"
54#include "MUON/AliMUONSt2GeometryBuilder.h"
55#include "MUON/AliMUONSlatGeometryBuilder.h"
56#include "MUON/AliMUONTriggerGeometryBuilder.h"
57#include "PHOS/AliPHOSv1.h"
58#include "PMD/AliPMDv1.h"
ababa197 59#include "T0/AliT0v1.h"
8224b11d 60#include "EMCAL/AliEMCALv2.h"
b384f8a4 61#include "ACORDE/AliACORDEv0.h"
7684b53c 62#include "VZERO/AliVZEROv2.h"
63#endif
0d0e6995 64
7684b53c 65//____________________________________________________________________
66//
67// Generator types
68//
69enum EG_t {
0d0e6995 70 test50,
7684b53c 71 kParam_8000, //
72 kParam_4000, //
73 kParam_2000, //
824466d5 74 kParam_fmd, //
7684b53c 75 kHijing_cent1, //
76 kHijing_cent2, //
77 kHijing_per1, //
78 kHijing_per2, //
79 kHijing_per3, //
80 kHijing_per4, //
81 kHijing_per5, //
82 kHijing_jj25, //
83 kHijing_jj50, //
84 kHijing_jj75, //
85 kHijing_jj100, //
86 kHijing_jj200, //
87 kHijing_gj25, //
88 kHijing_gj50, //
89 kHijing_gj75, //
90 kHijing_gj100, //
91 kHijing_gj200, //
92 kHijing_pA, //
93 kPythia6, //
94 kPythia6Jets20_24, //
95 kPythia6Jets24_29, //
96 kPythia6Jets29_35, //
97 kPythia6Jets35_42, //
98 kPythia6Jets42_50, //
99 kPythia6Jets50_60, //
100 kPythia6Jets60_72, //
101 kPythia6Jets72_86, //
102 kPythia6Jets86_104, //
103 kPythia6Jets104_125, //
104 kPythia6Jets125_150, //
105 kPythia6Jets150_180, //
106 kD0PbPb5500, //
107 kCharmSemiElPbPb5500, //
108 kBeautySemiElPbPb5500, //
109 kCocktailTRD, //
110 kPyJJ, //
111 kPyGJ, //
112 kMuonCocktailCent1, //
113 kMuonCocktailPer1, //
114 kMuonCocktailPer4, //
115 kMuonCocktailCent1HighPt, //
116 kMuonCocktailPer1HighPt, //
117 kMuonCocktailPer4HighPt, //
118 kMuonCocktailCent1Single, //
119 kMuonCocktailPer1Single, //
120 kMuonCocktailPer4Single,
8f6ee336 121 kFMD1Flat,
122 kFMD2Flat,
123 kFMD3Flat,
124 kFMDFlat,
7684b53c 125 kEgMax
0d0e6995 126};
4347b38f 127
7684b53c 128//____________________________________________________________________
129//
130// Generator types names
131//
132const char* egName[kEgMax] = {
133 "test50",
134 "kParam_8000", //
135 "kParam_4000", //
136 "kParam_2000", //
824466d5 137 "kParam_fmd", //
7684b53c 138 "kHijing_cent1", //
139 "kHijing_cent2", //
140 "kHijing_per1", //
141 "kHijing_per2", //
142 "kHijing_per3", //
143 "kHijing_per4", //
144 "kHijing_per5", //
145 "kHijing_jj25", //
146 "kHijing_jj50", //
147 "kHijing_jj75", //
148 "kHijing_jj100", //
149 "kHijing_jj200", //
150 "kHijing_gj25", //
151 "kHijing_gj50", //
152 "kHijing_gj75", //
153 "kHijing_gj100", //
154 "kHijing_gj200", //
155 "kHijing_pA", //
156 "kPythia6", //
157 "kPythia6Jets20_24", //
158 "kPythia6Jets24_29", //
159 "kPythia6Jets29_35", //
160 "kPythia6Jets35_42", //
161 "kPythia6Jets42_50", //
162 "kPythia6Jets50_60", //
163 "kPythia6Jets60_72", //
164 "kPythia6Jets72_86", //
165 "kPythia6Jets86_104", //
166 "kPythia6Jets104_125", //
167 "kPythia6Jets125_150", //
168 "kPythia6Jets150_180", //
169 "kD0PbPb5500", //
170 "kCharmSemiElPbPb5500", //
171 "kBeautySemiElPbPb5500", //
172 "kCocktailTRD", //
173 "kPyJJ", //
174 "kPyGJ", //
175 "kMuonCocktailCent1", //
176 "kMuonCocktailPer1", //
177 "kMuonCocktailPer4", //
178 "kMuonCocktailCent1HighPt", //
179 "kMuonCocktailPer1HighPt", //
180 "kMuonCocktailPer4HighPt", //
181 "kMuonCocktailCent1Single", //
182 "kMuonCocktailPer1Single", //
088f8e79 183 "kMuonCocktailPer4Single",
184 "kFMD1Flat",
185 "kFMD2Flat",
8f6ee336 186 "kFMD3Flat",
187 "kFMDFlat"
0d0e6995 188};
189
7684b53c 190//____________________________________________________________________
191enum Geo_t {
192 kHoles, //
193 kNoHoles //
0d0e6995 194};
195
7684b53c 196//____________________________________________________________________
197enum Rad_t {
198 kGluonRadiation, //
199 kNoGluonRadiation //
0d0e6995 200};
201
7684b53c 202//____________________________________________________________________
203enum Mag_t {
204 k2kG, //
205 k4kG, //
206 k5kG //
207};
208
209//____________________________________________________________________
0d0e6995 210enum MC_t {
211 kFLUKA,
212 kGEANT3,
1a1fdef7 213 kGEANT4,
214 kGEANT3TGEO,
4347b38f 215};
0d0e6995 216
7684b53c 217//____________________________________________________________________
0d0e6995 218// Functions
7684b53c 219Float_t EtaToTheta(Float_t eta);
220Eg_t LookupEG(const Char_t* name);
221AliGenerator* GeneratorFactory(EG_t eg, Rad_t rad, TString& comment);
222AliGenHijing* HijingStandard();
223void ProcessEnvironmentVars(EG_t& eg, Int_t& seed);
42403906 224
7684b53c 225//____________________________________________________________________
226void
227Config()
afddaa11 228{
7684b53c 229 //____________________________________________________________________
230 // This part for configuration
6169f936 231 // EG_t eg = test50;
232 // EG_t eg = kParam_fmd;
d98fbfa5 233 EG_t eg = kFMDFlat; // kParam_2000; // kPythia;
f95a63c4 234 // EG_t eg = kFMDFlat;
7684b53c 235 Geo_t geo = kNoHoles;
236 Rad_t rad = kGluonRadiation;
237 Mag_t mag = k5kG;
238 Int_t seed = 12345; //Set 0 to use the current time
54e415a8 239 MC_t mc = kGEANT3TGEO;
afddaa11 240
7684b53c 241 //____________________________________________________________________
242 // Comment line
243 static TString comment;
244
245 //____________________________________________________________________
246 // Get settings from environment variables
247 ProcessEnvironmentVars(eg, seed);
248
249 //____________________________________________________________________
4347b38f 250 // Set Random Number seed
7684b53c 251 gRandom->SetSeed(seed);
252 cout<<"Seed for random number generation= "<<gRandom->GetSeed()<<endl;
0d0e6995 253
7684b53c 254
255 //__________________________________________________________________
256 switch (mc) {
0d0e6995 257 case kFLUKA:
37c4363a 258 //
259 // libraries required by fluka21
260 //
261 gSystem->Load("libGeom");
262 cout << "\t* Loading TFluka..." << endl;
263 gSystem->Load("libTFluka");
9aa0bdc4 264 gSystem->MakeDirectory("peg");
37c4363a 265 //
266 // FLUKA MC
267 //
268 cout << "\t* Instantiating TFluka..." << endl;
269 new TFluka("C++ Interface to Fluka", 0/*verbosity*/);
0d0e6995 270 break;
271 case kGEANT3:
4ac75127 272 {
273 //
274 // Libraries needed by GEANT 3.21
275 //
276 gSystem->Load("libgeant321");
277
278 //
279 // GEANT 3.21 MC
280 //
281 TGeant3* gmc = new TGeant3("C++ Interface to Geant3");
282 gmc->SetSWIT(4, 1000);
283 }
0d0e6995 284 break;
1a1fdef7 285 case kGEANT3TGEO:
4ac75127 286 {
287 //
288 // Libraries needed by GEANT 3.21
289 //
c1b9c050 290 gSystem->Load("EGPythia6.so");
4ac75127 291 gSystem->Load("libgeant321");
1a1fdef7 292
4ac75127 293 //
294 // GEANT 3.21 MC
295 //
296 TGeant3TGeo* gmc = new TGeant3TGeo("C++ Interface to Geant3");
297 gmc->SetSWIT(4, 1000);
298 Printf("Making a TGeant3TGeo objet");
299 }
1a1fdef7 300 break;
0d0e6995 301 default:
302 gAlice->Fatal("Config.C", "No MC type chosen");
303 return;
304 }
7684b53c 305
306 //__________________________________________________________________
307 AliRunLoader* rl = 0;
308
4347b38f 309 cout<<"Config.C: Creating Run Loader ..."<<endl;
7684b53c 310 rl = AliRunLoader::Open("galice.root",
311 AliConfig::GetDefaultEventFolderName(),
312 "recreate");
4347b38f 313 if (!rl) {
314 gAlice->Fatal("Config.C","Can not instatiate the Run Loader");
315 return;
316 }
317 rl->SetCompressionLevel(2);
318 rl->SetNumberOfEventsPerFile(3);
319 gAlice->SetRunLoader(rl);
320
7684b53c 321 //__________________________________________________________________
322 // For FLUKA
323 switch (mc) {
37c4363a 324 case kFLUKA:
325 {
326 //
327 // Use kTRUE as argument to generate alice.pemf first
328 //
329 TString alice_pemf(gSystem->Which(".", "peg/mat17.pemf"));
330 if (!alice_pemf.IsNull())
331 ((TFluka*)gMC)->SetGeneratePemf(kFALSE);
332 else
333 ((TFluka*)gMC)->SetGeneratePemf(kTRUE);
088f8e79 334 TString flupro(gSystem->Getenv("FLUPRO"));
335 if (flupro.IsNull())
336 Fatal("Config.C", "Environment variable FLUPRO not set");
337#if 0
338 char* files[] = { "brems_fin.bin", "cohff.bin", "elasct.bin",
339 "gxsect.bin", "nuclear.bin", "sigmapi.bin",
340 0 };
341 char* file = files[0];
342 while (file) {
343 TString which(gSystem->Which(".", file));
344 if (which.IsNull()) {
345 if (gSystem->Symlink(Form("%s/%s", flupro.Data(), file), file)!=0)
346 Fatal("Config.C", "Couldn't link $(FLUPRO)/%s -> .", file);
347 }
348 file++;
9aa0bdc4 349 }
088f8e79 350#endif
351 TString neuxsc(gSystem->Which(".", "neuxsc.bin"));
352 if (neuxsc.IsNull())
353 gSystem->Symlink(Form("%s/neuxsc_72.bin", flupro.Data()),
354 "neuxsc.bin");
9aa0bdc4 355 gSystem->CopyFile("$(FLUPRO)/random.dat", "old.seed", kTRUE);
37c4363a 356 }
357 break;
358 }
7684b53c 359
360 //__________________________________________________________________
0d0e6995 361 //
362 // Set External decayer
4ac75127 363#if 0
0d0e6995 364 AliDecayer *decayer = new AliDecayerPythia();
7684b53c 365 switch (eg) {
366 case kD0PbPb5500: decayer->SetForceDecay(kHadronicD); break;
367 case kCharmSemiElPbPb5500: decayer->SetForceDecay(kSemiElectronic); break;
368 case kBeautySemiElPbPb5500: decayer->SetForceDecay(kSemiElectronic); break;
369 default: decayer->SetForceDecay(kAll); break;
370 }
4347b38f 371 decayer->Init();
372 gMC->SetExternalDecayer(decayer);
4ac75127 373#endif
4347b38f 374
7684b53c 375 //__________________________________________________________________
bf000c32 376 // *********** STEERING parameters FOR ALICE SIMULATION ************
377 // - Specify event type to be tracked through the ALICE setup
378 // - All positions are in cm, angles in degrees, and P and E in GeV
4347b38f 379 gMC->SetProcess("DCAY",1);
380 gMC->SetProcess("PAIR",1);
381 gMC->SetProcess("COMP",1);
382 gMC->SetProcess("PHOT",1);
383 gMC->SetProcess("PFIS",0);
7684b53c 384 gMC->SetProcess("DRAY",0);
4347b38f 385 gMC->SetProcess("ANNI",1);
386 gMC->SetProcess("BREM",1);
387 gMC->SetProcess("MUNU",1);
7684b53c 388 gMC->SetProcess("CKOV",1);
4347b38f 389 gMC->SetProcess("HADR",1);
2b893216 390 gMC->SetProcess("LOSS",2); // 0:none 1,3:dray 2:nodray 4:nofluct (def:2)
7684b53c 391 gMC->SetProcess("MULS",1);
4347b38f 392 gMC->SetProcess("RAYL",1);
393
394 Float_t cut = 1.e-3; // 1MeV cut by default
395 Float_t tofmax = 1.e10;
396
397 gMC->SetCut("CUTGAM", cut);
398 gMC->SetCut("CUTELE", cut);
399 gMC->SetCut("CUTNEU", cut);
400 gMC->SetCut("CUTHAD", cut);
401 gMC->SetCut("CUTMUO", cut);
7684b53c 402 gMC->SetCut("BCUTE", cut);
403 gMC->SetCut("BCUTM", cut);
404 gMC->SetCut("DCUTE", cut);
405 gMC->SetCut("DCUTM", cut);
4347b38f 406 gMC->SetCut("PPCUTM", cut);
7684b53c 407 gMC->SetCut("TOFMAX", tofmax);
0d0e6995 408
4ac75127 409
7684b53c 410 //__________________________________________________________________
411 // Generator Configuration
7684b53c 412 AliGenerator* gener = GeneratorFactory(eg, rad, comment);
413 gener->SetOrigin(0, 0, 0); // vertex position
414 gener->SetSigma(0, 0, 5.3); // Sigma in (X,Y,Z) (cm) on IP position
415 gener->SetCutVertexZ(1.); // Truncate at 1 sigma
416 gener->SetVertexSmear(kPerEvent);
417 gener->SetTrackingFlag(1);
418 gener->Init();
419
420 //__________________________________________________________________
0d0e6995 421 //
422 // Comments
423 //
7684b53c 424 switch (mag) {
0d0e6995 425 case k2kG: comment = comment.Append(" | L3 field 0.2 T"); break;
426 case k4kG: comment = comment.Append(" | L3 field 0.4 T"); break;
427 case k5kG: comment = comment.Append(" | L3 field 0.5 T"); break;
428 }
429
7684b53c 430 switch (rad) {
0d0e6995 431 case kGluonRadiation:
432 comment = comment.Append(" | Gluon Radiation On"); break;
433 default:
434 comment = comment.Append(" | Gluon Radiation Off"); break;
435 }
436
7684b53c 437 switch(geo) {
f4b3bbb7 438 case kHoles: comment = comment.Append(" | Holes for PHOS/HMPID"); break;
439 default: comment = comment.Append(" | No holes for PHOS/HMPID"); break;
0d0e6995 440 }
441
442 std::cout << "\n\n Comment: " << comment << "\n" << std::endl;
443
7684b53c 444 //__________________________________________________________________
4347b38f 445 // Field (L3 0.4 T)
7684b53c 446 AliMagFMaps* field = new AliMagFMaps("Maps","Maps", 2, 1., 10., mag);
0d0e6995 447 field->SetL3ConstField(0); //Using const. field in the barrel
448 rl->CdGAFile();
7684b53c 449 gAlice->SetField(field);
ed82d35e 450 TFile* magF = TFile::Open("mag.root", "RECREATE");
451 field->Write("mag");
452 magF->Close();
0d0e6995 453
7684b53c 454 //__________________________________________________________________
0d0e6995 455 //
456 // Used detectors
457 //
ed82d35e 458 Bool_t useABSO = kTRUE;
65af05bc 459 Bool_t useACORDE= kFALSE;
4ac75127 460 Bool_t useDIPO = kFALSE;
0d0e6995 461 Bool_t useFMD = kTRUE;
4ac75127 462 Bool_t useFRAME = kFALSE;
69b696b9 463 Bool_t useHALL = kFALSE;
ed82d35e 464 Bool_t useITS = kTRUE;
4ac75127 465 Bool_t useMAG = kFALSE;
466 Bool_t useMUON = kFALSE;
467 Bool_t usePHOS = kFALSE;
65af05bc 468 Bool_t usePIPE = kTRUE;
4ac75127 469 Bool_t usePMD = kFALSE;
65af05bc 470 Bool_t useHMPID = kFALSE;
4ac75127 471 Bool_t useSHIL = kFALSE;
ed82d35e 472 Bool_t useT0 = kTRUE;
4ac75127 473 Bool_t useTOF = kFALSE;
474 Bool_t useTPC = kFALSE;
475 Bool_t useTRD = kFALSE;
69b696b9 476 Bool_t useZDC = kFALSE;
4ac75127 477 Bool_t useEMCAL = kFALSE;
ed82d35e 478 Bool_t useVZERO = kTRUE;
4347b38f 479
0d0e6995 480 cout << "\t* Creating the detectors ..." << endl;
bf000c32 481 // ================= Alice BODY parameters =========================
4347b38f 482 AliBODY *BODY = new AliBODY("BODY", "Alice envelop");
483
0d0e6995 484
4347b38f 485 if (useMAG) {
bf000c32 486 // =================== MAG parameters ============================
0d0e6995 487 // Start with Magnet since detector layouts may be depending on
488 // the selected Magnet dimensions
4347b38f 489 AliMAG *MAG = new AliMAG("MAG", "Magnet");
490 }
491
492 if (useABSO) {
bf000c32 493 // =================== ABSO parameters ===========================
4347b38f 494 AliABSO *ABSO = new AliABSOv0("ABSO", "Muon Absorber");
495 }
496
497 if (useDIPO) {
bf000c32 498 // =================== DIPO parameters ===========================
4347b38f 499 AliDIPO *DIPO = new AliDIPOv2("DIPO", "Dipole version 2");
500 }
501
502 if (useHALL) {
bf000c32 503 // =================== HALL parameters ===========================
4347b38f 504 AliHALL *HALL = new AliHALL("HALL", "Alice Hall");
505 }
506
507
508 if (useFRAME) {
bf000c32 509 // ================== FRAME parameters ===========================
4347b38f 510 AliFRAMEv2 *FRAME = new AliFRAMEv2("FRAME", "Space Frame");
7684b53c 511 switch (geo) {
0d0e6995 512 case kHoles: FRAME->SetHoles(1); break;
513 default: FRAME->SetHoles(0); break;
4347b38f 514 }
515 }
516
517 if (useSHIL) {
bf000c32 518 // ================== SHIL parameters ============================
4347b38f 519 AliSHIL *SHIL = new AliSHILv2("SHIL", "Shielding Version 2");
520 }
521
522
523 if (usePIPE) {
bf000c32 524 // ================== PIPE parameters ============================
4347b38f 525 AliPIPE *PIPE = new AliPIPEv0("PIPE", "Beam Pipe");
526 }
0d0e6995 527
528 if (useITS) {
458e52e8 529 AliITS *ITS = new AliITSv11Hybrid("ITS","ITS v11Hybrid");
530#if 0
bf000c32 531 // =================== ITS parameters ============================
4347b38f 532 //
533 // As the innermost detector in ALICE, the Inner Tracking System
534 // "impacts" on almost all other detectors. This involves the fact
535 // that the ITS geometry still has several options to be followed
536 // in parallel in order to determine the best set-up which
537 // minimizes the induced background. All the geometries available
538 // to date are described in the following. Read carefully the
539 // comments and use the default version (the only one uncommented)
540 // unless you are making comparisons and you know what you are
541 // doing. In this case just uncomment the ITS geometry you want to
542 // use and run Aliroot.
543 //
0d0e6995 544 // Detailed geometries:
4347b38f 545 //
546 //
0d0e6995 547 // AliITS *ITS =
548 // new AliITSv5symm("ITS", "Updated ITS TDR detailed version "
549 // "with symmetric services");
550 // AliITS *ITS =
551 // new AliITSv5asymm("ITS","Updates ITS TDR detailed version "
552 // "with asymmetric services");
4347b38f 553 //
0d0e6995 554 AliITSvPPRasymmFMD *ITS =
555 new AliITSvPPRasymmFMD("ITS","New ITS PPR detailed version "
556 "with asymmetric services");
557 // don't touch this parameter if you're not an ITS developer
558 ITS->SetMinorVersion(2);
4347b38f 559 // don't touch this parameter if you're not an ITS developer
0d0e6995 560 ITS->SetReadDet(kTRUE);
4347b38f 561 // don't touch this parameter if you're not an ITS developer
0d0e6995 562 // ITS->SetWriteDet("$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.det");
4347b38f 563 // detector thickness on layer 1 must be in the range [100,300]
564 ITS->SetThicknessDet1(200.);
565 // detector thickness on layer 2 must be in the range [100,300]
566 ITS->SetThicknessDet2(200.);
567 // chip thickness on layer 1 must be in the range [150,300]
568 ITS->SetThicknessChip1(200.);
569 // chip thickness on layer 2 must be in the range [150,300]
0d0e6995 570 ITS->SetThicknessChip2(200.);
4347b38f 571 // 1 --> rails in ; 0 --> rails out
0d0e6995 572 ITS->SetRails(0);
4347b38f 573 // 1 --> water ; 0 --> freon
0d0e6995 574 ITS->SetCoolingFluid(1);
4347b38f 575
4347b38f 576 // Coarse geometries (warning: no hits are produced with these
577 // coarse geometries and they unuseful for reconstruction !):
4347b38f 578 //
0d0e6995 579 //
580 // AliITSvPPRcoarseasymm *ITS =
4347b38f 581 // new AliITSvPPRcoarseasymm("ITS","New ITS PPR coarse version "
0d0e6995 582 // "with asymmetric services");
4347b38f 583 // 1 --> rails in ; 0 --> rails out
0d0e6995 584 // ITS->SetRails(0);
4347b38f 585 // 0 --> Copper ; 1 --> Aluminum ; 2 --> Carbon
586 // ITS->SetSupportMaterial(0);
587 //
588 // AliITS *ITS =
0d0e6995 589 // new AliITSvPPRcoarsesymm("ITS","New ITS PPR coarse version "
590 // "with symmetric services");
4347b38f 591 // 1 --> rails in ; 0 --> rails out
592 // ITS->SetRails(0);
593 // 0 --> Copper ; 1 --> Aluminum ; 2 --> Carbon
594 // ITS->SetSupportMaterial(0);
4347b38f 595 //
596 // Geant3 <-> EUCLID conversion
597 // ============================
598 //
599 // SetEUCLID is a flag to output (=1) or not to output (=0) both
600 // geometry and media to two ASCII files (called by default
601 // ITSgeometry.euc and ITSgeometry.tme) in a format understandable
602 // to the CAD system EUCLID. The default (=0) means that you dont
603 // want to use this facility.
604 //
0d0e6995 605 ITS->SetEUCLID(0);
458e52e8 606#endif
4347b38f 607 }
608
609 if (useTPC) {
bf000c32 610 // =================== TPC parameters ============================
4347b38f 611 //
612 // This allows the user to specify sectors for the SLOW (TPC
613 // geometry 2) Simulator. SecAL (SecAU) <0 means that ALL lower
614 // (upper) sectors are specified, any value other than that
615 // requires at least one sector (lower or upper)to be specified!
0d0e6995 616 //
617 // Reminder:
618 // sectors 1-24 are lower sectors (1-12 -> z>0, 13-24 -> z<0)
619 // sectors 25-72 are the upper ones (25-48 -> z>0, 49-72 -> z<0)
620 //
4347b38f 621 // SecLows - number of lower sectors specified (up to 6)
622 // SecUps - number of upper sectors specified (up to 12)
623 // Sens - sensitive strips for the Slow Simulator !!!
624 //
625 // This does NOT work if all S or L-sectors are specified, i.e.
626 // if SecAL or SecAU < 0
627 //
628 //
629 //----------------------------------------------------------------
630 // gROOT->LoadMacro("SetTPCParam.C");
631 // AliTPCParam *param = SetTPCParam();
632 AliTPC *TPC = new AliTPCv2("TPC", "Default");
4347b38f 633 }
0d0e6995 634
4347b38f 635 if (useTOF) {
bf000c32 636 // ================== TOF parameters =============================
4347b38f 637 AliTOF *TOF = new AliTOFv4T0("TOF", "normal TOF");
638 }
639
f4b3bbb7 640 if (useHMPID) {
641 // ================== HMPID parameters ============================
642 AliHMPID *HMPID = new AliHMPIDv1("HMPID", "normal HMPID");
0d0e6995 643
4347b38f 644 }
645
646 if (useZDC) {
bf000c32 647 // ================== ZDC parameters =============================
4347b38f 648 AliZDC *ZDC = new AliZDCv2("ZDC", "normal ZDC");
649 }
650
651 if (useTRD) {
bf000c32 652 // ================== TRD parameters =============================
4347b38f 653 AliTRD *TRD = new AliTRDv1("TRD", "TRD slow simulator");
0d0e6995 654
655 // Select the gas mixture (0: 97% Xe + 3% isobutane, 1: 90% Xe + 10% CO2)
4347b38f 656 TRD->SetGasMix(1);
7684b53c 657 if (geo == kHoles) {
4347b38f 658 // With hole in front of PHOS
659 TRD->SetPHOShole();
f4b3bbb7 660 // With hole in front of HMPID
661 TRD->SetHMPIDhole();
4347b38f 662 }
663 // Switch on TR
664 AliTRDsim *TRDsim = TRD->CreateTR();
665 }
666
667 if (useFMD) {
bf000c32 668 // =================== FMD parameters ============================
0d0e6995 669 AliFMD *FMD = new AliFMDv1("FMD", "normal FMD");
54e415a8 670 // FMD->UseDetailed(kFALSE);
671 // FMD->UseAssembly();
672 // FMD->UseOld();
4347b38f 673 }
674
675 if (useMUON) {
bf000c32 676 // =================== MUON parameters ===========================
4347b38f 677 AliMUON *MUON = new AliMUONv1("MUON", "default");
bf000c32 678 // MUON->AddGeometryBuilder(new AliMUONSt1GeometryBuilder(MUON));
679 // MUON->AddGeometryBuilder(new AliMUONSt2GeometryBuilder(MUON));
680 // MUON->AddGeometryBuilder(new AliMUONSlatGeometryBuilder(MUON));
681 // MUON->AddGeometryBuilder(new AliMUONTriggerGeometryBuilder(MUON));
4347b38f 682 }
0d0e6995 683
4347b38f 684 if (usePHOS) {
bf000c32 685 // =================== PHOS parameters ===========================
4347b38f 686 AliPHOS *PHOS = new AliPHOSv1("PHOS", "IHEP");
687 }
688
689 if (usePMD) {
bf000c32 690 // =================== PMD parameters ============================
4347b38f 691 AliPMD *PMD = new AliPMDv1("PMD", "normal PMD");
692 }
693
ababa197 694 if (useT0) {
695 // =================== T0 parameters ==========================
696 AliT0 *T0 = new AliT0v1("T0", "T0 Detector");
4347b38f 697 }
698
699 if (useEMCAL) {
bf000c32 700 // =================== EMCAL parameters ==========================
8224b11d 701 AliEMCAL *EMCAL = new AliEMCALv2("EMCAL", "EMCAL_COMPLETE");
4347b38f 702 }
703
b384f8a4 704 if (useACORDE) {
705 // =================== ACORDE parameters ============================
706 AliACORDE *ACORDE = new AliACORDEv0("ACORDE", "normal ACORDE");
4347b38f 707 }
708
709 if (useVZERO) {
bf000c32 710 // =================== V0 parameters =============================
4347b38f 711 AliVZERO *VZERO = new AliVZEROv3("VZERO", "normal VZERO");
712 }
4347b38f 713}
714
7684b53c 715//____________________________________________________________________
0d0e6995 716Float_t EtaToTheta(Float_t arg)
717{
7684b53c 718 return (180./TMath::Pi())*2.*TMath::ATan(TMath::Exp(-arg));
719}
720
721//____________________________________________________________________
722Int_t
723LookupEG(const Char_t* name)
724{
725 TString n(name);
726 for (Int_t i = 0; i < kEgMax; i++) {
727 if (n == egName[i]) return i;
728 }
729 return -1;
730}
731
732//____________________________________________________________________
733AliGenerator*
734GeneratorFactory(EG_t eg, Rad_t rad, TString& comment)
735{
736 Int_t isw = 3;
737 if (rad == kNoGluonRadiation) isw = 0;
738
739
740 AliGenerator * gGener = 0;
741 switch (eg) {
742 case test50:
743 {
744 comment = comment.Append(":HIJINGparam test 50 particles");
745 AliGenHIJINGpara *gener = new AliGenHIJINGpara(50);
746 gener->SetMomentumRange(0, 999999.);
747 gener->SetPhiRange(0., 360.);
748 // Set pseudorapidity range from -8 to 8.
749 Float_t thmin = EtaToTheta(8); // theta min. <---> eta max
750 Float_t thmax = EtaToTheta(-8); // theta max. <---> eta min
751 gener->SetThetaRange(thmin,thmax);
752 gGener=gener;
753 }
754 break;
755 case kParam_8000:
756 {
757 comment = comment.Append(":HIJINGparam N=8000");
758 AliGenHIJINGpara *gener = new AliGenHIJINGpara(86030);
759 gener->SetMomentumRange(0, 999999.);
760 gener->SetPhiRange(0., 360.);
761 // Set pseudorapidity range from -8 to 8.
762 Float_t thmin = EtaToTheta(8); // theta min. <---> eta max
763 Float_t thmax = EtaToTheta(-8); // theta max. <---> eta min
764 gener->SetThetaRange(thmin,thmax);
765 gGener=gener;
766 }
767 break;
768 case kParam_4000:
769 {
770 comment = comment.Append("HIJINGparam N=4000");
771 AliGenHIJINGpara *gener = new AliGenHIJINGpara(43015);
772 gener->SetMomentumRange(0, 999999.);
773 gener->SetPhiRange(0., 360.);
774 // Set pseudorapidity range from -8 to 8.
775 Float_t thmin = EtaToTheta(8); // theta min. <---> eta max
776 Float_t thmax = EtaToTheta(-8); // theta max. <---> eta min
777 gener->SetThetaRange(thmin,thmax);
778 gGener=gener;
779 }
780 break;
781 case kParam_2000:
782 {
783 comment = comment.Append("HIJINGparam N=2000");
784 AliGenHIJINGpara *gener = new AliGenHIJINGpara(21507);
785 gener->SetMomentumRange(0, 999999.);
786 gener->SetPhiRange(0., 360.);
787 // Set pseudorapidity range from -8 to 8.
788 Float_t thmin = EtaToTheta(8); // theta min. <---> eta max
789 Float_t thmax = EtaToTheta(-8); // theta max. <---> eta min
824466d5 790 gener->SetThetaRange(thmin,thmax);
791 gGener=gener;
792 }
793 break;
794 case kParam_fmd:
795 {
796 comment = comment.Append("HIJINGparam N=100");
1a1fdef7 797 AliGenHIJINGpara *gener = new AliGenHIJINGpara(500);
824466d5 798 gener->SetMomentumRange(0, 999999.);
799 gener->SetPhiRange(0., 360.);
800 // Set pseudorapidity range from -8 to 8.
1a1fdef7 801 Float_t thmin = EtaToTheta(6); // theta min. <---> eta max
802 Float_t thmax = EtaToTheta(2); // theta max. <---> eta min
7684b53c 803 gener->SetThetaRange(thmin,thmax);
804 gGener=gener;
805 }
806 break;
807 //
808 // Hijing Central
809 //
810 case kHijing_cent1:
811 {
812 comment = comment.Append("HIJING cent1");
813 AliGenHijing *gener = HijingStandard();
814 // impact parameter range
815 gener->SetImpactParameterRange(0., 5.);
816 gGener=gener;
817 }
818 break;
819 case kHijing_cent2:
820 {
821 comment = comment.Append("HIJING cent2");
822 AliGenHijing *gener = HijingStandard();
823 // impact parameter range
824 gener->SetImpactParameterRange(0., 2.);
825 gGener=gener;
826 }
827 break;
828 //
829 // Hijing Peripheral
830 //
831 case kHijing_per1:
832 {
833 comment = comment.Append("HIJING per1");
834 AliGenHijing *gener = HijingStandard();
835 // impact parameter range
836 gener->SetImpactParameterRange(5., 8.6);
837 gGener=gener;
838 }
839 break;
840 case kHijing_per2:
841 {
842 comment = comment.Append("HIJING per2");
843 AliGenHijing *gener = HijingStandard();
844 // impact parameter range
845 gener->SetImpactParameterRange(8.6, 11.2);
846 gGener=gener;
847 }
848 break;
849 case kHijing_per3:
850 {
851 comment = comment.Append("HIJING per3");
852 AliGenHijing *gener = HijingStandard();
853 // impact parameter range
854 gener->SetImpactParameterRange(11.2, 13.2);
855 gGener=gener;
856 }
857 break;
858 case kHijing_per4:
859 {
860 comment = comment.Append("HIJING per4");
861 AliGenHijing *gener = HijingStandard();
862 // impact parameter range
863 gener->SetImpactParameterRange(13.2, 15.);
864 gGener=gener;
865 }
866 break;
867 case kHijing_per5:
868 {
869 comment = comment.Append("HIJING per5");
870 AliGenHijing *gener = HijingStandard();
871 // impact parameter range
872 gener->SetImpactParameterRange(15., 100.);
873 gGener=gener;
874 }
875 break;
876 //
877 // Jet-Jet
878 //
879 case kHijing_jj25:
880 {
881 comment = comment.Append("HIJING Jet 25 GeV");
882 AliGenHijing *gener = HijingStandard();
883 // impact parameter range
884 gener->SetImpactParameterRange(0., 5.);
885 // trigger
886 gener->SetTrigger(1);
887 gener->SetPtJet(25.);
888 gener->SetRadiation(isw);
889 gener->SetSimpleJets(!isw);
890 gener->SetJetEtaRange(-0.3,0.3);
891 gener->SetJetPhiRange(75., 165.);
892 gGener=gener;
893 }
894 break;
895
896 case kHijing_jj50:
897 {
898 comment = comment.Append("HIJING Jet 50 GeV");
899 AliGenHijing *gener = HijingStandard();
900 // impact parameter range
901 gener->SetImpactParameterRange(0., 5.);
902 // trigger
903 gener->SetTrigger(1);
904 gener->SetPtJet(50.);
905 gener->SetRadiation(isw);
906 gener->SetSimpleJets(!isw);
907 gener->SetJetEtaRange(-0.3,0.3);
908 gener->SetJetPhiRange(75., 165.);
909 gGener=gener;
910 }
911 break;
912
913 case kHijing_jj75:
914 {
915 comment = comment.Append("HIJING Jet 75 GeV");
916 AliGenHijing *gener = HijingStandard();
917 // impact parameter range
918 gener->SetImpactParameterRange(0., 5.);
919 // trigger
920 gener->SetTrigger(1);
921 gener->SetPtJet(75.);
922 gener->SetRadiation(isw);
923 gener->SetSimpleJets(!isw);
924 gener->SetJetEtaRange(-0.3,0.3);
925 gener->SetJetPhiRange(75., 165.);
926 gGener=gener;
927 }
928 break;
929
930 case kHijing_jj100:
931 {
932 comment = comment.Append("HIJING Jet 100 GeV");
933 AliGenHijing *gener = HijingStandard();
934 // impact parameter range
935 gener->SetImpactParameterRange(0., 5.);
936 // trigger
937 gener->SetTrigger(1);
938 gener->SetPtJet(100.);
939 gener->SetRadiation(isw);
940 gener->SetSimpleJets(!isw);
941 gener->SetJetEtaRange(-0.3,0.3);
942 gener->SetJetPhiRange(75., 165.);
943 gGener=gener;
944 }
945 break;
946
947 case kHijing_jj200:
948 {
949 comment = comment.Append("HIJING Jet 200 GeV");
950 AliGenHijing *gener = HijingStandard();
951 // impact parameter range
952 gener->SetImpactParameterRange(0., 5.);
953 // trigger
954 gener->SetTrigger(1);
955 gener->SetPtJet(200.);
956 gener->SetRadiation(isw);
957 gener->SetSimpleJets(!isw);
958 gener->SetJetEtaRange(-0.3,0.3);
959 gener->SetJetPhiRange(75., 165.);
960 gGener=gener;
961 }
962 break;
963 //
964 // Gamma-Jet
965 //
966 case kHijing_gj25:
967 {
968 comment = comment.Append("HIJING Gamma 25 GeV");
969 AliGenHijing *gener = HijingStandard();
970 // impact parameter range
971 gener->SetImpactParameterRange(0., 5.);
972 // trigger
973 gener->SetTrigger(2);
974 gener->SetPtJet(25.);
975 gener->SetRadiation(isw);
976 gener->SetSimpleJets(!isw);
977 gener->SetJetEtaRange(-0.12, 0.12);
978 gener->SetJetPhiRange(220., 320.);
979 gGener=gener;
980 }
981 break;
982
983 case kHijing_gj50:
984 {
985 comment = comment.Append("HIJING Gamma 50 GeV");
986 AliGenHijing *gener = HijingStandard();
987 // impact parameter range
988 gener->SetImpactParameterRange(0., 5.);
989 // trigger
990 gener->SetTrigger(2);
991 gener->SetPtJet(50.);
992 gener->SetRadiation(isw);
993 gener->SetSimpleJets(!isw);
994 gener->SetJetEtaRange(-0.12, 0.12);
995 gener->SetJetPhiRange(220., 320.);
996 gGener=gener;
997 }
998 break;
999
1000 case kHijing_gj75:
1001 {
1002 comment = comment.Append("HIJING Gamma 75 GeV");
1003 AliGenHijing *gener = HijingStandard();
1004 // impact parameter range
1005 gener->SetImpactParameterRange(0., 5.);
1006 // trigger
1007 gener->SetTrigger(2);
1008 gener->SetPtJet(75.);
1009 gener->SetRadiation(isw);
1010 gener->SetSimpleJets(!isw);
1011 gener->SetJetEtaRange(-0.12, 0.12);
1012 gener->SetJetPhiRange(220., 320.);
1013 gGener=gener;
1014 }
1015 break;
1016
1017 case kHijing_gj100:
1018 {
1019 comment = comment.Append("HIJING Gamma 100 GeV");
1020 AliGenHijing *gener = HijingStandard();
1021 // impact parameter range
1022 gener->SetImpactParameterRange(0., 5.);
1023 // trigger
1024 gener->SetTrigger(2);
1025 gener->SetPtJet(100.);
1026 gener->SetRadiation(isw);
1027 gener->SetSimpleJets(!isw);
1028 gener->SetJetEtaRange(-0.12, 0.12);
1029 gener->SetJetPhiRange(220., 320.);
1030 gGener=gener;
1031 }
1032 break;
1033
1034 case kHijing_gj200:
1035 {
1036 comment = comment.Append("HIJING Gamma 200 GeV");
1037 AliGenHijing *gener = HijingStandard();
1038 // impact parameter range
1039 gener->SetImpactParameterRange(0., 5.);
1040 // trigger
1041 gener->SetTrigger(2);
1042 gener->SetPtJet(200.);
1043 gener->SetRadiation(isw);
1044 gener->SetSimpleJets(!isw);
1045 gener->SetJetEtaRange(-0.12, 0.12);
1046 gener->SetJetPhiRange(220., 320.);
1047 gGener=gener;
1048 }
1049 break;
1050 case kHijing_pA:
1051 {
1052 comment = comment.Append("HIJING pA");
1053
1054 AliGenCocktail *gener = new AliGenCocktail();
1055
1056 AliGenHijing *hijing = new AliGenHijing(-1);
1057 // centre of mass energy
1058 hijing->SetEnergyCMS(TMath::Sqrt(82./208.) * 14000.);
1059 // impact parameter range
1060 hijing->SetImpactParameterRange(0., 15.);
1061 // reference frame
1062 hijing->SetReferenceFrame("CMS");
1063 hijing->SetBoostLHC(1);
1064 // projectile
1065 hijing->SetProjectile("P", 1, 1);
1066 hijing->SetTarget ("A", 208, 82);
1067 // tell hijing to keep the full parent child chain
1068 hijing->KeepFullEvent();
1069 // enable jet quenching
1070 hijing->SetJetQuenching(0);
1071 // enable shadowing
1072 hijing->SetShadowing(1);
1073 // Don't track spectators
1074 hijing->SetSpectators(0);
1075 // kinematic selection
1076 hijing->SetSelectAll(0);
1077 //
1078 AliGenSlowNucleons* gray = new AliGenSlowNucleons(1);
1079 AliSlowNucleonModel* model = new AliSlowNucleonModelExp();
1080 gray->SetSlowNucleonModel(model);
1081 gray->SetDebug(1);
1082 gener->AddGenerator(hijing,"Hijing pPb", 1);
1083 gener->AddGenerator(gray, "Gray Particles",1);
1084 gGener=gener;
1085 }
1086 break;
1087 case kPythia6:
1088 {
1089 comment = comment.Append(":Pythia p-p @ 14 TeV");
1090 AliGenPythia *gener = new AliGenPythia(-1);
1091 gener->SetMomentumRange(0,999999);
1092 gener->SetThetaRange(0., 180.);
1093 gener->SetYRange(-12,12);
1094 gener->SetPtRange(0,1000);
1095 gener->SetProcess(kPyMb);
1096 gener->SetEnergyCMS(14000.);
1097 gGener=gener;
1098 }
1099 break;
1100 case kPythia6Jets20_24:
1101 {
1102 comment = comment.Append(":Pythia jets 20-24 GeV @ 5.5 TeV");
1103 AliGenPythia * gener = new AliGenPythia(-1);
1104 gener->SetEnergyCMS(5500.);// Centre of mass energy
1105 gener->SetProcess(kPyJets);// Process type
1106 gener->SetJetEtaRange(-0.5, 0.5);// Final state kinematic cuts
1107 gener->SetJetPhiRange(0., 360.);
1108 gener->SetJetEtRange(10., 1000.);
1109 gener->SetGluonRadiation(1,1);
1110 // gener->SetPtKick(0.);
1111 // Structure function
1112 gener->SetStrucFunc(kCTEQ4L);
1113 gener->SetPtHard(20., 24.);// Pt transfer of the hard scattering
1114 gener->SetPycellParameters(2., 274, 432, 0., 4., 5., 1.0);
1115 gener->SetForceDecay(kAll);// Decay type (semielectronic, etc.)
1116 gGener=gener;
1117 }
1118 break;
1119 case kPythia6Jets24_29:
1120 {
1121 comment = comment.Append(":Pythia jets 24-29 GeV @ 5.5 TeV");
1122 AliGenPythia * gener = new AliGenPythia(-1);
1123 gener->SetEnergyCMS(5500.);// Centre of mass energy
1124 gener->SetProcess(kPyJets);// Process type
1125 gener->SetJetEtaRange(-0.5, 0.5);// Final state kinematic cuts
1126 gener->SetJetPhiRange(0., 360.);
1127 gener->SetJetEtRange(10., 1000.);
1128 gener->SetGluonRadiation(1,1);
1129 // gener->SetPtKick(0.);
1130 // Structure function
1131 gener->SetStrucFunc(kCTEQ4L);
1132 gener->SetPtHard(24., 29.);// Pt transfer of the hard scattering
1133 gener->SetPycellParameters(2., 274, 432, 0., 4., 5., 1.0);
1134 gener->SetForceDecay(kAll);// Decay type (semielectronic, etc.)
1135 gGener=gener;
1136 }
1137 break;
1138 case kPythia6Jets29_35:
1139 {
1140 comment = comment.Append(":Pythia jets 29-35 GeV @ 5.5 TeV");
1141 AliGenPythia * gener = new AliGenPythia(-1);
1142 gener->SetEnergyCMS(5500.);// Centre of mass energy
1143 gener->SetProcess(kPyJets);// Process type
1144 gener->SetJetEtaRange(-0.5, 0.5);// Final state kinematic cuts
1145 gener->SetJetPhiRange(0., 360.);
1146 gener->SetJetEtRange(10., 1000.);
1147 gener->SetGluonRadiation(1,1);
1148 // gener->SetPtKick(0.);
1149 // Structure function
1150 gener->SetStrucFunc(kCTEQ4L);
1151 gener->SetPtHard(29., 35.);// Pt transfer of the hard scattering
1152 gener->SetPycellParameters(2., 274, 432, 0., 4., 5., 1.0);
1153 gener->SetForceDecay(kAll);// Decay type (semielectronic, etc.)
1154 gGener=gener;
1155 }
1156 break;
1157 case kPythia6Jets35_42:
1158 {
1159 comment = comment.Append(":Pythia jets 35-42 GeV @ 5.5 TeV");
1160 AliGenPythia * gener = new AliGenPythia(-1);
1161 gener->SetEnergyCMS(5500.);// Centre of mass energy
1162 gener->SetProcess(kPyJets);// Process type
1163 gener->SetJetEtaRange(-0.5, 0.5);// Final state kinematic cuts
1164 gener->SetJetPhiRange(0., 360.);
1165 gener->SetJetEtRange(10., 1000.);
1166 gener->SetGluonRadiation(1,1);
1167 // gener->SetPtKick(0.);
1168 // Structure function
1169 gener->SetStrucFunc(kCTEQ4L);
1170 gener->SetPtHard(35., 42.);// Pt transfer of the hard scattering
1171 gener->SetPycellParameters(2., 274, 432, 0., 4., 5., 1.0);
1172 gener->SetForceDecay(kAll);// Decay type (semielectronic, etc.)
1173 gGener=gener;
1174 }
1175 break;
1176 case kPythia6Jets42_50:
1177 {
1178 comment = comment.Append(":Pythia jets 42-50 GeV @ 5.5 TeV");
1179 AliGenPythia * gener = new AliGenPythia(-1);
1180 gener->SetEnergyCMS(5500.);// Centre of mass energy
1181 gener->SetProcess(kPyJets);// Process type
1182 gener->SetJetEtaRange(-0.5, 0.5);// Final state kinematic cuts
1183 gener->SetJetPhiRange(0., 360.);
1184 gener->SetJetEtRange(10., 1000.);
1185 gener->SetGluonRadiation(1,1);
1186 // gener->SetPtKick(0.);
1187 // Structure function
1188 gener->SetStrucFunc(kCTEQ4L);
1189 gener->SetPtHard(42., 50.);// Pt transfer of the hard scattering
1190 gener->SetPycellParameters(2., 274, 432, 0., 4., 5., 1.0);
1191 gener->SetForceDecay(kAll);// Decay type (semielectronic, etc.)
1192 gGener=gener;
1193 }
1194 break;
1195 case kPythia6Jets50_60:
1196 {
1197 comment = comment.Append(":Pythia jets 50-60 GeV @ 5.5 TeV");
1198 AliGenPythia * gener = new AliGenPythia(-1);
1199 gener->SetEnergyCMS(5500.);// Centre of mass energy
1200 gener->SetProcess(kPyJets);// Process type
1201 gener->SetJetEtaRange(-0.5, 0.5);// Final state kinematic cuts
1202 gener->SetJetPhiRange(0., 360.);
1203 gener->SetJetEtRange(10., 1000.);
1204 gener->SetGluonRadiation(1,1);
1205 // gener->SetPtKick(0.);
1206 // Structure function
1207 gener->SetStrucFunc(kCTEQ4L);
1208 gener->SetPtHard(50., 60.);// Pt transfer of the hard scattering
1209 gener->SetPycellParameters(2., 274, 432, 0., 4., 5., 1.0);
1210 gener->SetForceDecay(kAll);// Decay type (semielectronic, etc.)
1211 gGener=gener;
1212 }
1213 break;
1214 case kPythia6Jets60_72:
1215 {
1216 comment = comment.Append(":Pythia jets 60-72 GeV @ 5.5 TeV");
1217 AliGenPythia * gener = new AliGenPythia(-1);
1218 gener->SetEnergyCMS(5500.);// Centre of mass energy
1219 gener->SetProcess(kPyJets);// Process type
1220 gener->SetJetEtaRange(-0.5, 0.5);// Final state kinematic cuts
1221 gener->SetJetPhiRange(0., 360.);
1222 gener->SetJetEtRange(10., 1000.);
1223 gener->SetGluonRadiation(1,1);
1224 // gener->SetPtKick(0.);
1225 // Structure function
1226 gener->SetStrucFunc(kCTEQ4L);
1227 gener->SetPtHard(60., 72.);// Pt transfer of the hard scattering
1228 gener->SetPycellParameters(2., 274, 432, 0., 4., 5., 1.0);
1229 gener->SetForceDecay(kAll);// Decay type (semielectronic, etc.)
1230 gGener=gener;
1231 }
1232 break;
1233 case kPythia6Jets72_86:
1234 {
1235 comment = comment.Append(":Pythia jets 72-86 GeV @ 5.5 TeV");
1236 AliGenPythia * gener = new AliGenPythia(-1);
1237 gener->SetEnergyCMS(5500.);// Centre of mass energy
1238 gener->SetProcess(kPyJets);// Process type
1239 gener->SetJetEtaRange(-0.5, 0.5);// Final state kinematic cuts
1240 gener->SetJetPhiRange(0., 360.);
1241 gener->SetJetEtRange(10., 1000.);
1242 gener->SetGluonRadiation(1,1);
1243 // gener->SetPtKick(0.);
1244 // Structure function
1245 gener->SetStrucFunc(kCTEQ4L);
1246 gener->SetPtHard(72., 86.);// Pt transfer of the hard scattering
1247 gener->SetPycellParameters(2., 274, 432, 0., 4., 5., 1.0);
1248 gener->SetForceDecay(kAll);// Decay type (semielectronic, etc.)
1249 gGener=gener;
1250 }
1251 break;
1252 case kPythia6Jets86_104:
1253 {
1254 comment = comment.Append(":Pythia jets 86-104 GeV @ 5.5 TeV");
1255 AliGenPythia * gener = new AliGenPythia(-1);
1256 gener->SetEnergyCMS(5500.);// Centre of mass energy
1257 gener->SetProcess(kPyJets);// Process type
1258 gener->SetJetEtaRange(-0.5, 0.5);// Final state kinematic cuts
1259 gener->SetJetPhiRange(0., 360.);
1260 gener->SetJetEtRange(10., 1000.);
1261 gener->SetGluonRadiation(1,1);
1262 // gener->SetPtKick(0.);
1263 // Structure function
1264 gener->SetStrucFunc(kCTEQ4L);
1265 gener->SetPtHard(86., 104.);// Pt transfer of the hard scattering
1266 gener->SetPycellParameters(2., 274, 432, 0., 4., 5., 1.0);
1267 gener->SetForceDecay(kAll);// Decay type (semielectronic, etc.)
1268 gGener=gener;
1269 }
1270 break;
1271 case kPythia6Jets104_125:
1272 {
1273 comment = comment.Append(":Pythia jets 105-125 GeV @ 5.5 TeV");
1274 AliGenPythia * gener = new AliGenPythia(-1);
1275 gener->SetEnergyCMS(5500.);// Centre of mass energy
1276 gener->SetProcess(kPyJets);// Process type
1277 gener->SetJetEtaRange(-0.5, 0.5);// Final state kinematic cuts
1278 gener->SetJetPhiRange(0., 360.);
1279 gener->SetJetEtRange(10., 1000.);
1280 gener->SetGluonRadiation(1,1);
1281 // gener->SetPtKick(0.);
1282 // Structure function
1283 gener->SetStrucFunc(kCTEQ4L);
1284 gener->SetPtHard(104., 125.);// Pt transfer of the hard scattering
1285 gener->SetPycellParameters(2., 274, 432, 0., 4., 5., 1.0);
1286 gener->SetForceDecay(kAll);// Decay type (semielectronic, etc.)
1287 gGener=gener;
1288 }
1289 break;
1290 case kPythia6Jets125_150:
1291 {
1292 comment = comment.Append(":Pythia jets 125-150 GeV @ 5.5 TeV");
1293 AliGenPythia * gener = new AliGenPythia(-1);
1294 gener->SetEnergyCMS(5500.);// Centre of mass energy
1295 gener->SetProcess(kPyJets);// Process type
1296 gener->SetJetEtaRange(-0.5, 0.5);// Final state kinematic cuts
1297 gener->SetJetPhiRange(0., 360.);
1298 gener->SetJetEtRange(10., 1000.);
1299 gener->SetGluonRadiation(1,1);
1300 // gener->SetPtKick(0.);
1301 // Structure function
1302 gener->SetStrucFunc(kCTEQ4L);
1303 gener->SetPtHard(125., 150.);// Pt transfer of the hard scattering
1304 gener->SetPycellParameters(2., 274, 432, 0., 4., 5., 1.0);
1305 gener->SetForceDecay(kAll);// Decay type (semielectronic, etc.)
1306 gGener=gener;
1307 }
1308 break;
1309 case kPythia6Jets150_180:
1310 {
1311 comment = comment.Append(":Pythia jets 150-180 GeV @ 5.5 TeV");
1312 AliGenPythia * gener = new AliGenPythia(-1);
1313 gener->SetEnergyCMS(5500.);// Centre of mass energy
1314 gener->SetProcess(kPyJets);// Process type
1315 gener->SetJetEtaRange(-0.5, 0.5);// Final state kinematic cuts
1316 gener->SetJetPhiRange(0., 360.);
1317 gener->SetJetEtRange(10., 1000.);
1318 gener->SetGluonRadiation(1,1);
1319 // gener->SetPtKick(0.);
1320 // Structure function
1321 gener->SetStrucFunc(kCTEQ4L);
1322 gener->SetPtHard(150., 180.);// Pt transfer of the hard scattering
1323 gener->SetPycellParameters(2., 274, 432, 0., 4., 5., 1.0);
1324 gener->SetForceDecay(kAll);// Decay type (semielectronic, etc.)
1325 gGener=gener;
1326 }
1327 break;
1328 case kD0PbPb5500:
1329 {
1330 comment = comment.Append(" D0 in Pb-Pb at 5.5 TeV");
1331 AliGenPythia * gener = new AliGenPythia(10);
1332 gener->SetProcess(kPyD0PbPbMNR);
1333 gener->SetStrucFunc(kCTEQ4L);
1334 gener->SetPtHard(2.1,-1.0);
1335 gener->SetEnergyCMS(5500.);
1336 gener->SetNuclei(208,208);
1337 gener->SetForceDecay(kHadronicD);
1338 gener->SetYRange(-2,2);
1339 gener->SetFeedDownHigherFamily(kFALSE);
1340 gener->SetStackFillOpt(AliGenPythia::kParentSelection);
1341 gener->SetCountMode(AliGenPythia::kCountParents);
1342 gGener=gener;
1343 }
1344 break;
1345 case kCharmSemiElPbPb5500:
1346 {
1347 comment = comment.Append(" Charm in Pb-Pb at 5.5 TeV");
1348 AliGenPythia * gener = new AliGenPythia(10);
1349 gener->SetProcess(kPyCharmPbPbMNR);
1350 gener->SetStrucFunc(kCTEQ4L);
1351 gener->SetPtHard(2.1,-1.0);
1352 gener->SetEnergyCMS(5500.);
1353 gener->SetNuclei(208,208);
1354 gener->SetForceDecay(kSemiElectronic);
1355 gener->SetYRange(-2,2);
1356 gener->SetFeedDownHigherFamily(kFALSE);
1357 gener->SetCountMode(AliGenPythia::kCountParents);
1358 gGener=gener;
1359 }
1360 break;
1361 case kBeautySemiElPbPb5500:
1362 {
1363 comment = comment.Append(" Beauty in Pb-Pb at 5.5 TeV");
1364 AliGenPythia *gener = new AliGenPythia(10);
1365 gener->SetProcess(kPyBeautyPbPbMNR);
1366 gener->SetStrucFunc(kCTEQ4L);
1367 gener->SetPtHard(2.75,-1.0);
1368 gener->SetEnergyCMS(5500.);
1369 gener->SetNuclei(208,208);
1370 gener->SetForceDecay(kSemiElectronic);
1371 gener->SetYRange(-2,2);
1372 gener->SetFeedDownHigherFamily(kFALSE);
1373 gener->SetCountMode(AliGenPythia::kCountParents);
1374 gGener=gener;
1375 }
1376 break;
1377 case kCocktailTRD:
1378 {
1379 comment = comment.Append(" Cocktail for TRD at 5.5 TeV");
1380 AliGenCocktail *gener = new AliGenCocktail();
1381
1382 AliGenParam *jpsi = new AliGenParam(10,
1383 new AliGenMUONlib(),
1384 AliGenMUONlib::kJpsiFamily,
1385 "Vogt PbPb");
1386
1387 jpsi->SetPtRange(0, 100);
1388 jpsi->SetYRange(-1., +1.);
1389 jpsi->SetForceDecay(kDiElectron);
1390
1391 AliGenParam *ups = new AliGenParam(10,
1392 new AliGenMUONlib(),
1393 AliGenMUONlib::kUpsilonFamily,
1394 "Vogt PbPb");
1395 ups->SetPtRange(0, 100);
1396 ups->SetYRange(-1., +1.);
1397 ups->SetForceDecay(kDiElectron);
1398
1399 AliGenParam *charm = new AliGenParam(10,
1400 new AliGenMUONlib(),
1401 AliGenMUONlib::kCharm,
1402 "central");
1403 charm->SetPtRange(0, 100);
1404 charm->SetYRange(-1.5, +1.5);
1405 charm->SetForceDecay(kSemiElectronic);
1406
1407
1408 AliGenParam *beauty = new AliGenParam(10,
1409 new AliGenMUONlib(),
1410 AliGenMUONlib::kBeauty,
1411 "central");
1412 beauty->SetPtRange(0, 100);
1413 beauty->SetYRange(-1.5, +1.5);
1414 beauty->SetForceDecay(kSemiElectronic);
1415
1416 gener->AddGenerator(jpsi,"J/psi",1);
1417 gener->AddGenerator(ups,"Upsilon",1);
1418 gener->AddGenerator(charm,"Charm",1);
1419 gener->AddGenerator(beauty,"Beauty",1);
1420 gGener=gener;
1421 }
1422 break;
1423 case kPyJJ:
1424 {
1425 comment = comment.Append(" Jet-jet at 5.5 TeV");
1426 AliGenPythia *gener = new AliGenPythia(-1);
1427 gener->SetEnergyCMS(5500.);
1428 gener->SetProcess(kPyJets);
1429 Double_t ptHardMin=10.0, ptHardMax=-1.0;
1430 gener->SetPtHard(ptHardMin,ptHardMax);
1431 gener->SetYHard(-0.7,0.7);
1432 gener->SetJetEtaRange(-0.2,0.2);
1433 gener->SetEventListRange(0,1);
1434 gGener=gener;
1435 }
1436 break;
1437 case kPyGJ:
1438 {
1439 comment = comment.Append(" Gamma-jet at 5.5 TeV");
1440 AliGenPythia *gener = new AliGenPythia(-1);
1441 gener->SetEnergyCMS(5500.);
1442 gener->SetProcess(kPyDirectGamma);
1443 Double_t ptHardMin=10.0, ptHardMax=-1.0;
1444 gener->SetPtHard(ptHardMin,ptHardMax);
1445 gener->SetYHard(-1.0,1.0);
1446 gener->SetGammaEtaRange(-0.13,0.13);
1447 gener->SetGammaPhiRange(210.,330.);
1448 gener->SetEventListRange(0,1);
1449 gGener=gener;
1450 }
1451 break;
1452 case kMuonCocktailCent1:
1453 {
1454 comment = comment.Append(" Muon Cocktail Cent1");
1455 AliGenMUONCocktail * gener = new AliGenMUONCocktail();
1456 gener->SetPtRange(1.0,100.); // Transverse momentum range
1457 gener->SetPhiRange(0.,360.); // Azimuthal angle range
1458 gener->SetYRange(-4.0,-2.4);
1459 gener->SetMuonPtCut(0.8);
1460 gener->SetMuonThetaCut(171.,178.);
1461 gener->SetMuonMultiplicity(2);
1462 gener->SetNumberOfCollisions(1626.); //Centrality class Cent1 for PDC04
1463 gener->SetNumberOfParticipants(359.4);//Centrality class Cent1 for PDC04
1464 gGener=gener;
1465 }
1466 break;
1467 case kMuonCocktailPer1:
1468 {
1469 comment = comment.Append(" Muon Cocktail Per1");
1470 AliGenMUONCocktail * gener = new AliGenMUONCocktail();
1471 gener->SetPtRange(1.0,100.); // Transverse momentum range
1472 gener->SetPhiRange(0.,360.); // Azimuthal angle range
1473 gener->SetYRange(-4.0,-2.4);
1474 gener->SetMuonPtCut(0.8);
1475 gener->SetMuonThetaCut(171.,178.);
1476 gener->SetMuonMultiplicity(2);
1477 gener->SetNumberOfCollisions(820.0);//Centrality class Per1 for PDC04
1478 gener->SetNumberOfParticipants(229.3);//Centrality class Per1 for PDC04
1479 gGener=gener;
1480 }
1481 break;
1482 case kMuonCocktailPer4:
1483 {
1484 comment = comment.Append(" Muon Cocktail Per4");
1485 AliGenMUONCocktail * gener = new AliGenMUONCocktail();
1486 gener->SetPtRange(1.0,100.); // Transverse momentum range
1487 gener->SetPhiRange(0.,360.); // Azimuthal angle range
1488 gener->SetYRange(-4.0,-2.4);
1489 gener->SetMuonPtCut(0.8);
1490 gener->SetMuonThetaCut(171.,178.);
1491 gener->SetMuonMultiplicity(2);
1492 gener->SetNumberOfCollisions(13.6);//Centrality class Per4 for PDC04
1493 gener->SetNumberOfParticipants(13.3);//Centrality class Per4 for PDC04
1494 gGener=gener;
1495 }
1496 break;
1497 case kMuonCocktailCent1HighPt:
1498 {
1499 comment = comment.Append(" Muon Cocktail HighPt Cent1");
1500 AliGenMUONCocktail * gener = new AliGenMUONCocktail();
1501 gener->SetPtRange(1.0,100.); // Transverse momentum range
1502 gener->SetPhiRange(0.,360.); // Azimuthal angle range
1503 gener->SetYRange(-4.0,-2.4);
1504 gener->SetMuonPtCut(2.5);
1505 gener->SetMuonThetaCut(171.,178.);
1506 gener->SetMuonMultiplicity(2);
1507 gener->SetNumberOfCollisions(1626.); //Centrality class Cent1 for PDC04
1508 gener->SetNumberOfParticipants(359.4);//Centrality class Cent1 for PDC04
1509 gGener=gener;
1510 }
1511 break;
1512 case kMuonCocktailPer1HighPt :
1513 {
1514 comment = comment.Append(" Muon Cocktail HighPt Per1");
1515 AliGenMUONCocktail * gener = new AliGenMUONCocktail();
1516 gener->SetPtRange(1.0,100.); // Transverse momentum range
1517 gener->SetPhiRange(0.,360.); // Azimuthal angle range
1518 gener->SetYRange(-4.0,-2.4);
1519 gener->SetMuonPtCut(2.5);
1520 gener->SetMuonThetaCut(171.,178.);
1521 gener->SetMuonMultiplicity(2);
1522 gener->SetNumberOfCollisions(820.0);//Centrality class Per1 for PDC04
1523 gener->SetNumberOfParticipants(229.3);//Centrality class Per1 for PDC04
1524 gGener=gener;
1525 }
1526 break;
1527 case kMuonCocktailPer4HighPt:
1528 {
1529 comment = comment.Append(" Muon Cocktail HighPt Per4");
1530 AliGenMUONCocktail * gener = new AliGenMUONCocktail();
1531 gener->SetPtRange(1.0,100.); // Transverse momentum range
1532 gener->SetPhiRange(0.,360.); // Azimuthal angle range
1533 gener->SetYRange(-4.0,-2.4);
1534 gener->SetMuonPtCut(2.5);
1535 gener->SetMuonThetaCut(171.,178.);
1536 gener->SetMuonMultiplicity(2);
1537 gener->SetNumberOfCollisions(13.6);//Centrality class Per4 for PDC04
1538 gener->SetNumberOfParticipants(13.3);//Centrality class Per4 for PDC04
1539 gGener=gener;
1540 }
1541 break;
1542 case kMuonCocktailCent1Single:
1543 {
1544 comment = comment.Append(" Muon Cocktail Single Cent1");
1545 AliGenMUONCocktail * gener = new AliGenMUONCocktail();
1546 gener->SetPtRange(1.0,100.); // Transverse momentum range
1547 gener->SetPhiRange(0.,360.); // Azimuthal angle range
1548 gener->SetYRange(-4.0,-2.4);
1549 gener->SetMuonPtCut(0.8);
1550 gener->SetMuonThetaCut(171.,178.);
1551 gener->SetMuonMultiplicity(1);
1552 gener->SetNumberOfCollisions(1626.); //Centrality class Cent1 for PDC04
1553 gener->SetNumberOfParticipants(359.4);//Centrality class Cent1 for PDC04
1554 gGener=gener;
1555 }
1556 break;
1557 case kMuonCocktailPer1Single :
1558 {
1559 comment = comment.Append(" Muon Cocktail Single Per1");
1560 AliGenMUONCocktail * gener = new AliGenMUONCocktail();
1561 gener->SetPtRange(1.0,100.); // Transverse momentum range
1562 gener->SetPhiRange(0.,360.); // Azimuthal angle range
1563 gener->SetYRange(-4.0,-2.4);
1564 gener->SetMuonPtCut(0.8);
1565 gener->SetMuonThetaCut(171.,178.);
1566 gener->SetMuonMultiplicity(1);
1567 gener->SetNumberOfCollisions(820.0);//Centrality class Per1 for PDC04
1568 gener->SetNumberOfParticipants(229.3);//Centrality class Per1 for PDC04
1569 gGener=gener;
1570 }
1571 break;
1572 case kMuonCocktailPer4Single:
1573 {
1574 comment = comment.Append(" Muon Cocktail Single Per4");
1575 AliGenMUONCocktail * gener = new AliGenMUONCocktail();
1576 gener->SetPtRange(1.0,100.); // Transverse momentum range
1577 gener->SetPhiRange(0.,360.); // Azimuthal angle range
1578 gener->SetYRange(-4.0,-2.4);
1579 gener->SetMuonPtCut(0.8);
1580 gener->SetMuonThetaCut(171.,178.);
1581 gener->SetMuonMultiplicity(1);
1582 gener->SetNumberOfCollisions(13.6);//Centrality class Per4 for PDC04
1583 gener->SetNumberOfParticipants(13.3);//Centrality class Per4 for PDC04
1584 gGener=gener;
1585 }
1586 break;
8f6ee336 1587 case kFMD1Flat:
088f8e79 1588 {
1589 comment = comment.Append(" Flat in FMD1 range");
8f6ee336 1590 AliGenBox* gener = new AliGenBox(2000);
9bb2665f 1591 gener->SetPart(kPiPlus);
088f8e79 1592 gener->SetMomentumRange(3,4);
1593 gener->SetPhiRange(0, 360);
1594 gener->SetThetaRange(0.77, 3.08);
1595 gGener = gener;
1596 }
1597 break;
8f6ee336 1598 case kFMD2Flat:
088f8e79 1599 {
1600 comment = comment.Append(" Flat in FMD2 range");
8f6ee336 1601 AliGenBox* gener = new AliGenBox(2000);
9bb2665f 1602 gener->SetPart(kPiPlus);
088f8e79 1603 gener->SetMomentumRange(3,4);
1604 gener->SetPhiRange(0, 360);
1605 gener->SetThetaRange(2.95, 20.42);
1606 gGener = gener;
1607 }
1608 break;
8f6ee336 1609 case kFMD3Flat:
088f8e79 1610 {
1611 comment = comment.Append(" Flat in FMD3 range");
8f6ee336 1612 AliGenBox* gener = new AliGenBox(2000);
9bb2665f 1613 gener->SetPart(kPiPlus);
088f8e79 1614 gener->SetMomentumRange(3,4);
1615 gener->SetPhiRange(0, 360);
1616 gener->SetThetaRange(155.97, 176.73);
1617 gGener = gener;
1618 }
1619 break;
8f6ee336 1620 case kFMDFlat:
1621 {
1622 comment = comment.Append(" Flat in FMD range");
6169f936 1623 AliGenCocktail* gener = new AliGenCocktail();
8f6ee336 1624 gener->SetMomentumRange(3,4);
1625 gener->SetPhiRange(0, 360);
1626 AliGenBox* gener3 = new AliGenBox(2000);
1627 gener3->SetThetaRange(155.97, 176.73);
9bb2665f 1628 gener3->SetPart(kPiPlus);
8f6ee336 1629 gener->AddGenerator(gener3, "FMD3", .33);
1630 AliGenBox* gener2 = new AliGenBox(2000);
1631 gener2->SetThetaRange(2.95, 20.42);
9bb2665f 1632 gener2->SetPart(kPiPlus);
8f6ee336 1633 gener->AddGenerator(gener2, "FMD2", .33);
1634 AliGenBox* gener1 = new AliGenBox(2000);
1635 gener1->SetThetaRange(0.77, 3.08);
9bb2665f 1636 gener1->SetPart(kPiPlus);
8f6ee336 1637 gener->AddGenerator(gener1, "FMD1", .34);
1638 gGener = gener;
1639 }
1640 break;
088f8e79 1641
7684b53c 1642 default: break;
1643 }
1644 return gGener;
1645}
1646
1647//____________________________________________________________________
1648AliGenHijing*
1649HijingStandard()
1650{
1651 AliGenHijing *gener = new AliGenHijing(-1);
1652 // centre of mass energy
1653 gener->SetEnergyCMS(5500.);
1654 // reference frame
1655 gener->SetReferenceFrame("CMS");
1656 // projectile
1657 gener->SetProjectile("A", 208, 82);
1658 gener->SetTarget ("A", 208, 82);
1659 // tell hijing to keep the full parent child chain
1660 gener->KeepFullEvent();
1661 // enable jet quenching
1662 gener->SetJetQuenching(1);
1663 // enable shadowing
1664 gener->SetShadowing(1);
1665 // neutral pion and heavy particle decays switched off
1666 gener->SetDecaysOff(1);
1667 // Don't track spectators
1668 gener->SetSpectators(0);
1669 // kinematic selection
1670 gener->SetSelectAll(0);
1671 return gener;
1672}
1673
1674
1675//____________________________________________________________________
1676void
1677ProcessEnvironmentVars(EG_t& eg, Int_t& seed)
1678{
1679 // Run type
1680 if (gSystem->Getenv("CONFIG_RUN_TYPE")) {
1681 Int_t eg1 = LookupEG(gSystem->Getenv("CONFIG_RUN_TYPE"));
1682 if (eg1 >= 0) eg = EG_t(eg1);
1683 }
1684 // Random Number seed
1685 if (gSystem->Getenv("CONFIG_SEED")) {
1686 seed = atoi(gSystem->Getenv("CONFIG_SEED"));
1687 }
4347b38f 1688}
0d0e6995 1689
7684b53c 1690//____________________________________________________________________
1691//
1692// EOF
1693//