test/PbPbbench/monsim.C

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