test/ppbench/monsim.C

   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.so");
  10   gSystem->Load("libMonaLisa.so");
  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 }