]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - STEER/AliModule.cxx
New representation of the raw TRD PID signal in ESD (Alex, Yuri)
[u/mrichter/AliRoot.git] / STEER / AliModule.cxx
index 1e264ad0a4702a770d5b10ae23d51fa761e7a29e..516192943dc20b79fee39a9087a4af9879fd7c1f 100644 (file)
@@ -1,3 +1,20 @@
+/**************************************************************************
+ * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
+ *                                                                        *
+ * Author: The ALICE Off-line Project.                                    *
+ * Contributors are mentioned in the code where appropriate.              *
+ *                                                                        *
+ * Permission to use, copy, modify and distribute this software and its   *
+ * documentation strictly for non-commercial purposes is hereby granted   *
+ * without fee, provided that the above copyright notice appears in all   *
+ * copies and that both the copyright notice and this permission notice   *
+ * appear in the supporting documentation. The authors make no claims     *
+ * about the suitability of this software for any purpose. It is          *
+ * provided "as is" without express or implied warranty.                  *
+ **************************************************************************/
+
+/* $Id$ */
+
 ///////////////////////////////////////////////////////////////////////////////
 //                                                                           //
 // Base class for ALICE modules. Both sensitive modules (Modules) and      //
 //End_Html
 //                                                                           //
 ///////////////////////////////////////////////////////////////////////////////
+
+#include <TNode.h>
+#include <TObjArray.h>
+#include <TClonesArray.h>
+#include <TTree.h>
+#include <TSystem.h>
+#include <TDirectory.h>
+#include <TVirtualMC.h>
+#include <TGeoManager.h>
+#include <TString.h>
+
+#include "AliLog.h"
+#include "AliConfig.h"
+#include "AliLoader.h"
+#include "AliMagF.h"
 #include "AliModule.h"
 #include "AliRun.h"
-#include "AliHit.h"
-#include "AliPoints.h"
-#include <TClass.h>
-#include <TNode.h>
-#include <TRandom.h>
+#include "AliTrackReference.h"
+#include "AliMC.h"
+#include "AliRawDataHeader.h"
+
+#include "AliDAQ.h"
 
 ClassImp(AliModule)
  
-//_____________________________________________________________________________
-AliModule::AliModule()
+Float_t AliModule::fgDensityFactor = 1.0;
+//_______________________________________________________________________
+AliModule::AliModule():
+  fEuclidMaterial(""),
+  fEuclidGeometry(""),
+  fIdtmed(0),
+  fIdmate(0),
+  fLoMedium(0),
+  fHiMedium(0),
+  fActive(0),
+  fHistograms(0),
+  fNodes(0),
+  fEnable(1),
+  fMaxIterTrackRef(0),
+  fCurrentIterTrackRef(0),
+  fRunLoader(0)
 {
   //
   // Default constructor for the AliModule class
   //
-  fHistograms = 0;
-  fNodes      = 0;
 }
  
-//_____________________________________________________________________________
-AliModule::AliModule(const char* name,const char *title):TNamed(name,title)
+//_______________________________________________________________________
+AliModule::AliModule(const char* name,const char *title):
+  TNamed(name,title),
+  fEuclidMaterial(""),
+  fEuclidGeometry(""),
+  fIdtmed(new TArrayI(100)),
+  fIdmate(new TArrayI(100)),
+  fLoMedium(65536),
+  fHiMedium(0),
+  fActive(0),
+  fHistograms(new TList()),
+  fNodes(new TList()),
+  fEnable(1),
+  fMaxIterTrackRef(0),
+  fCurrentIterTrackRef(0),
+  fRunLoader(0)
 {
   //
   // Normal constructor invoked by all Modules.
   // Create the list for Module specific histograms
   // Add this Module to the global list of Modules in Run.
   //
-  //
-  // Initialises the histogram list
-  fHistograms = new TList();
-  //
-  // Initialises the list of ROOT TNodes
-  fNodes      = new TList();
-  //  
   // Get the Module numeric ID
+
   Int_t id = gAlice->GetModuleID(name);
-  if (id < 0) {
-    // Unknown Module !
-     Warning("AliRun::Ctor","ERROR Unknown Module: %s\n",name);
+  if (id>=0) {
+    // Module already added !
+     AliWarning(Form("Module: %s already present at %d",name,id));
      return;
   }
   //
   // Add this Module to the list of Modules
-  gAlice->Modules()->AddAtAndExpand(this,id);
-  //
-  //
-  SetMarkerColor(3);
+
+  gAlice->AddModule(this);
+
+  //PH  SetMarkerColor(3);
   //
-  // Allocate space for tracking media and material indexes
-  fIdtmed = new TArrayI(100);
-  fIdmate  = new TArrayI(100);
+  // Clear space for tracking media and material indexes
+
   for(Int_t i=0;i<100;i++) (*fIdmate)[i]=(*fIdtmed)[i]=0;
-  //
-  // Prepare to find the tracking media range
-  fLoMedium = 65536;
-  fHiMedium = 0;
 }
  
-//_____________________________________________________________________________
+//_______________________________________________________________________
 AliModule::~AliModule()
 {
   //
   // Destructor
   //
-  fHistograms = 0;
-  //
+
+  // Remove this Module from the list of Modules
+  if (gAlice) {
+    TObjArray * modules = gAlice->Modules();
+    if (modules) modules->Remove(this);
+  }
   // Delete ROOT geometry
-  fNodes->Clear();
-  delete fNodes;
-  //
+  if(fNodes) {
+    fNodes->Clear();
+    delete fNodes;
+    fNodes = 0;
+  }
+  // Delete histograms
+  if(fHistograms) {
+    fHistograms->Clear();
+    delete fHistograms;
+    fHistograms = 0;
+  }
   // Delete TArray objects
   delete fIdtmed;
   delete fIdmate;
+
 }
  
-//_____________________________________________________________________________
+//_______________________________________________________________________
 void AliModule::Disable()
 {
   //
@@ -103,22 +164,12 @@ void AliModule::Disable()
   //
   // Loop through geometry to disable all
   // nodes for this Module
-  while((node = (TNode*)next())) {
-    node->SetVisibility(0);
+  while((node = dynamic_cast<TNode*>(next()))) {
+    node->SetVisibility(-1);
   }   
 }
 
-//_____________________________________________________________________________
-Int_t AliModule::DistancetoPrimitive(Int_t, Int_t)
-{
-  //
-  // Return distance from mouse pointer to object
-  // Dummy routine for the moment
-  //
-  return 9999;
-}
-
-//_____________________________________________________________________________
+//_______________________________________________________________________
 void AliModule::Enable()
 {
   //
@@ -130,15 +181,15 @@ void AliModule::Enable()
   //
   // Loop through geometry to enable all
   // nodes for this Module
-  while((node = (TNode*)next())) {
-    node->SetVisibility(1);
+  while((node = dynamic_cast<TNode*>(next()))) {
+    node->SetVisibility(3);
   }   
 }
 
-//_____________________________________________________________________________
+//_______________________________________________________________________
 void AliModule::AliMaterial(Int_t imat, const char* name, Float_t a, 
-                             Float_t z, Float_t dens, Float_t radl,
-                             Float_t absl, Float_t *buf, Int_t nwbuf) const
+                            Float_t z, Float_t dens, Float_t radl,
+                            Float_t absl, Float_t *buf, Int_t nwbuf) const
 {
   //
   // Store the parameters for a material
@@ -154,15 +205,53 @@ void AliModule::AliMaterial(Int_t imat, const char* name, Float_t a,
   // nwbuf       number of user words
   //
   Int_t kmat;
-  AliMC::GetMC()->Material(kmat, name, a, z, dens, radl, absl, buf, nwbuf);
-  (*fIdmate)[imat]=kmat;
+  //Build the string uniquename as "DET_materialname"
+  TString uniquename = GetName();
+  uniquename.Append("_");
+  uniquename.Append(name);
+  //if geometry loaded from file only fill fIdmate, else create material too
+  if(gAlice->IsRootGeometry()){
+    TGeoMaterial *mat = gGeoManager->GetMaterial(uniquename.Data());
+    kmat = mat->GetUniqueID();
+    (*fIdmate)[imat]=kmat;
+  }else{
+    if (fgDensityFactor != 1.0)
+      AliWarning(Form("Material density multiplied by %.2f!", fgDensityFactor));
+    gMC->Material(kmat, uniquename.Data(), a, z, dens * fgDensityFactor, radl, absl, buf, nwbuf);
+    (*fIdmate)[imat]=kmat;
+  }
 }
   
+//_______________________________________________________________________
+void AliModule::AliGetMaterial(Int_t imat, char* name, Float_t &a, 
+                               Float_t &z, Float_t &dens, Float_t &radl,
+                               Float_t &absl) const
+{
+  //
+  // Store the parameters for a material
+  //
+  // imat        the material index will be stored in (*fIdmate)[imat]
+  // name        material name
+  // a           atomic mass
+  // z           atomic number
+  // dens        density
+  // radl        radiation length
+  // absl        absorbtion length
+  // buf         adress of an array user words
+  // nwbuf       number of user words
+  //
 
-//_____________________________________________________________________________
+  Float_t buf[10];
+  Int_t nwbuf, kmat;
+  kmat=(*fIdmate)[imat];
+  gMC->Gfmate(kmat, name, a, z, dens, radl, absl, buf, nwbuf);
+}
+  
+
+//_______________________________________________________________________
 void AliModule::AliMixture(Int_t imat, const char *name, Float_t *a,
-                            Float_t *z, Float_t dens, Int_t nlmat,
-                            Float_t *wmat) const
+                           Float_t *z, Float_t dens, Int_t nlmat,
+                           Float_t *wmat) const
 { 
   //
   // Defines mixture or compound imat as composed by 
@@ -184,21 +273,34 @@ void AliModule::AliMixture(Int_t imat, const char *name, Float_t *a,
   // wmat        array of concentrations
   //
   Int_t kmat;
-  AliMC::GetMC()->Mixture(kmat, name, a, z, dens, nlmat, wmat);
-  (*fIdmate)[imat]=kmat;
+  //Build the string uniquename as "DET_mixturename"
+  TString uniquename = GetName();
+  uniquename.Append("_");
+  uniquename.Append(name);
+  //if geometry loaded from file only fill fIdmate, else create mixture too
+  if(gAlice->IsRootGeometry()){
+    TGeoMaterial *mat = gGeoManager->GetMaterial(uniquename.Data());
+    kmat = mat->GetUniqueID();
+    (*fIdmate)[imat]=kmat;
+  }else{
+    if (fgDensityFactor != 1.0)
+      AliWarning(Form("Material density multiplied by %.2f!", fgDensityFactor));
+    gMC->Mixture(kmat, uniquename.Data(), a, z, dens * fgDensityFactor, nlmat, wmat);
+    (*fIdmate)[imat]=kmat;
+  }
 } 
  
-//_____________________________________________________________________________
+//_______________________________________________________________________
 void AliModule::AliMedium(Int_t numed, const char *name, Int_t nmat,
-                           Int_t isvol, Int_t ifield, Float_t fieldm,
-                           Float_t tmaxfd, Float_t stemax, Float_t deemax,
-                           Float_t epsil, Float_t stmin, Float_t *ubuf,
-                           Int_t nbuf) const
+                          Int_t isvol, Int_t ifield, Float_t fieldm,
+                          Float_t tmaxfd, Float_t stemax, Float_t deemax,
+                          Float_t epsil, Float_t stmin, Float_t *ubuf,
+                          Int_t nbuf) const
 { 
   //
   // Store the parameters of a tracking medium
   //
-  // numed       the medium number is stored into (*fIdtmed)[numed-1]
+  // numed       the medium number is stored into (*fIdtmed)[numed]
   // name        medium name
   // nmat        the material number is stored into (*fIdmate)[nmat]
   // isvol       sensitive volume if isvol!=0
@@ -217,16 +319,26 @@ void AliModule::AliMedium(Int_t numed, const char *name, Int_t nmat,
   //        =  3       constant magnetic field along z
   //  
   Int_t kmed;
-  Int_t *idtmed = gAlice->Idtmed();
-  AliMC::GetMC()->Medium(kmed,name, (*fIdmate)[nmat], isvol, ifield, fieldm,
-                        tmaxfd, stemax, deemax, epsil, stmin, ubuf, nbuf); 
-  idtmed[numed-1]=kmed;
+  //Build the string uniquename as "DET_mediumname"
+  TString uniquename = GetName();
+  uniquename.Append("_");
+  uniquename.Append(name);
+  //if geometry loaded from file only fill fIdtmed, else create medium too
+  if(gAlice->IsRootGeometry()){
+    TGeoMedium *med = gGeoManager->GetMedium(uniquename.Data());
+    kmed = med->GetId();
+    (*fIdtmed)[numed]=kmed;
+  }else{
+    gMC->Medium(kmed, uniquename.Data(), (*fIdmate)[nmat], isvol, ifield,
+                fieldm, tmaxfd, stemax, deemax, epsil, stmin, ubuf, nbuf);
+    (*fIdtmed)[numed]=kmed;
+  }
 } 
  
-//_____________________________________________________________________________
+//_______________________________________________________________________
 void AliModule::AliMatrix(Int_t &nmat, Float_t theta1, Float_t phi1,
-                           Float_t theta2, Float_t phi2, Float_t theta3,
-                           Float_t phi3) const
+                          Float_t theta2, Float_t phi2, Float_t theta3,
+                          Float_t phi3) const
 {
   // 
   // Define a rotation matrix. Angles are in degrees.
@@ -239,10 +351,22 @@ void AliModule::AliMatrix(Int_t &nmat, Float_t theta1, Float_t phi1,
   // theta3      polar angle for axis III
   // phi3        azimuthal angle for axis III
   //
-  AliMC::GetMC()->Matrix(nmat, theta1, phi1, theta2, phi2, theta3, phi3); 
+  gMC->Matrix(nmat, theta1, phi1, theta2, phi2, theta3, phi3); 
 } 
 
-//_____________________________________________________________________________
+//_______________________________________________________________________
+Float_t AliModule::ZMin() const
+{
+  return -500;
+}
+
+//_______________________________________________________________________
+Float_t AliModule::ZMax() const
+{
+  return 500;
+}
+
+//_______________________________________________________________________
 void AliModule::SetEuclidFile(char* material, char* geometry)
 {
   //
@@ -260,36 +384,346 @@ void AliModule::SetEuclidFile(char* material, char* geometry)
   }
 }
  
-//_____________________________________________________________________________
-void AliModule::Streamer(TBuffer &R__b)
+//_______________________________________________________________________
+void AliModule::ReadEuclid(const char* filnam, char* topvol)
 {
+  //                                                                     
+  //       read in the geometry of the detector in euclid file format    
+  //                                                                     
+  //        id_det : the detector identification (2=its,...)            
+  //        topvol : return parameter describing the name of the top    
+  //        volume of geometry.                                          
+  //                                                                     
+  //            author : m. maire                                        
+  //                                                                     
+  //     28.07.98
+  //     several changes have been made by miroslav helbich
+  //     subroutine is rewrited to follow the new established way of memory
+  //     booking for tracking medias and rotation matrices.
+  //     all used tracking media have to be defined first, for this you can use
+  //     subroutine  greutmed.
+  //     top volume is searched as only volume not positioned into another 
   //
-  // Stream an object of class Module.
-  //
-  if (R__b.IsReading()) {
-    Version_t R__v = R__b.ReadVersion(); if (R__v) { }
-    TNamed::Streamer(R__b);
-    TAttLine::Streamer(R__b);
-    TAttMarker::Streamer(R__b);
-    fEuclidMaterial.Streamer(R__b);
-    fEuclidGeometry.Streamer(R__b);
-    R__b >> fActive;
-    R__b >> fHistograms;
+
+  Int_t i, nvol, iret, itmed, irot, numed, npar, ndiv, iaxe;
+  Int_t ndvmx, nr, flag;
+  char key[5], card[77], natmed[21];
+  char name[5], mother[5], shape[5], konly[5], volst[7000][5];
+  char *filtmp;
+  Float_t par[100];
+  Float_t teta1, phi1, teta2, phi2, teta3, phi3, orig, step;
+  Float_t xo, yo, zo;
+  const Int_t kMaxRot=5000;
+  Int_t idrot[kMaxRot],istop[7000];
+  FILE *lun;
+  //
+  // *** The input filnam name will be with extension '.euc'
+  filtmp=gSystem->ExpandPathName(filnam);
+  lun=fopen(filtmp,"r");
+  delete [] filtmp;
+  if(!lun) {
+    AliError(Form("Could not open file %s",filnam));
+    return;
+  }
+  //* --- definition of rotation matrix 0 ---  
+  TArrayI &idtmed = *fIdtmed;
+  for(i=1; i<kMaxRot; ++i) idrot[i]=-99;
+  idrot[0]=0;
+  nvol=0;
+ L10:
+  for(i=0;i<77;i++) card[i]=0;
+  iret=fscanf(lun,"%77[^\n]",card);
+  if(iret<=0) goto L20;
+  fscanf(lun,"%*c");
+  //*
+  strncpy(key,card,4);
+  key[4]='\0';
+  if (!strcmp(key,"TMED")) {
+    sscanf(&card[5],"%d '%[^']'",&itmed,natmed);
+    if( itmed<0 || itmed>=100 ) {
+      AliError(Form("TMED illegal medium number %d for %s",itmed,natmed));
+      exit(1);
+    }
+    //Pad the string with blanks
+    i=-1;
+    while(natmed[++i]);
+    while(i<20) natmed[i++]=' ';
+    natmed[i]='\0';
     //
-    // Stream the pointers but not the TClonesArrays
-    R__b >> fNodes; // diff
-  } else {
-    R__b.WriteVersion(AliModule::IsA());
-    TNamed::Streamer(R__b);
-    TAttLine::Streamer(R__b);
-    TAttMarker::Streamer(R__b);
-    fEuclidMaterial.Streamer(R__b);
-    fEuclidGeometry.Streamer(R__b);
-    R__b << fActive;
-    R__b << fHistograms;
+    if( idtmed[itmed]<=0 ) {
+      AliError(Form("TMED undefined medium number %d for %s",itmed,natmed));
+      exit(1);
+    }
+    gMC->Gckmat(idtmed[itmed],natmed);
+    //*
+  } else if (!strcmp(key,"ROTM")) {
+    sscanf(&card[4],"%d %f %f %f %f %f %f",&irot,&teta1,&phi1,&teta2,&phi2,&teta3,&phi3);
+    if( irot<=0 || irot>=kMaxRot ) {
+      AliError(Form("ROTM rotation matrix number %d illegal",irot));
+      exit(1);
+    }
+    AliMatrix(idrot[irot],teta1,phi1,teta2,phi2,teta3,phi3);
+    //*
+  } else if (!strcmp(key,"VOLU")) {
+    sscanf(&card[5],"'%[^']' '%[^']' %d %d", name, shape, &numed, &npar);
+    if (npar>0) {
+      for(i=0;i<npar;i++) fscanf(lun,"%f",&par[i]);
+      fscanf(lun,"%*c");
+    }
+    gMC->Gsvolu( name, shape, idtmed[numed], par, npar);
+    //*     save the defined volumes
+    strcpy(volst[++nvol],name);
+    istop[nvol]=1;
+    //*
+  } else if (!strcmp(key,"DIVN")) {
+    sscanf(&card[5],"'%[^']' '%[^']' %d %d", name, mother, &ndiv, &iaxe);
+    gMC->Gsdvn  ( name, mother, ndiv, iaxe );
+    //*
+  } else if (!strcmp(key,"DVN2")) {
+    sscanf(&card[5],"'%[^']' '%[^']' %d %d %f %d",name, mother, &ndiv, &iaxe, &orig, &numed);
+    gMC->Gsdvn2( name, mother, ndiv, iaxe, orig,idtmed[numed]);
+    //*
+  } else if (!strcmp(key,"DIVT")) {
+    sscanf(&card[5],"'%[^']' '%[^']' %f %d %d %d", name, mother, &step, &iaxe, &numed, &ndvmx);
+    gMC->Gsdvt ( name, mother, step, iaxe, idtmed[numed], ndvmx);
+    //*
+  } else if (!strcmp(key,"DVT2")) {
+    sscanf(&card[5],"'%[^']' '%[^']' %f %d %f %d %d", name, mother, &step, &iaxe, &orig, &numed, &ndvmx);
+    gMC->Gsdvt2 ( name, mother, step, iaxe, orig, idtmed[numed], ndvmx );
+    //*
+  } else if (!strcmp(key,"POSI")) {
+    sscanf(&card[5],"'%[^']' %d '%[^']' %f %f %f %d '%[^']'", name, &nr, mother, &xo, &yo, &zo, &irot, konly);
+    if( irot<0 || irot>=kMaxRot ) {
+      Error("ReadEuclid","POSI %s#%d rotation matrix number %d illegal\n",name,nr,irot);
+      exit(1);
+    }
+    if( idrot[irot] == -99) {
+      Error("ReadEuclid","POSI %s#%d undefined matrix number %d\n",name,nr,irot);
+      exit(1);
+    }
+    //*** volume name cannot be the top volume
+    for(i=1;i<=nvol;i++) {
+      if (!strcmp(volst[i],name)) istop[i]=0;
+    }
+    //*
+    gMC->Gspos  ( name, nr, mother, xo, yo, zo, idrot[irot], konly );
+    //*
+  } else if (!strcmp(key,"POSP")) {
+    sscanf(&card[5],"'%[^']' %d '%[^']' %f %f %f %d '%[^']' %d", name, &nr, mother, &xo, &yo, &zo, &irot, konly, &npar);
+    if( irot<0 || irot>=kMaxRot ) {
+      Error("ReadEuclid","POSP %s#%d rotation matrix number %d illegal\n",name,nr,irot);
+      exit(1);
+    }
+    if( idrot[irot] == -99) {
+      Error("ReadEuclid","POSP %s#%d undefined matrix number %d\n",name,nr,irot);
+      exit(1);
+    }
+    if (npar > 0) {
+      for(i=0;i<npar;i++) fscanf(lun,"%f",&par[i]);
+      fscanf(lun,"%*c");
+    }
+    //*** volume name cannot be the top volume
+    for(i=1;i<=nvol;i++) {
+      if (!strcmp(volst[i],name)) istop[i]=0;
+    }
+    //*
+    gMC->Gsposp ( name, nr, mother, xo,yo,zo, idrot[irot], konly, par, npar);
+  }
+  //*
+  if (strcmp(key,"END")) goto L10;
+  //* find top volume in the geometry
+  flag=0;
+  for(i=1;i<=nvol;i++) {
+    if (istop[i] && flag) {
+      AliWarning(Form(" %s is another possible top volume",volst[i]));
+    }
+    if (istop[i] && !flag) {
+      strcpy(topvol,volst[i]);
+      AliDebug(2, Form("volume %s taken as a top volume",topvol));
+      flag=1;
+    }
+  }
+  if (!flag) {
+    AliWarning("top volume not found");
+  }
+  fclose (lun);
+  //*
+  //*     commented out only for the not cernlib version
+  AliDebug(1, Form("file: %s is now read in",filnam));
+  //
+  return;
+  //*
+  L20:
+  AliError("reading error or premature end of file");
+}
+
+//_______________________________________________________________________
+void AliModule::ReadEuclidMedia(const char* filnam)
+{
+  //                                                                     
+  //       read in the materials and tracking media for the detector     
+  //                   in euclid file format                             
+  //                                                                     
+  //       filnam: name of the input file                                
+  //       id_det: id_det is the detector identification (2=its,...)     
+  //                                                                     
+  //            author : miroslav helbich                                
+  //
+  Float_t sxmgmx = gAlice->Field()->Max();
+  Int_t   isxfld = gAlice->Field()->Integ();
+  Int_t end, i, iret, itmed;
+  char key[5], card[130], natmed[21], namate[21];
+  Float_t ubuf[50];
+  char* filtmp;
+  FILE *lun;
+  Int_t imate;
+  Int_t nwbuf, isvol, ifield, nmat;
+  Float_t a, z, dens, radl, absl, fieldm, tmaxfd, stemax, deemax, epsil, stmin;
+  //
+  end=strlen(filnam);
+  for(i=0;i<end;i++) if(filnam[i]=='.') {
+    end=i;
+    break;
+  }
+  //
+  // *** The input filnam name will be with extension '.euc'
+  AliDebug(1, Form("The file name is %s",filnam)); //Debug
+  filtmp=gSystem->ExpandPathName(filnam);
+  lun=fopen(filtmp,"r");
+  delete [] filtmp;
+  if(!lun) {
+    AliWarning(Form("Could not open file %s",filnam));
+    return;
+  }
+  //
+  // Retrieve Mag Field parameters
+  Int_t globField=gAlice->Field()->Integ();
+  Float_t globMaxField=gAlice->Field()->Max();
+  //  TArrayI &idtmed = *fIdtmed;
+  //
+ L10:
+  for(i=0;i<130;i++) card[i]=0;
+  iret=fscanf(lun,"%4s %[^\n]",key,card);
+  if(iret<=0) goto L20;
+  fscanf(lun,"%*c");
+  //*
+  //* read material
+  if (!strcmp(key,"MATE")) {
+    sscanf(card,"%d '%[^']' %f %f %f %f %f %d",&imate,namate,&a,&z,&dens,&radl,&absl,&nwbuf);
+    if (nwbuf>0) for(i=0;i<nwbuf;i++) fscanf(lun,"%f",&ubuf[i]);
+    //Pad the string with blanks
+    i=-1;
+    while(namate[++i]);
+    while(i<20) namate[i++]=' ';
+    namate[i]='\0';
+    //
+    AliMaterial(imate,namate,a,z,dens,radl,absl,ubuf,nwbuf);
+    //* read tracking medium
+  } else if (!strcmp(key,"TMED")) {
+    sscanf(card,"%d '%[^']' %d %d %d %f %f %f %f %f %f %d",
+          &itmed,natmed,&nmat,&isvol,&ifield,&fieldm,&tmaxfd,
+          &stemax,&deemax,&epsil,&stmin,&nwbuf);
+    if (nwbuf>0) for(i=0;i<nwbuf;i++) fscanf(lun,"%f",&ubuf[i]);
+    if (ifield<0) ifield=isxfld;
+    if (fieldm<0) fieldm=sxmgmx;
+    //Pad the string with blanks
+    i=-1;
+    while(natmed[++i]);
+    while(i<20) natmed[i++]=' ';
+    natmed[i]='\0';
     //
-    // Stream the pointers but not the TClonesArrays
-    R__b << fNodes; // diff
+    AliMedium(itmed,natmed,nmat,isvol,globField,globMaxField,tmaxfd,
+                  stemax,deemax,epsil,stmin,ubuf,nwbuf);
+    //    (*fImedia)[idtmed[itmed]-1]=id_det;
+    //*
   }
+  //*
+  if (strcmp(key,"END")) goto L10;
+  fclose (lun);
+  //*
+  //*     commented out only for the not cernlib version
+  AliDebug(1, Form("file %s is now read in",filnam));
+  //*
+  return;
+  //*
+ L20:
+  AliWarning("reading error or premature end of file");
+} 
+
+//_______________________________________________________________________
+void AliModule::AddAlignableVolumes() const
+{
+  // 
+  if (IsActive())
+    AliWarning(Form(" %s still has to implement the AddAlignableVolumes method!",GetName()));
+}
+
+//_______________________________________________________________________
+
+AliLoader*  AliModule::MakeLoader(const char* /*topfoldername*/)
+{
+  return 0x0;
 }
  
+
+//_____________________________________________________________________________
+AliTrackReference*  AliModule::AddTrackReference(Int_t label, Int_t id){
+  //
+  // add a trackrefernce to the list
+    return (gAlice->GetMCApp()->AddTrackReference(label, id));
+}
+
+//_____________________________________________________________________________
+TTree* AliModule::TreeTR()
+{
+  //
+  // Return TR tree pointer
+  //
+  if ( fRunLoader == 0x0)
+   {
+     AliError("Can not get the run loader");
+     return 0x0;
+   }
+
+  TTree* tree = fRunLoader->TreeTR();
+  return tree;
+}
+
+
+//_____________________________________________________________________________
+void AliModule::Digits2Raw()
+{
+// This is a dummy version that just copies the digits file contents
+// to a raw data file.
+
+  AliWarning(Form("Dummy version called for %s", GetName()));
+
+  Int_t nDDLs = AliDAQ::NumberOfDdls(GetName());
+
+  if (!GetLoader()) return;
+  fstream digitsFile(GetLoader()->GetDigitsFileName(), ios::in);
+  if (!digitsFile) return;
+
+  digitsFile.seekg(0, ios::end);
+  UInt_t size = digitsFile.tellg();
+  UInt_t ddlSize = 4 * (size / (4*nDDLs));
+  Char_t* buffer = new Char_t[ddlSize+1];
+
+  for (Int_t iDDL = 0; iDDL < nDDLs; iDDL++) {
+    char fileName[20];
+    strcpy(fileName,AliDAQ::DdlFileName(GetName(),iDDL));
+    fstream rawFile(fileName, ios::out);
+    if (!rawFile) return;
+
+    AliRawDataHeader header;
+    header.fSize = ddlSize + sizeof(header);
+    rawFile.write((char*) &header, sizeof(header));
+
+    digitsFile.read(buffer, ddlSize);
+    rawFile.write(buffer, ddlSize);
+    rawFile.close();
+  }
+
+  digitsFile.close();
+  delete[] buffer;
+}