43664a84 |
1 | void monsim(Int_t nev=20){ |
2b919384 |
2 | // Geant3 and Pythia |
3 | gSystem->Load("liblhapdf"); |
4 | gSystem->Load("libEGPythia6"); |
5 | gSystem->Load("libpythia6"); |
6 | gSystem->Load("libAliPythia6"); |
7 | gSystem->Load("libgeant321"); |
43664a84 |
8 | // MonaLisa monitoring |
4070f709 |
9 | gSystem->Load("libNet"); |
10 | gSystem->Load("libMonaLisa"); |
43664a84 |
11 | |
e4e752b6 |
12 | new TMonaLisaWriter("aliendb3.cern.ch", "Simulation pp", gSystem->Getenv("TEST_PLATFORMID"), gSystem->Getenv("TEST_PLATFORMID"), "global"); |
43664a84 |
13 | |
14 | gROOT->LoadMacro("sim.C"); |
15 | sim(nev); |
31cd34c9 |
16 | if (gMonitoringWriter) gMonitoringWriter->SendProcessingProgress(1,1,kTRUE); |
43664a84 |
17 | |
18 | // Send the size of the raw.root file |
19 | |
20 | FileStat_t buf; |
21 | gSystem->GetPathInfo("./raw.root",buf); |
22 | |
23 | TList *valuelist = new TList(); |
24 | valuelist->SetOwner(kTRUE); |
25 | |
26 | TMonaLisaValue* valdouble = new TMonaLisaValue("raw.root size",buf.fSize); |
27 | valuelist->Add(valdouble); |
28 | |
31cd34c9 |
29 | if (gMonitoringWriter) gMonitoringWriter->SendParameters(valuelist); |
43664a84 |
30 | delete valuelist; |
31 | |
0541097a |
32 | printf("#Test finished successfully#\n"); |
33 | } |