4 TFile* file = TFile::Open("medid.root", "RECREATE");
6 Warning("WriteMedArrays", "failed to open medid.root");
9 TObjArray* modules = gAlice->Modules();
11 Warning("WriteMedArrays", "failed to get modules");
15 AliModule* module = 0;
16 while ((module = static_cast<AliModule*>(next()))) {
17 Info("WriteMedArrays", "Getting medium id's for %s", module->GetName());
18 TArrayI* mediumIds = module->GetIdtmed();
20 Warning("WriteMedArrays", "No medium id's for %s", module->GetName());
23 file->WriteObject(mediumIds,module->GetName());