| 1 | void monsim(Int_t nev=20){ |
| 2 | // Geant3 and Pythia |
| 3 | gSystem->Load("liblhapdf"); |
| 4 | gSystem->Load("libEGPythia6"); |
| 5 | gSystem->Load("libpythia6"); |
| 6 | gSystem->Load("libAliPythia6"); |
| 7 | gSystem->Load("libgeant321"); |
| 8 | // MonaLisa monitoring |
| 9 | gSystem->Load("libNet"); |
| 10 | gSystem->Load("libMonaLisa"); |
| 11 | |
| 12 | new TMonaLisaWriter("aliendb3.cern.ch", "Simulation pp", gSystem->Getenv("TEST_PLATFORMID"), gSystem->Getenv("TEST_PLATFORMID"), "global"); |
| 13 | |
| 14 | gROOT->LoadMacro("sim.C"); |
| 15 | sim(nev); |
| 16 | if (gMonitoringWriter) gMonitoringWriter->SendProcessingProgress(1,1,kTRUE); |
| 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 | |
| 29 | if (gMonitoringWriter) gMonitoringWriter->SendParameters(valuelist); |
| 30 | delete valuelist; |
| 31 | |
| 32 | printf("#Test finished successfully#\n"); |
| 33 | } |