]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - ITS/AliITSgeom.cxx
New version for non absorber side from Yogendra.
[u/mrichter/AliRoot.git] / ITS / AliITSgeom.cxx
index 322e82f3908760709a400f137cf57c610e330d3b..5ed0938a1b4ef0acd9d0feca48890e8369280f1c 100644 (file)
 
 /*
 $Log$
+Revision 1.15  2001/02/07 20:23:21  nilsen
+Fixed bug with HP and no unget in iostream.h. Now using putback instead.
+Other changes and fixes also included.
+
+Revision 1.14  2001/02/03 00:00:29  nilsen
+New version of AliITSgeom and related files. Now uses automatic streamers,
+set up for new formatted .det file which includes detector information.
+Additional smaller modifications are still to come.
+
+Revision 1.11  2000/10/02 16:32:35  barbera
+Forward declaration added
+
+Revision 1.4.4.15  2000/10/02 15:52:05  barbera
+Forward declaration added
+
+Revision 1.10  2000/09/05 14:25:50  nilsen
+Made fixes for HP compiler. All function parameter default values placed
+in .h file. Fixed the usual problem with HP comilers and the "for(Int_t i..."
+business. Replaced casting (Double_t [3][3]) to (Double_t (*)[3]) for HP.
+Lastly removed all "const" before function parameters which were 2 dim. arrays,
+because on HP root generates some strange code (?). Thanks Peter for the
+changes.
+
+Revision 1.9  2000/08/29 20:19:03  nilsen
+Removed dependancy on structure AliITSeomS and replaced it with class
+AliITSgeomMatrix. Added many new functions with many new arguments. Most
+in the form of in line functions for speed.
+
+Revision 1.4.4.6  2000/06/04 16:33:32  Nilsen
+A restructured AliITSgeom class. Now used AliITSgeomMatrix.
+
+Revision 1.4.4.5  2000/03/04 23:42:39  Nilsen
+Updated the comments/documentations and improved the maintainability of the
+code.
+
+Revision 1.4.4.4  2000/03/02 21:27:07  Nilsen
+Added two functions, SetByAngles and SetTrans.
+
+Revision 1.4.4.3  2000/01/23 03:09:10  Nilsen
+// fixed compiler warnings for new function LtLErrorMatrix(...)
+
+Revision 1.4.4.2  2000/01/19 23:18:20  Nilsen
+Added transformations of Error matrix to AliITSgeom and fixed some typos
+in AliITS.h and AliITShitIndex.h
+
+Revision 1.4.4.1  2000/01/12 19:03:32  Nilsen
+This is the version of the files after the merging done in December 1999.
+See the ReadMe110100.txt file for details
+
+Revision 1.4  1999/10/15 07:03:20  fca
+Fixed bug in GetModuleId(Int_t index,Int_t &lay,Int_t &lad, Int_t &det) and
+a typo in the creator. aliroot need to be rerun to get a fixed geometry.
+
+Revision 1.3  1999/10/04 15:20:12  fca
+Correct syntax accepted by g++ but not standard for static members, remove minor warnings
+
+Revision 1.2  1999/09/29 09:24:20  fca
+Introduction of the Copyright and cvs Log
+
 */
 
 ///////////////////////////////////////////////////////////////////////
-// ITS geometry manimulaiton routines.                               //
+// ITS geometry manipulation routines.                               //
 // Created April 15 1999.                                            //
 // version: 0.0.0                                                    //
 // By: Bjorn S. Nilsen                                               //
 // version: 0.0.1                                                    //
 // Updated May 27 1999.                                              //
-// Added Cylinderical random and global based changes.               //
+// Added Cylindrical random and global based changes.               //
 // Added  function PrintComparison.                                  //
 ///////////////////////////////////////////////////////////////////////
+
+
+////////////////////////////////////////////////////////////////////////
+//     The local coordinate system by, default, is show in the following
+// figures. Also shown are the ladder numbering scheme.
+//Begin_Html
+/*
+<img src="picts/ITS/AliITSgeomMatrix_L1.gif">
+</pre>
+<br clear=left>
+<font size=+2 color=blue>
+<p>This shows the relative geometry differences between the ALICE Global
+coordinate system and the local detector coordinate system.
+</font>
+<pre>
+
+<pre>
+<img src="picts/ITS/its1+2_convention_front_5.gif">
+</pre>
+<br clear=left>
+<font size=+2 color=blue>
+<p>This shows the front view of the SPDs and the orientation of the local
+pixel coordinate system. Note that the inner pixel layer has its y coordinate
+in the opposite direction from all of the other layers.
+</font>
+<pre>
+
+<pre>
+<img src="picts/ITS/its3+4_convention_front_5.gif">
+</pre>
+<br clear=left>
+<font size=+2 color=blue>
+<p>This shows the front view of the SDDs and the orientation of the local
+pixel coordinate system.
+</font>
+<pre>
+
+<pre>
+<img src="picts/ITS/its5+6_convention_front_5.gif">
+</pre>
+<br clear=left>
+<font size=+2 color=blue>
+<p>This shows the front view of the SSDs and the orientation of the local
+pixel coordinate system.
+</font>
+<pre>
+*/
+//End_Html
+//
+////////////////////////////////////////////////////////////////////////
+
+////////////////////////////////////////////////////////////////////////
+//
+// version: 0
+// Written by Bjorn S. Nilsen
+//
+// Data Members:
+//
+// Int_t fNlayers
+//     The number of ITS layers for this geometry. By default this
+//  is 6, but can be modified by the creator function if there are
+// more layers defined.
+//
+// Int_t *fNlad
+//     A pointer to an array fNlayers long containing the number of 
+// ladders for each layer. This array is typically created and filled 
+// by the AliITSgeom creator function.
+//
+// Int_t *fNdet
+//     A pointer to an array fNlayers long containing the number of
+// active detector volumes for each ladder. This array is typically
+// created and filled by the AliITSgeom creator function.
+//
+// AliITSgeomMatrix *fGm
+//     A pointer to an array of AliITSgeomMatrix classes. One element 
+// per module (detector) in the ITS. AliITSgeomMatrix basicly contains
+// all of the necessary information about the detector and it's coordinate
+// transformations.
+//
+// TObjArray *fShape
+//     A pointer to an array of TObjects containing the detailed shape
+// information for each type of detector used in the ITS. For example
+// I have created AliITSgeomSPD, AliITSgeomSDD, and AliITSgeomSSD as
+// example structures, derived from TObjects, to hold the detector
+// information. I would recommend that one element in each of these
+// structures, that which describes the shape of the active volume,
+// be one of the ROOT classes derived from TShape. In this way it would
+// be easy to have the display program display the correct active
+// ITS volumes. See the example classes AliITSgeomSPD, AliITSgeomSDD,
+// and AliITSgeomSSD for a more detailed example.
+////////////////////////////////////////////////////////////////////////
 #include <iostream.h>
 #include <fstream.h>
 #include <iomanip.h>
+#include <stdlib.h>
 #include <stdio.h>
+#include <string.h>
+#include <ctype.h>
+
+#include <TSystem.h>
+#include <TVector.h>
+#include <TObject.h>
+#include <TRandom.h>
+
 #include "AliITSgeom.h"
-#include "TRandom.h"
+//#include "AliITSgeomMatrix.h" // include in AliITSgeom.h
+#include "AliITSgeomSPD.h"
+#include "AliITSgeomSDD.h"
+#include "AliITSgeomSSD.h"
 
 ClassImp(AliITSgeom)
 
@@ -42,157 +204,367 @@ AliITSgeom::AliITSgeom(){
 //     The default constructor for the AliITSgeom class. It, by default,
 // sets fNlayers to zero and zeros all pointers.
 ////////////////////////////////////////////////////////////////////////
-  // Default constructor.
-  // Do not allocate anything zero everything
-   fNlayers = 0;
-   fNlad    = 0;
-   fNdet    = 0;
-   fg       = 0;
-   fShape   = 0;
-   return;
+    // Default constructor.
+    // Do not allocate anything zero everything
+    fTrans   = 0; // standard GEANT global/local coordinate system.
+    fNlayers = 0;
+    fNlad    = 0;
+    fNdet    = 0;
+    fGm      = 0;
+    fShape   = 0;
+    strcpy(fVersion,"test");
+    return;
 }
+//_____________________________________________________________________
+AliITSgeom::AliITSgeom(Int_t itype,Int_t nlayers,Int_t *nlads,Int_t *ndets,
+                      Int_t mods){
+////////////////////////////////////////////////////////////////////////
+//     A simple constructor to set basic geometry class variables
+// Input:
+//      itype  the type of transofmation kept.
+//             0 => Standard Geant
+//         bit 1 => ITS tracking
+//         bit 2 => A change in the coordiante system has been made.
+//         others are still to be defined as needed.
+//      nlayers The number of ITS layers also set the size of the arrays
+//      *nlads  an array of the number of ladders for each layer
+//      *ndets  an array of the number of detectors per ladder for each layer.
+////////////////////////////////////////////////////////////////////////
+    Int_t i;
+
+    fTrans    = itype;
+    fNlayers  = nlayers;
+    fNlad     = new Int_t[nlayers];
+    fNdet     = new Int_t[nlayers];
+    for(i=0;i<nlayers;i++){fNlad[i] = nlads[i];fNdet[i] = ndets[i];}
+    fNmodules = mods;
+    fGm       = new TObjArray(mods,0);
+    fShape    = new TObjArray(5); // default value
+    for(i=0;i<5;i++) fShape->AddAt(0,i);
+    strcpy(fVersion,"test");
+    return;
+}
+//______________________________________________________________________
+void AliITSgeom::CreatMatrix(Int_t mod,Int_t lay,Int_t lad,Int_t det,
+                            AliITSDetector idet,Double_t tran[3],
+                            Double_t rot[10]){
+    Int_t id[3];
+    Double_t r[3][3] = {{1.0,0.0,0.0},{0.0,1.0,0.0},{0.0,0.0,1.0}};
 
+    if(fGm->At(mod)!=0) delete fGm->At(mod);
+    id[0] = lay; id[1] = lad; id[2] = det;
+    if(rot[9]!=0.0) { // null rotation
+       r[0][0] = rot[0]; r[0][1] = rot[1]; r[0][2] = rot[2];
+       r[1][0] = rot[3]; r[1][1] = rot[4]; r[1][2] = rot[5];
+       r[2][0] = rot[6]; r[2][1] = rot[7]; r[2][2] = rot[8];
+    } // end if
+    fGm->AddAt(new AliITSgeomMatrix(idet,id,r,tran),mod);
+}
 //_____________________________________________________________________
 AliITSgeom::~AliITSgeom(){
 ////////////////////////////////////////////////////////////////////////
 //     The destructor for the AliITSgeom class. If the arrays fNlad,
-// fNdet, or fg have had memory allocated to them, there pointer values
+// fNdet, or fGm have had memory allocated to them, there pointer values
 // are non zero, then this memory space is freed and they are set
 // to zero. In addition, fNlayers is set to zero. The destruction of
 // TObjArray fShape is, by default, handled by the TObjArray destructor.
 ////////////////////////////////////////////////////////////////////////
   // Default destructor.
-  // if arrays exist delet them. Then set everything to zero.
-   if(fg!=0){
-      for(Int_t i=0;i<fNlayers;i++) delete[] fg[i];
-      delete[] fg;
-   } // end if fg!=0
+  // if arrays exist delete them. Then set everything to zero.
+   if(fGm!=0){
+      for(Int_t i=0;i<fNlayers;i++) delete fGm->At(i);
+      delete fGm;
+   } // end if fGm!=0
    if(fNlad!=0) delete[] fNlad;
    if(fNdet!=0) delete[] fNdet;
    fNlayers = 0;
    fNlad    = 0;
    fNdet    = 0;
-   f      = 0;
+   fGm      = 0;
    return;
 }
+//______________________________________________________________________
+void AliITSgeom::ReadNewFile(const char *filename){
+    Int_t ncmd=9;
+    const char *cmda[]={"Version"        ,"fTrans"  ,"fNmodules",
+                       "fNlayers"       ,"fNladers","fNdetectors",
+                       "fNDetectorTypes","fShape"  ,"Matrix"};
+    Int_t i,j,lNdetTypes,ldet;
+    char cmd[20],c;
+    AliITSgeomSPD *spd;
+    AliITSgeomSDD *sdd;
+    AliITSgeomSSD *ssd;
+    AliITSgeomMatrix *m;
+    ifstream *fp;
+    char *filtmp;
+
+    filtmp = gSystem->ExpandPathName(filename);
+    cout << "AliITSgeom, Reading New .det file " << filtmp << endl;
+    fp = new ifstream(filtmp,ios::in);  // open file to write
+    while(fp->get(c)!=NULL){ // for ever loop
+       if(c==' ') continue; // remove blanks
+       if(c=='\n') continue;
+       if(c=='#' || c=='!'){for(;fp->get(c)!=NULL,c!='\n';); continue;}
+       if(c=='/'){
+           fp->get(c);{
+               if(c=='/'){for(;fp->get(c)!=NULL,c!='\n';);continue;}
+               if(c=='*'){
+               NotYet:
+                   for(;fp->get(c)!=NULL,c!='*';);
+                   fp->get(c);{
+                       if(c=='/') continue;
+                       goto NotYet;
+                   } //
+               } // end if c=='*'
+           } // end if second /
+       } // end if first /
+       fp->putback(c);
+//     fp->unget();
+       *fp >> cmd;
+       for(i=0;i<ncmd;i++) if(strcmp(cmd,cmda[i])==0) break;
+       switch (i){
+       case 0:   // Version
+           *fp >> fVersion;
+           break;
+       case 1:  // fTrans
+           *fp >> fTrans;
+           break;
+       case 2:  // fNModules
+           *fp >> fNmodules;
+           if(fGm!=0){
+               for(j=0;j<fGm->GetEntriesFast();j++) delete fGm->At(j);
+               delete fGm;
+           } // end if
+           fGm = new TObjArray(fNmodules,0);
+           break;
+       case 3:  // fNlayers
+           *fp >> fNlayers;
+           if(fNlad!=0) delete fNlad;
+           if(fNdet!=0) delete fNdet;
+           fNlad = new Int_t[fNlayers];
+           fNdet = new Int_t[fNlayers];
+           break;
+       case 4:  // fNladers
+           for(j=0;j<fNlayers;j++) *fp >> fNlad[j];
+           break;
+       case 5:  // fNdetectors
+           for(j=0;j<fNlayers;j++) *fp >> fNdet[j];
+           break;
+       case 6:  // fNDetectorTypes
+           *fp >> lNdetTypes;
+           if(fShape!=0){
+               for(j=0;j<fShape->GetEntriesFast();j++) delete fShape->At(j);
+               delete fShape;
+           } // end if
+           fShape = new TObjArray(lNdetTypes,0);
+           break;
+       case 7:  // fShape
+           *fp >> ldet;
+           if(fShape==0) fShape = new TObjArray(5,0);
+           switch (ldet){
+           case kSPD :
+               ReSetShape(ldet,(TObject*) new AliITSgeomSPD());
+               spd = (AliITSgeomSPD*) (fShape->At(ldet));
+               *fp >> *spd;
+               spd = 0;
+               break;
+           case kSDD :
+               ReSetShape(ldet,(TObject*) new AliITSgeomSDD());
+               sdd = (AliITSgeomSDD*) (fShape->At(ldet));
+               *fp >> *sdd;
+               sdd = 0;
+               break;
+           case kSSD : case kSSDp :
+               ReSetShape(ldet,(TObject*) new AliITSgeomSSD());
+               ssd = (AliITSgeomSSD*) (fShape->At(ldet));
+               *fp >> *ssd;
+               ssd = 0;
+               break;
+           default:
+               Error("ReadNewFile","Unknown fShape type number=%d c=%c",ldet,c);
+               for(;fp->get(c)==NULL,c!='\n';); // skip to end of line.
+               break;
+           } // end switch
+           break;
+       case 8:  // Matrix
+           *fp >> ldet;
+           if(fGm==0) fGm = new TObjArray(2270,0);
+           if(fGm->At(ldet)!=0) delete (fGm->At(ldet));
+           fGm->AddAt((TObject*)new AliITSgeomMatrix(),ldet);
+           m = (AliITSgeomMatrix*) fGm->At(ldet);
+           *fp >> *m;
+           m = 0;
+           break;
+       default:
+           Error("ReadNewFile","Data line i=%d c=%c",i,c);
+           for(;fp->get(c)==NULL,c!='\n';); // skip this line
+           break;
+       } // end switch i
+    } // end while
+    delete fp;
 
+    return;
+}
+//______________________________________________________________________
+void AliITSgeom::WriteNewFile(const char *filename){
+// Writes AliITSgeom, AliITSgeomMatrix, and the defined AliITSgeomS*D classes
+// to a file in a format that is more readable and commentable.
+    ofstream *fp;
+    Int_t i;
+    char *filtmp;
+
+    filtmp = gSystem->ExpandPathName(filename);
+    cout << "AliITSgeom, Writing New .det file " << filtmp << endl;
+    fp = new ofstream(filtmp,ios::out);  // open file to write
+    *fp << "//Comment lines begin with two //, one #, or one !" << endl;
+    *fp << "#Blank lines are skipped including /* and */ sections." << endl;
+    *fp << "!and, in principle the order of the lines is not important" <<endl;
+    *fp << "/* In AliITSgeom.h are defined an enumerated type called" << endl;
+    *fp << " AliITSDetectors These are kSPD=" << (Int_t) kSPD ;
+    *fp << ", kSDD=" << (Int_t) kSDD << ", kSSD=" << (Int_t) kSSD;
+    *fp << ", kSSDp=" << (Int_t) kSSDp << ", and kSDDp=" << (Int_t) kSDDp;
+    *fp << "*/" << endl;
+    *fp << "Version " << fVersion << endl;//This should be consistant with the
+                                           // geometry version.
+    *fp << "fTrans " << fTrans << endl;
+    *fp << "fNmodules " << fNmodules << endl;
+    *fp << "fNlayers " << fNlayers << endl;
+    *fp << "fNladers ";
+    for(i=0;i<fNlayers;i++) *fp << fNlad[i] << " ";
+    *fp << endl;
+    *fp << "fNdetectors ";
+    for(i=0;i<fNlayers;i++) *fp << fNdet[i] << " ";
+    *fp << endl;
+    *fp << "fNDetectorTypes " << fShape->GetEntriesFast() << endl;
+    for(i=0;i<fShape->GetEntriesFast();i++){
+       if(!IsShapeDefined(i)) continue; // only print out used shapes.
+       switch (i){
+       case kSPD :
+           *fp << "fShape " << (Int_t) kSPD << " ";
+           *fp << *((AliITSgeomSPD*)(fShape->At(i)));
+           break;
+       case kSDD :
+           *fp << "fShape " << (Int_t) kSDD << " ";
+           *fp << *((AliITSgeomSDD*)(fShape->At(i)));
+           break;
+       case kSSD : case kSSDp :
+           *fp << "fShape " << i << " ";
+           *fp << *((AliITSgeomSSD*)(fShape->At(i)));
+           break;
+       default:
+           Error("AliITSgeom::WriteNewFile","Unknown Shape value");
+       } // end switch (i)
+    } // end for i
+    for(i=0;i<fNmodules;i++){
+       *fp << "Matrix " << i << " ";
+       *fp << *GetGeomMatrix(i);
+    } // end for i
+    *fp << "//End of File" << endl;;
+
+    delete fp;
+    return;
+}
 //_____________________________________________________________________
 AliITSgeom::AliITSgeom(const char *filename){
 ////////////////////////////////////////////////////////////////////////
 //     The constructor for the AliITSgeom class. All of the data to fill
 // this structure is read in from the file given my the input filename.
 ////////////////////////////////////////////////////////////////////////
-   FILE     *pf;
-   Int_t    i;
-   ITS_geom *g;
+   FILE     *pf=0;
+   Int_t    i,lm=0,id[3];
    Int_t    l,a,d;
    Float_t  x,y,z,o,p,q,r,s,t;
-   Double_t or,pr,qr,rr,sr,tr; // Radians
-   Double_t lr[9];
-   Double_t si; // sin(angle)
-   Double_t PI = TMath::Pi(), byPI = PI/180.;
+   Double_t rot6[6],tran[3];
+   char     buf[200],*buff=0; // input character buffer;
+   char *filtmp;
 
-   pf = fopen(filename,"r");
+   filtmp = gSystem->ExpandPathName(filename);
+   cout << "AliITSgeom reading old .det file " << filtmp << endl;
+   fShape = 0;
+   strcpy(fVersion,"DefauleV5");
+   pf = fopen(filtmp,"r");
 
    fNlayers = 6; // set default number of ladders
+TryAgain:
    fNlad    = new Int_t[fNlayers];
    fNdet    = new Int_t[fNlayers];
-   // find the number of laders and detectors in this geometry.
+   fNmodules = 0;
+   // find the number of ladders and detectors in this geometry.
    for(i=0;i<fNlayers;i++){fNlad[i]=fNdet[i]=0;} // zero out arrays
-   for(;;){ // for ever loop
-      i = fscanf(pf,"%d %d %d %f %f %f %f %f %f %f %f %f",
-                     &l,&a,&d,&x,&y,&z,&o,&p,&q,&r,&s,&t);
-      if(i==EOF) break;
+   while(fgets(buf,200,pf)!=NULL){ // for ever loop
+      for(i=0;i<200;i++)if(buf[i]!=' '){ // remove blank spaces.
+           buff = &(buf[i]);
+           break;
+      } // end for i
+      // remove blank lines and comments.
+      if(buff[0]=='\n'||buff[0]=='#'||buff[0]=='!'||
+         (buff[0]=='/'&&buff[1]=='/')) continue;
+      if(isalpha(buff[0])) { // must be the new file formated file.
+            fclose(pf);
+            delete[] fNlad;delete[] fNdet;
+            ReadNewFile(filename);
+            return;
+      } // end if isalpha(buff[0])
+      sscanf(buff,"%d %d %d %f %f %f %f %f %f %f %f %f",
+                  &l,&a,&d,&x,&y,&z,&o,&p,&q,&r,&s,&t);
+      if(l>lm) lm = l;
       if(l<1 || l>fNlayers) {
-         printf("error in file %s layer=%d min is 1 max is %d/n",
+         printf("error in file %s layer=%d min. is 1 max is %d\n",
                  filename,l,fNlayers);
          continue;
       }// end if l
-      if(fNlad[l-1]<a) fNlad[l-1] = a;
-      if(fNdet[l-1]<d) fNdet[l-1] = d;
-   } // end for ever loop
-   // counted the number of laders and detectors now allocate space.
-   fg = new ITS_geom* [fNlayers];
-   for(i=0;i<fNlayers;i++){
-      fg[i] = 0;
-      l = fNlad[i]*fNdet[i];
-      fg[i] = new ITS_geom[l]; // allocate space for transforms
-   } // end for i
+      fNmodules++;
+      if(l<=fNlayers&&fNlad[l-1]<a) fNlad[l-1] = a;
+      if(l<=fNlayers&&fNdet[l-1]<d) fNdet[l-1] = d;
+   } // end while ever loop
+   if(lm>fNlayers){
+       delete[] fNlad;
+       delete[] fNdet;
+       fNlayers = lm;
+       goto TryAgain;
+   } // end if lm>fNlayers
+   // counted the number of ladders and detectors now allocate space.
+   fGm = new TObjArray(fNmodules,0);
 
    // Set up Shapes for a default configuration of 6 layers.
-   fShape = new TObjArray;
-   AddShape((TObject *) new AliITSgeomSPD());  // shape 0
-   AddShape((TObject *) new AliITSgeomSDD());  // shape 1
-   AddShape((TObject *) new AliITSgeomSPD());  // shape 2
-
-   // prepair to read in transforms
+   fTrans   = 0; // standard GEANT global/local coordinate system.
+   // prepare to read in transforms
+   lm = 0; // reuse lm as counter of modules.
    rewind(pf); // start over reading file
-   for(;;){ // for ever loop
-      i = fscanf(pf,"%d %d %d %f %f %f %f %f %f %f %f %f",
-                     &l,&a,&d,&x,&y,&z,&o,&p,&q,&r,&s,&t);
-      if(i==EOF) break;
+   while(fgets(buf,200,pf)!=NULL){ // for ever loop
+      for(i=0;i<200;i++)if(buf[i]!=' '){ // remove blank spaces.
+           buff = &(buf[i]);
+           break;
+      } // end for i
+      // remove blank lines and comments.
+      if(buff[0]=='\n'||buff[0]=='#'||buff[0]=='!'||
+        (buff[0]=='/'&&buff[1]=='/')) continue;
+      x = y = z = o = p = q = r = s = t = 0.0;
+      sscanf(buff,"%d %d %d %f %f %f %f %f %f %f %f %f",
+                  &l,&a,&d,&x,&y,&z,&o,&p,&q,&r,&s,&t);
       if(l<1 || l>fNlayers) {
-         printf("error in file %s layer=%d min is 1 max is %d/n",
+         printf("error in file %s layer=%d min. is 1 max is %d/n",
                  filename,l,fNlayers);
          continue;
       }// end if l
-      l--; a--; d--; // shift layer, lader, and detector counters to zero base
-      i = d + a*fNdet[l]; // position of this detector
-      g = &(fg[l][i]);
-
-      or = byPI*o;
-      pr = byPI*p;
-      qr = byPI*q;
-      rr = byPI*r;
-      sr = byPI*s;
-      tr = byPI*t;
-
-      g->fx0   = x;
-      g->fy0   = y;
-      g->fz0   = z;
-      si    = sin(or);if(o== 90.0) si = +1.0;
-                      if(o==270.0) si = -1.0;
-                      if(o==  0.0||o==180.) si = 0.0;
-      lr[0] = si * cos(pr);
-      lr[1] = si * sin(pr);
-      lr[2] = cos(or);if(o== 90.0||o==270.) lr[2] = 0.0;
-                      if(o== 0.0)           lr[2] = +1.0;
-                      if(o==180.0)          lr[2] = -1.0;
-      si    =  sin(qr);if(q== 90.0) si = +1.0; 
-                       if(q==270.0) si = -1.0;
-                       if(q==  0.0||q==180.) si = 0.0;
-      lr[3] = si * cos(rr);
-      lr[4] = si * sin(rr);
-      lr[5] = cos(qr);if(q== 90.0||q==270.) lr[5] = 0.0;
-                      if(q==  0.0)          lr[5] = +1.0;
-                      if(q==180.0)          lr[5] = -1.0;
-      si    = sin(sr);if(r== 90.0) si = +1.0;
-                      if(r==270.0) si = -1.0;
-                      if(r==  0.0||r==180.) si = 0.0;
-      lr[6] = si * cos(tr);
-      lr[7] = si * sin(tr);
-      lr[8] = cos(sr);if(r== 90.0||r==270.0) lr[8] =  0.0;
-                      if(r==  0.0)           lr[8] = +1.0;
-                      if(r==180.0)           lr[8] = -1.0;
-      // Normalize these elements
-      for(a=0;a<3;a++){// reuse float si and integers a and d.
-         si = 0.0;
-         for(d=0;d<3;d++) si += lr[3*a+d]*lr[3*a+d];
-         si = TMath::Sqrt(1./si);
-         for(d=0;d<3;d++) g->fr[3*a+d] = lr[3*a+d] = si*lr[3*a+d];
-      } // end for a
-      // get angles from matrix up to a phase of 180 degrees.
-      or     = atan2(lr[7],lr[8]);if(or<0.0) or += 2.0*PI;
-      pr     = asin(lr[2]);       if(pr<0.0) pr += 2.0*PI;
-      qr     = atan2(lr[3],lr[0]);if(qr<0.0) qr += 2.0*PI;
-      g->frx = or;
-      g->fry = pr;
-      g->frz = qr;
-      // l = layer-1 at this point.
-           if(l==0||l==1) g->fShapeIndex = 0; // SPD's
-      else if(l==2||l==3) g->fShapeIndex = 1; // SDD's
-      else if(l==4||l==5) g->fShapeIndex = 2; // SSD's
-   } // end for ever loop
+      id[0] = l;id[1] = a;id[2] = d;
+      tran[0] = tran[1] = tran[2]  = 0.0;
+      tran[0] = (Double_t)x;tran[1] = (Double_t)y;tran[2] = (Double_t)z;
+      rot6[0] = rot6[1] = rot6[2] = rot6[3] = rot6[4] = rot6[5] =0.0;
+      rot6[0] = (Double_t)o;rot6[1] = (Double_t)p;rot6[2] = (Double_t)q;
+      rot6[3] = (Double_t)r;rot6[4] = (Double_t)s;rot6[5] = (Double_t)t;
+      switch (l){
+      case 1: case 2: // layer 1 or2 SPD
+          fGm->AddAt(new AliITSgeomMatrix(rot6,kSPD,id,tran),lm++);
+         break;
+      case 3: case 4: // layer 3 or 4 SDD
+          fGm->AddAt(new AliITSgeomMatrix(rot6,kSDD,id,tran),lm++);
+         break;
+      case 5: case 6: // layer 5 or 6 SSD
+          fGm->AddAt(new AliITSgeomMatrix(rot6,kSSD,id,tran),lm++);
+         break;
+      } // end switch
+   } // end while ever loop
    fclose(pf);
 }
 
@@ -202,8 +574,10 @@ AliITSgeom::AliITSgeom(AliITSgeom &source){
 //     The copy constructor for the AliITSgeom class. It calls the
 // = operator function. See the = operator function for more details.
 ////////////////////////////////////////////////////////////////////////
-   source = *this;  // Just use the = operator for now.
-   return;
+
+    *this = source;  // Just use the = operator for now.
+
+    return;
 }
 
 //________________________________________________________________________
@@ -215,292 +589,288 @@ void AliITSgeom::operator=(AliITSgeom &source){
 // This is required for many ITS alignment studies where the copied
 // class is then modified by introducing some misalignment.
 ////////////////////////////////////////////////////////////////////////
-   Int_t i,j,k;
+   Int_t i;
 
    if(this == &source) return; // don't assign to ones self.
 
    // if there is an old structure allocated delete it first.
-   if(fg != 0){
-      for(i=0;i<fNlayers;i++) delete[] fg[i];
-      delete[] fg;
-   } // end if fg != 0 
+   if(this->fGm != 0){
+      for(i=0;i<this->fNmodules;i++) delete this->fGm->At(i);
+      delete this->fGm;
+   } // end if fGm != 0 
    if(fNlad != 0) delete[] fNlad;
    if(fNdet != 0) delete[] fNdet;
 
-   fNlayers = source.fNlayers;
-   fNlad = new Int_t[fNlayers];
-   for(i=0;i<fNlayers;i++) fNlad[i] = source.fNlad[i];
-   fNdet = new Int_t[fNlayers];
-   for(i=0;i<fNlayers;i++) fNdet[i] = source.fNdet[i];
-   fShape = new TObjArray(*(source.fShape));//This does not make a proper copy.
-   fg = new ITS_geom* [fNlayers];
-   for(i=0;i<fNlayers;i++){
-      fg[i] = new ITS_geom[fNlad[i]*fNdet[i]];
-      for(j=0;j<(fNlad[i]*fNdet[i]);j++){
-         fg[i][j].fShapeIndex = source.fg[i][j].fShapeIndex;
-         fg[i][j].fx0 = source.fg[i][j].fx0;
-         fg[i][j].fy0 = source.fg[i][j].fy0;
-         fg[i][j].fz0 = source.fg[i][j].fz0;
-         fg[i][j].frx = source.fg[i][j].frx;
-         fg[i][j].fry = source.fg[i][j].fry;
-         fg[i][j].frz = source.fg[i][j].frz;
-         for(k=0;k<9;k++) fg[i][j].fr[k] = source.fg[i][j].fr[k];
-      } // end for j
+   this->fTrans    = source.fTrans;
+   this->fNmodules = source.fNmodules;
+   this->fNlayers = source.fNlayers;
+   this->fNlad = new Int_t[fNlayers];
+   for(i=0;i<this->fNlayers;i++) this->fNlad[i] = source.fNlad[i];
+   this->fNdet = new Int_t[fNlayers];
+   for(i=0;i<this->fNlayers;i++) this->fNdet[i] = source.fNdet[i];
+   this->fShape = new TObjArray(*(source.fShape));//This does not make a proper copy.
+   this->fGm = new TObjArray(this->fNmodules,0);
+   for(i=0;i<this->fNmodules;i++){
+       this->fGm->AddAt(new AliITSgeomMatrix(*(
+          (AliITSgeomMatrix*)(source.fGm->At(i)))),i);
    } // end for i
    return;
-}
-
-
-//________________________________________________________________________
-void AliITSgeom::GtoL(Int_t lay,Int_t lad,Int_t det,
-                       const Float_t *g,Float_t *l){
-////////////////////////////////////////////////////////////////////////
-//     The function that does the global ALICE Cartesian coordinate
-// to local active volume detector Cartesian coordinate transformation.
-// The local detector coordinate system is determined by the layer, 
-// ladder, and detector numbers. The global coordinates are entered by
-// the three element Float_t array g and the local coordinate values
-// are returned by the three element Float_t array l. The order of the 
-// three elements are g[0]=x, g[1]=y, and g[2]=z, similarly for l.
-////////////////////////////////////////////////////////////////////////
-   Double_t x,y,z;
-   ITS_geom *gl;
-
-   lay--; lad--; det--;
-   gl = &(fg[lay][fNdet[lay]*lad+det]);
-
-   x    = g[0] - gl->fx0;
-   y    = g[1] - gl->fy0;
-   z    = g[2] - gl->fz0;
-   l[0] = gl->fr[0]*x + gl->fr[1]*y + gl->fr[2]*z;
-   l[1] = gl->fr[3]*x + gl->fr[4]*y + gl->fr[5]*z;
-   l[2] = gl->fr[6]*x + gl->fr[7]*y + gl->fr[8]*z;
-   return;
-}
-
-//________________________________________________________________________
-void AliITSgeom::GtoL(const Int_t *id,const Float_t *g,Float_t *l){
-////////////////////////////////////////////////////////////////////////
-//     The function that does the local active volume detector Cartesian
-// coordinate to global ALICE Cartesian coordinate transformation.
-// The local detector coordinate system is determined by the layer, 
-// ladder, and detector numbers. The local coordinates are entered by
-// the three element Float_t array l and the global coordinate values
-// are returned by the three element Float_t array g. The order of the 
-// three elements are l[0]=x, l[1]=y, and l[2]=z, similarly for g.
-////////////////////////////////////////////////////////////////////////
-   Int_t    lay,lad,det;
-   Double_t x,y,z;
-   ITS_geom *gl;
-
-   lay = id[0]; lad = id[1]; det = id[2];
-   lay--; lad--; det--;
-   gl = &(fg[lay][fNdet[lay]*lad+det]);
-
-   x    = g[0] - gl->fx0;
-   y    = g[1] - gl->fy0;
-   z    = g[2] - gl->fz0;
-   l[0] = gl->fr[0]*x + gl->fr[1]*y + gl->fr[2]*z;
-   l[1] = gl->fr[3]*x + gl->fr[4]*y + gl->fr[5]*z;
-   l[2] = gl->fr[6]*x + gl->fr[7]*y + gl->fr[8]*z;
-   return;
-}
-//________________________________________________________________________
-void AliITSgeom::GtoL(Int_t index,const Float_t *g,Float_t *l){
-////////////////////////////////////////////////////////////////////////
-//     The function that does the local active volume detector Cartesian
-// coordinate to global ALICE Cartesian coordinate transformation.
-// The local detector coordinate system is determined by the detector
-// index numbers (see GetModuleIndex and GetModuleID). The local 
-// coordinates are entered by the three element Float_t array l and the 
-// global coordinate values are returned by the three element Float_t array g.
-// The order of the three elements are l[0]=x, l[1]=y, and l[2]=z, similarly 
-// for g.
-////////////////////////////////////////////////////////////////////////
-   Int_t    lay,lad,det;
-   Double_t x,y,z;
-   ITS_geom *gl;
-
-   this->GetModuleId(index,lay,lad,det);
-   lay--; lad--; det--;
-   gl = &(fg[lay][fNdet[lay]*lad+det]);
-
-   x    = g[0] - gl->fx0;
-   y    = g[1] - gl->fy0;
-   z    = g[2] - gl->fz0;
-   l[0] = gl->fr[0]*x + gl->fr[1]*y + gl->fr[2]*z;
-   l[1] = gl->fr[3]*x + gl->fr[4]*y + gl->fr[5]*z;
-   l[2] = gl->fr[6]*x + gl->fr[7]*y + gl->fr[8]*z;
-   return;
-}
-
-//________________________________________________________________________
-void AliITSgeom::LtoG(Int_t lay,Int_t lad,Int_t det,
-                     const Float_t *l,Float_t *g){
-////////////////////////////////////////////////////////////////////////
-//     The function that does the local active volume detector Cartesian
-// coordinate to global ALICE Cartesian coordinate transformation.
-// The local detector coordinate system is determined by the layer, 
-// ladder, and detector numbers. The local coordinates are entered by
-// the three element Float_t array l and the global coordinate values
-// are returned by the three element Float_t array g. The order of the 
-// three elements are l[0]=x, l[1]=y, and l[2]=z, similarly for g.
-////////////////////////////////////////////////////////////////////////
-   Double_t x,y,z;
-   ITS_geom *gl;
-
-   lay--; lad--; det--;
-   gl   = &(fg[lay][fNdet[lay]*lad+det]);
-
-   x    = gl->fr[0]*l[0] + gl->fr[3]*l[1] + gl->fr[6]*l[2];
-   y    = gl->fr[1]*l[0] + gl->fr[4]*l[1] + gl->fr[7]*l[2];
-   z    = gl->fr[2]*l[0] + gl->fr[5]*l[1] + gl->fr[8]*l[2];
-   g[0] = x + gl->fx0;
-   g[1] = y + gl->fy0;
-   g[2] = z + gl->fz0;
-   return;
-}
-
-//________________________________________________________________________
-void AliITSgeom::LtoG(const Int_t *id,const Float_t *l,Float_t *g){
-////////////////////////////////////////////////////////////////////////
-//     The function that does the local active volume detector Cartesian
-// coordinate to global ALICE Cartesian coordinate transformation.
-// The local detector coordinate system is determined by the three
-// element array Id containing as it's three elements Id[0]=layer, 
-// Id[1]=ladder, and Id[2]=detector numbers. The local coordinates
-// are entered by the three element Float_t array l and the global
-// coordinate values are returned by the three element Float_t array g.
-// The order of the three elements are l[0]=x, l[1]=y, and l[2]=z,
-// similarly for g.
-////////////////////////////////////////////////////////////////////////
-   Int_t    lay,lad,det;
-   Double_t x,y,z;
-   ITS_geom *gl;
-
-   lay = id[0]; lad = id[1]; det = id[2];
-   lay--; lad--; det--;
-   gl   = &(fg[lay][fNdet[lay]*lad+det]);
-
-   x    = gl->fr[0]*l[0] + gl->fr[3]*l[1] + gl->fr[6]*l[2];
-   y    = gl->fr[1]*l[0] + gl->fr[4]*l[1] + gl->fr[7]*l[2];
-   z    = gl->fr[2]*l[0] + gl->fr[5]*l[1] + gl->fr[8]*l[2];
-   g[0] = x + gl->fx0;
-   g[1] = y + gl->fy0;
-   g[2] = z + gl->fz0;
-   return;
-}
-//________________________________________________________________________
-void AliITSgeom::LtoG(Int_t index,const Float_t *l,Float_t *g){
-////////////////////////////////////////////////////////////////////////
-//     The function that does the local active volume detector Cartesian
-// coordinate to global ALICE Cartesian coordinate transformation.
-// The local detector coordinate system is determined by the detector  
-// index number (see GetModuleIndex and GetModuleId). The local coordinates
-// are entered by the three element Float_t array l and the global
-// coordinate values are returned by the three element Float_t array g.
-// The order of the three elements are l[0]=x, l[1]=y, and l[2]=z,
-// similarly for g.
-////////////////////////////////////////////////////////////////////////
-   Int_t    lay,lad,det;
-   Double_t x,y,z;
-   ITS_geom *gl;
-
-   this->GetModuleId(index,lay,lad,det);
-   lay--; lad--; det--;
-   gl   = &(fg[lay][fNdet[lay]*lad+det]);
-
-   x    = gl->fr[0]*l[0] + gl->fr[3]*l[1] + gl->fr[6]*l[2];
-   y    = gl->fr[1]*l[0] + gl->fr[4]*l[1] + gl->fr[7]*l[2];
-   z    = gl->fr[2]*l[0] + gl->fr[5]*l[1] + gl->fr[8]*l[2];
-   g[0] = x + gl->fx0;
-   g[1] = y + gl->fy0;
-   g[2] = z + gl->fz0;
-   return;
-}
-//________________________________________________________________________
-void AliITSgeom::GtoLMomentum(Int_t lay,Int_t lad,Int_t det,
-                             const Float_t *g,Float_t *l){
-////////////////////////////////////////////////////////////////////////
-//     The function that does the global ALICE Cartesian momentum
-// to local active volume detector Cartesian momentum transformation.
-// The local detector coordinate system is determined by the layer, 
-// ladder, and detector numbers. The global momentums are entered by
-// the three element Float_t array g and the local momentums values
-// are returned by the three element Float_t array l. The order of the 
-// three elements are g[0]=x, g[1]=y, and g[2]=z, similarly for l.
-////////////////////////////////////////////////////////////////////////
-   Double_t px,py,pz;
-   ITS_geom *gl;
-
-   lay--; lad--; det--;
-   gl = &(fg[lay][fNdet[lay]*lad+det]);
-
-   px   = g[0];
-   py   = g[1];
-   pz   = g[2];
-   l[0] = gl->fr[0]*px + gl->fr[1]*py + gl->fr[2]*pz;
-   l[1] = gl->fr[3]*px + gl->fr[4]*py + gl->fr[5]*pz;
-   l[2] = gl->fr[6]*px + gl->fr[7]*py + gl->fr[8]*pz;
-   return;
-}
-//________________________________________________________________________
-void AliITSgeom::LtoGMomentum(Int_t lay,Int_t lad,Int_t det,
-                             const Float_t *l,Float_t *g){
-////////////////////////////////////////////////////////////////////////
-//     The function that does the local active volume detector Cartesian
-// momentum to global ALICE Cartesian momentum transformation.
-// The local detector momentum system is determined by the layer, 
-// ladder, and detector numbers. The locall momentums are entered by
-// the three element Float_t array l and the global momentum values
-// are returned by the three element Float_t array g. The order of the 
-// three elements are l[0]=x, l[1]=y, and l[2]=z, similarly for g.
-////////////////////////////////////////////////////////////////////////
-   Double_t px,py,pz;
-   ITS_geom *gl;
-
-   lay--; lad--; det--;
-   gl   = &(fg[lay][fNdet[lay]*lad+det]);
-
-   px   = gl->fr[0]*l[0] + gl->fr[3]*l[1] + gl->fr[6]*l[2];
-   py   = gl->fr[1]*l[0] + gl->fr[4]*l[1] + gl->fr[7]*l[2];
-   pz   = gl->fr[2]*l[0] + gl->fr[5]*l[1] + gl->fr[8]*l[2];
-   g[0] = px;
-   g[1] = py;
-   g[2] = pz;
-   return;
-}
-//___________________________________________________________________________
-Int_t AliITSgeom::GetModuleIndex(Int_t lay,Int_t lad,Int_t det){
-    Int_t i,j,k;
+}//_____________________________________________________________________
+Int_t AliITSgeom::GetModuleIndex(const Int_t lay,const Int_t lad,
+                                const Int_t det){
+////////////////////////////////////////////////////////////////////////
+//      This routine computes the module index number from the layer,
+// ladder, and detector numbers. The number of ladders and detectors
+// per layer is determined when this geometry package is constructed,
+// see AliITSgeom(const char *filename) for specifics.
+////////////////////////////////////////////////////////////////////////
+    Int_t i,j,k,id[3];
 
     i = fNdet[lay-1] * (lad-1) + det - 1;
     j = 0;
     for(k=0;k<lay-1;k++) j += fNdet[k]*fNlad[k];
-    return (i+j);
+    i = i+j;
+    GetGeomMatrix(i)->GetIndex(id);
+    if(id[0]==lay&&id[1]==lad&&id[2]==det) return i;
+    // Array of modules fGm is not in expected order. Search for this index
+    for(i=0;i<fNmodules;i++){
+       GetGeomMatrix(i)->GetIndex(id);
+       if(id[0]==lay&&id[1]==lad&&id[2]==det) return i;
+    } // end for i
+    // This layer ladder and detector combination does not exist return -1.
+    return -1;
 }
-//___________________________________________________________________________
-void AliITSgeom::GetModuleId(Int_t index,Int_t &lay,Int_t &lad,Int_t &det){
-    Int_t i,j,k;
+//______________________________________________________________________
+void AliITSgeom::GetModuleId(const Int_t index,
+                            Int_t &lay,Int_t &lad,Int_t &det){
+////////////////////////////////////////////////////////////////////////
+//      This routine computes the layer, ladder and detector number 
+// given the module index number. The number of ladders and detectors
+// per layer is determined when this geometry package is constructed,
+// see AliITSgeom(const char *filename) for specifics.
+////////////////////////////////////////////////////////////////////////
+    Int_t id[3];
+
+    GetGeomMatrix(index)->GetIndex(id);
+    lay = id[0]; lad = id[1]; det = id[2];
+    return;
 
+    // The old way kept for posterity.
+/*
+    Int_t i,j,k;
     j = 0;
     for(k=0;k<fNlayers;k++){
        j += fNdet[k]*fNlad[k];
-       if(index>j)break;
+       if(j>index)break;
     } // end for k
     lay = k+1;
     i = index -j + fNdet[k]*fNlad[k];
     j = 0;
     for(k=0;k<fNlad[lay-1];k++){
-       j += fNdet[k];
-       if(i>fNdet[k])break;
+       j += fNdet[lay-1];
+       if(j>i)break;
     } // end for k
     lad = k+1;
     det = 1+i-fNdet[lay-1]*k;
     return;
+*/
+}
+//___________________________________________________________________________
+Int_t AliITSgeom::GetStartDet(const Int_t dtype){
+  /////////////////////////////////////////////////////////////////////////
+  // returns the starting module index value for a give type of detector id
+  /////////////////////////////////////////////////////////////////////////
+
+  switch(dtype){
+  case 0:
+     return GetModuleIndex(1,1,1);
+     break;
+  case 1:
+     return GetModuleIndex(3,1,1);
+     break;
+  case 2:
+     return GetModuleIndex(5,1,1);
+     break;
+  default:
+     printf("<AliITSgeom::GetFirstDet> undefined detector type\n");
+     return 0;
+  } // end switch
+
+  printf("<AliITSgeom::GetFirstDet> undefined detector type\n");
+  return 0;
 }
+
+//___________________________________________________________________________
+Int_t AliITSgeom::GetLastDet(const Int_t dtype){
+  /////////////////////////////////////////////////////////////////////////
+  // returns the last module index value for a give type of detector id
+  /////////////////////////////////////////////////////////////////////////
+
+  switch(dtype){
+  case 0:
+     return GetLastSPD();
+     break;
+   case 1:
+     return GetLastSDD();
+     break;
+   case 2:
+     return GetLastSSD();
+     break;
+   default:
+     printf("<AliITSgeom::GetLastDet> undefined detector type\n");
+     return 0;
+  } // end switch
+
+  printf("<AliITSgeom::GetLastDet> undefined detector type\n");
+  return 0;
+}
+
+//___________________________________________________________________________
+void AliITSgeom::PrintComparison(FILE *fp,AliITSgeom *other){
+////////////////////////////////////////////////////////////////////////
+//     This function was primarily created for diagnostic reasons. It
+// print to a file pointed to by the file pointer fp the difference
+// between two AliITSgeom classes. The format of the file is basicly,
+// define d? to be the difference between the same element of the two
+// classes. For example dfrx = this->GetGeomMatrix(i)->frx 
+// - other->GetGeomMatrix(i)->frx.
+// if(at least one of dfx0, dfy0, dfz0,dfrx,dfry,dfrz are non zero) then print
+// layer ladder detector dfx0 dfy0 dfz0 dfrx dfry dfrz
+// if(at least one of the 9 elements of dfr[] are non zero) then print
+// layer ladder detector dfr[0] dfr[1] dfr[2]
+//                       dfr[3] dfr[4] dfr[5]
+//                       dfr[6] dfr[7] dfr[8]
+// Only non zero values are printed to save space. The differences are
+// typical written to a file because there are usually a lot of numbers
+// printed out and it is usually easier to read them in some nice editor
+// rather than zooming quickly past you on a screen. fprintf is used to
+// do the printing. The fShapeIndex difference is not printed at this time.
+////////////////////////////////////////////////////////////////////////
+   Int_t    i,j,idt[3],ido[3];
+   Double_t tt[3],to[3];  // translation
+   Double_t rt[3],ro[3];  // phi in radians
+   Double_t mt[3][3],mo[3][3]; // matrixes
+   AliITSgeomMatrix *gt,*go;
+   Bool_t   t;
+
+   for(i=0;i<this->fNmodules;i++){
+         gt  =  this->GetGeomMatrix(i);
+        go  = other->GetGeomMatrix(i);
+         gt->GetIndex(idt);
+         go->GetIndex(ido);
+         t = kFALSE;
+         for(i=0;i<3;i++) t = t&&idt[i]!=ido[i];
+         if(t) fprintf(fp,"%4.4d %1.1d %2.2d %2.2d %1.1d %2.2d %2.2d\n",i,
+                       idt[0],idt[1],idt[2],ido[0],ido[1],ido[2]);
+         gt->GetTranslation(tt);
+         go->GetTranslation(to);
+         gt->GetAngles(rt);
+         go->GetAngles(ro);
+         t = kFALSE;
+         for(i=0;i<3;i++) t = t&&tt[i]!=to[i];
+        if(t) fprintf(fp,"%1.1d %2.2d %2.2d dTrans=%f %f %f drot=%f %f %f\n",
+                      idt[0],idt[1],idt[2],
+                       tt[0]-to[0],tt[1]-to[1],tt[2]-to[2],
+                       rt[0]-ro[0],rt[1]-ro[1],rt[2]-ro[2]);
+        t = kFALSE;
+         gt->GetMatrix(mt);
+         go->GetMatrix(mo);
+        for(i=0;i<3;i++)for(j=0;j<3;j++)  t = mt[i][j] != mo[i][j];
+        if(t){
+            fprintf(fp,"%1.1d %2.2d %2.2d dfr= %e %e %e\n",
+                     idt[0],idt[1],idt[2],
+                 mt[0][0]-mo[0][0],mt[0][1]-mo[0][1],mt[0][2]-mo[0][2]);
+            fprintf(fp,"        dfr= %e %e %e\n",
+                 mt[1][0]-mo[1][0],mt[1][1]-mo[1][1],mt[1][2]-mo[1][2]);
+            fprintf(fp,"        dfr= %e %e %e\n",
+                 mt[2][0]-mo[2][0],mt[2][1]-mo[2][1],mt[2][2]-mo[2][2]);
+        } // end if t
+   } // end for i
+   return;
+}
+
 //___________________________________________________________________________
-void AliITSgeom::GlobalChange(Float_t *tran,Float_t *rot){
+void AliITSgeom::PrintData(FILE *fp,
+                          const Int_t lay,const Int_t lad,const Int_t det){
+////////////////////////////////////////////////////////////////////////
+//     This function prints out the coordinate transformations for
+// the particular detector defined by layer, ladder, and detector
+// to the file pointed to by the File pointer fp. fprintf statements
+// are used to print out the numbers. The format is
+// layer ladder detector Trans= fx0 fy0 fz0 rot= frx fry frz Shape=fShapeIndex
+//                         dfr= fr[0] fr[1] fr[2]
+//                         dfr= fr[3] fr[4] fr[5]
+//                         dfr= fr[6] fr[7] fr[8]
+// By indicating which detector, some control over the information 
+// is given to the user. The output it written to the file pointed
+// to by the file pointer fp. This can be set to stdout if you want.
+////////////////////////////////////////////////////////////////////////
+   AliITSgeomMatrix *gt;
+   Double_t t[3],r[3],m[3][3];
+
+   gt = this->GetGeomMatrix(GetModuleIndex(lay,lad,det));
+   gt->GetTranslation(t);
+   gt->GetAngles(r);
+   fprintf(fp,"%1.1d %2.2d %2.2d Trans=%f %f %f rot=%f %f %f Shape=%d\n",
+          lay,lad,det,t[0],t[1],t[2],r[0],r[1],r[2],
+           gt->GetDetectorIndex());
+   gt->GetMatrix(m);
+   fprintf(fp,"        dfr= %e %e %e\n",m[0][0],m[0][1],m[0][2]);
+   fprintf(fp,"        dfr= %e %e %e\n",m[1][0],m[1][1],m[1][2]);
+   fprintf(fp,"        dfr= %e %e %e\n",m[2][0],m[2][1],m[2][2]);
+   return;
+}
+//___________________________________________________________________________
+ofstream & AliITSgeom::PrintGeom(ofstream &R__b){
+////////////////////////////////////////////////////////////////////////
+//     Stream out an object of class AliITSgeom to standard output.
+////////////////////////////////////////////////////////////////////////
+    Int_t i;
+
+    R__b.setf(ios::scientific);
+    R__b << fTrans << " ";
+    R__b << fNmodules << " ";
+    R__b << fNlayers << " ";
+    for(i=0;i<fNlayers;i++) R__b << fNlad[i] << " ";
+    for(i=0;i<fNlayers;i++) R__b << fNdet[i] << "\n";
+    for(i=0;i<fNmodules;i++) {
+       R__b <<setprecision(16) << *(GetGeomMatrix(i)) << "\n";
+    } // end for i
+    return R__b;
+}
+//___________________________________________________________________________
+ifstream & AliITSgeom::ReadGeom(ifstream &R__b){
+////////////////////////////////////////////////////////////////////////
+//     Stream in an object of class AliITSgeom from standard input.
+////////////////////////////////////////////////////////////////////////
+      Int_t i;
+
+      fNlad = new Int_t[fNlayers];
+      fNdet = new Int_t[fNlayers];
+      if(fGm!=0){
+         for(i=0;i<fNmodules;i++) delete GetGeomMatrix(i);
+         delete fGm;
+      } // end if fGm!=0
+
+      R__b >> fTrans >> fNmodules >> fNlayers;
+      fNlad = new Int_t[fNlayers];
+      fNdet = new Int_t[fNlayers];
+      for(i=0;i<fNlayers;i++) R__b >> fNlad[i];
+      for(i=0;i<fNlayers;i++) R__b >> fNdet[i];
+      fGm = new TObjArray(fNmodules,0);
+      for(i=0;i<fNmodules;i++){
+         fGm->AddAt(new AliITSgeomMatrix,i);
+         R__b >> *(GetGeomMatrix(i));
+      } // end for i
+      return R__b;
+}
+//___________________________________________________________________________
+
+//______________________________________________________________________
+//     The following routines modify the transformation of "this"
+// geometry transformations in a number of different ways.
+//______________________________________________________________________
+void AliITSgeom::GlobalChange(const Float_t *tran,const Float_t *rot){
 ////////////////////////////////////////////////////////////////////////
 //     This function performs a Cartesian translation and rotation of
 // the full ITS from its default position by an amount determined by
@@ -519,41 +889,26 @@ void AliITSgeom::GlobalChange(Float_t *tran,Float_t *rot){
 // respect to the beam line, except for an effective rotation about the
 // beam axis which will just rotate the ITS as a hole about the beam axis.
 ////////////////////////////////////////////////////////////////////////
-   Int_t    i,j,k,l;
-   Double_t rx,ry,rz;
-   Double_t sx,cx,sy,cy,sz,cz;
-   ITS_geom *gl;
-
-   for(i=0;i<fNlayers;i++){
-      for(j=0;j<fNlad[i];j++) for(k=0;k<fNdet[i];k++){
-        l = fNdet[i]*j+k; // resolved index
-         gl = &(fg[i][l]);
-         gl->fx0 += tran[0];
-         gl->fy0 += tran[1];
-         gl->fz0 += tran[2];
-         gl->frx +=  rot[0];
-         gl->fry +=  rot[1];
-         gl->frz +=  rot[2];
-         rx = gl->frx; ry = gl->fry; rz = gl->frz;
-         sx = sin(rx); cx = cos(rx);
-         sy = sin(ry); cy = cos(ry);
-         sz = sin(rz); cz = cos(rz);
-         gl->fr[0] =  cz*cy;
-         gl->fr[1] = -cz*sy*sx - sz*cx;
-         gl->fr[2] = -cz*sy*cx + sz*sx;
-         gl->fr[3] =  sz*cy;
-         gl->fr[4] = -sz*sy*sx + cz*cx;
-         gl->fr[5] = -sz*sy*cx - cz*sx;
-         gl->fr[6] =  sy;
-         gl->fr[7] =  cy*sx;
-         gl->fr[8] =  cy*cx;
-      } // end for j,k
+   Int_t    i,j;
+   Double_t t[3],r[3];
+   AliITSgeomMatrix *g;
+
+   fTrans = (fTrans && 0xfffd) + 2;  // set bit 1 true.
+   for(i=0;i<fNmodules;i++){
+         g = this->GetGeomMatrix(i);
+         g->GetTranslation(t);
+         g->GetAngles(r);
+         for(j=0;j<3;j++){
+              t[j] += tran[j];
+              r[j] += rot[j];
+         } // end for j
+         g->SetTranslation(t);
+         g->SetAngles(r);
    } // end for i
    return;
 }
-
 //___________________________________________________________________________
-void AliITSgeom::GlobalCylindericalChange(Float_t *tran,Float_t *rot){
+void AliITSgeom::GlobalCylindericalChange(const Float_t *tran,const Float_t *rot){
 ////////////////////////////////////////////////////////////////////////
 //     This function performs a cylindrical translation and rotation of
 // each ITS element by a fixed about in radius, rphi, and z from its
@@ -575,419 +930,191 @@ void AliITSgeom::GlobalCylindericalChange(Float_t *tran,Float_t *rot){
 // line, except for an effective rotation about the beam axis which will
 // just rotate the ITS as a hole about the beam axis.
 ////////////////////////////////////////////////////////////////////////
-   Int_t    i,j,k,l;
-   Double_t rx,ry,rz,r,phi,rphi; // phi in radians
-   Double_t sx,cx,sy,cy,sz,cz,r0;
-   ITS_geom *gl;
-
-//   printf("trans=%f %f %f rot=%f %f %f\n",tran[0],tran[1],tran[2],
-//       rot[0],rot[1],rot[2]);
-   for(i=0;i<fNlayers;i++){
-      for(j=0;j<fNlad[i];j++) for(k=0;k<fNdet[i];k++){
-        l     = fNdet[i]*j+k; // resolved index
-         gl    = &(fg[i][l]);
-        r = r0= TMath::Hypot(gl->fy0,gl->fx0);
-        phi   = atan2(gl->fy0,gl->fx0);
+   Int_t    i,j;
+   Double_t t[3],ro[3],r,r0,phi,rphi;
+   AliITSgeomMatrix *g;
+
+   fTrans = (fTrans && 0xfffd) + 2;  // set bit 1 true.
+   for(i=0;i<fNmodules;i++){
+         g = this->GetGeomMatrix(i);
+         g->GetTranslation(t);
+         g->GetAngles(ro);
+        r = r0= TMath::Hypot(t[1],t[0]);
+        phi   = TMath::ATan2(t[1],t[0]);
         rphi  = r0*phi;
         r    += tran[0];
         rphi += tran[1];
         phi   = rphi/r0;
-         gl->fx0  = r*TMath::Cos(phi);
-         gl->fy0  = r*TMath::Sin(phi);
-         gl->fz0 += tran[2];
-         gl->frx +=  rot[0];
-         gl->fry +=  rot[1];
-         gl->frz +=  rot[2];
-         rx = gl->frx; ry = gl->fry; rz = gl->frz;
-         sx = sin(rx); cx = cos(rx);
-         sy = sin(ry); cy = cos(ry);
-         sz = sin(rz); cz = cos(rz);
-         gl->fr[0] =  cz*cy;
-         gl->fr[1] = -cz*sy*sx - sz*cx;
-         gl->fr[2] = -cz*sy*cx + sz*sx;
-         gl->fr[3] =  sz*cy;
-         gl->fr[4] = -sz*sy*sx + cz*cx;
-         gl->fr[5] = -sz*sy*cx - cz*sx;
-         gl->fr[6] =  sy;
-         gl->fr[7] =  cy*sx;
-         gl->fr[8] =  cy*cx;
-      } // end for j,k
+         t[0]  = r*TMath::Cos(phi);
+         t[1]  = r*TMath::Sin(phi);
+         t[2] += tran[2];
+         for(j=0;j<3;j++){
+              ro[j] += rot[j];
+         } // end for j
+         g->SetTranslation(t);
+         g->SetAngles(ro);
    } // end for i
    return;
 }
-
 //___________________________________________________________________________
-void AliITSgeom::RandomChange(Float_t *stran,Float_t *srot){
+void AliITSgeom::RandomChange(const Float_t *stran,const Float_t *srot){
 ////////////////////////////////////////////////////////////////////////
 //     This function performs a Gaussian random displacement and/or
 // rotation about the present global position of each active
 // volume/detector of the ITS. The sigma of the random displacement
-// is determined by the three element array stranslation, for the
-// x y and z translations, and the three element array srotation,
+// is determined by the three element array stran, for the
+// x y and z translations, and the three element array srot,
 // for the three rotation about the axis x y and z.
 ////////////////////////////////////////////////////////////////////////
-   Int_t    i,j,k,l;
-   Double_t rx,ry,rz;
-   Double_t sx,cx,sy,cy,sz,cz;
-   TRandom  ran;
-   ITS_geom *gl;
-
-   for(i=0;i<fNlayers;i++){
-      for(j=0;j<fNlad[i];j++) for(k=0;k<fNdet[i];k++){
-        l = fNdet[i]*j+k; // resolved index
-         gl = &(fg[i][l]);
-         gl->fx0 += ran.Gaus(0.0,stran[0]);
-         gl->fy0 += ran.Gaus(0.0,stran[1]);
-         gl->fz0 += ran.Gaus(0.0,stran[2]);
-         gl->frx += ran.Gaus(0.0, srot[0]);
-         gl->fry += ran.Gaus(0.0, srot[1]);
-         gl->frz += ran.Gaus(0.0, srot[2]);
-         rx = gl->frx; ry = gl->fry; rz = gl->frz;
-         sx = sin(rx); cx = cos(rx);
-         sy = sin(ry); cy = cos(ry);
-         sz = sin(rz); cz = cos(rz);
-         gl->fr[0] =  cz*cy;
-         gl->fr[1] = -cz*sy*sx - sz*cx;
-         gl->fr[2] = -cz*sy*cx + sz*sx;
-         gl->fr[3] =  sz*cy;
-         gl->fr[4] = -sz*sy*sx + cz*cx;
-         gl->fr[5] = -sz*sy*cx - cz*sx;
-         gl->fr[6] =  sy;
-         gl->fr[7] =  cy*sx;
-         gl->fr[8] =  cy*cx;
-      } // end for j,k
+   Int_t    i,j;
+   Double_t t[3],r[3];
+   TRandom ran;
+   AliITSgeomMatrix *g;
+
+   fTrans = (fTrans && 0xfffd) + 2;  // set bit 1 true.
+   for(i=0;i<fNmodules;i++){
+         g = this->GetGeomMatrix(i);
+         g->GetTranslation(t);
+         g->GetAngles(r);
+         for(j=0;j<3;j++){
+              t[j] += ran.Gaus(0.0,stran[j]);
+              r[j] += ran.Gaus(0.0, srot[j]);
+         } // end for j
+         g->SetTranslation(t);
+         g->SetAngles(r);
    } // end for i
    return;
 }
-
 //___________________________________________________________________________
-void AliITSgeom::RandomCylindericalChange(Float_t *stran,Float_t *srot){
+void AliITSgeom::RandomCylindericalChange(const Float_t *stran,
+                                         const Float_t *srot){
 ////////////////////////////////////////////////////////////////////////
 //     This function performs a Gaussian random displacement and/or
 // rotation about the present global position of each active
 // volume/detector of the ITS. The sigma of the random displacement
-// is determined by the three element array stranslation, for the
-// r rphi and z translations, and the three element array srotation,
+// is determined by the three element array stran, for the
+// r rphi and z translations, and the three element array srot,
 // for the three rotation about the axis x y and z. This random change
 // in detector position allow for the simulation of a random uncertainty
 // in the detector positions of the ITS.
 ////////////////////////////////////////////////////////////////////////
-   Int_t     i,j,k,l;
-   Double_t  rx,ry,rz,r,phi,x,y;  // phi in radians
-   Double_t  sx,cx,sy,cy,sz,cz,r0;
-   TRandom   ran;
-   ITS_geom  *gl;
-
-//   printf("trans=%f %f %f rot=%f %f %f\n",stran[0],stran[1],stran[2],
-//       srot[0],srot[1],srot[2]);
-   for(i=0;i<fNlayers;i++){
-      for(j=0;j<fNlad[i];j++) for(k=0;k<fNdet[i];k++){
-        l     = fNdet[i]*j+k; // resolved index
-         gl    = &(fg[i][l]);
-        x     = gl->fx0;
-        y     = gl->fy0;
-        r = r0= TMath::Hypot(y,x);
-        phi   = TMath::ATan2(y,x);
-//      if(phi<0.0) phi += 2.0*TMath::Pi();
+   Int_t    i,j;
+   Double_t t[3],ro[3],r,r0,phi,rphi;
+   TRandom ran;
+   AliITSgeomMatrix *g;
+
+   fTrans = (fTrans && 0xfffd) + 2;  // set bit 1 true.
+   for(i=0;i<fNmodules;i++){
+         g = this->GetGeomMatrix(i);
+         g->GetTranslation(t);
+         g->GetAngles(ro);
+        r = r0= TMath::Hypot(t[1],t[0]);
+        phi   = TMath::ATan2(t[1],t[0]);
+        rphi  = r0*phi;
         r    += ran.Gaus(0.0,stran[0]);
-        phi  += ran.Gaus(0.0,stran[1])/r0;
-//      printf("fx0=%f fy0=%f rcos(phi)=%f rsin(phi)=%f\n",gl->fx0,gl->fy0,
-//             r*TMath::Cos(phi),r*TMath::Sin(phi));
-         gl->fx0  = r*TMath::Cos(phi);
-         gl->fy0  = r*TMath::Sin(phi);
-//      printf("r0=%f r=%f hypot=%f phi0=%f phi=%f ATan2=%f\n",
-//             r0,r,TMath::Hypot(gl->fy0,gl->fx0),
-//             phi0,phi,TMath::ATan2(gl->fy0,gl->fx0));
-         gl->fz0 += ran.Gaus(0.0,stran[2]);
-         gl->frx += ran.Gaus(0.0, srot[0]);
-         gl->fry += ran.Gaus(0.0, srot[1]);
-         gl->frz += ran.Gaus(0.0, srot[2]);
-         rx = gl->frx; ry = gl->fry; rz = gl->frz;
-         sx = sin(rx); cx = cos(rx);
-         sy = sin(ry); cy = cos(ry);
-         sz = sin(rz); cz = cos(rz);
-         gl->fr[0] =  cz*cy;
-         gl->fr[1] = -cz*sy*sx - sz*cx;
-         gl->fr[2] = -cz*sy*cx + sz*sx;
-         gl->fr[3] =  sz*cy;
-         gl->fr[4] = -sz*sy*sx + cz*cx;
-         gl->fr[5] = -sz*sy*cx - cz*sx;
-         gl->fr[6] =  sy;
-         gl->fr[7] =  cy*sx;
-         gl->fr[8] =  cy*cx;
-      } // end for j,k
+        rphi += ran.Gaus(0.0,stran[1]);
+        phi   = rphi/r0;
+         t[0]  = r*TMath::Cos(phi);
+         t[1]  = r*TMath::Sin(phi);
+         t[2] += ran.Gaus(0.0,stran[2]);
+         for(j=0;j<3;j++){
+              ro[j] += ran.Gaus(0.0, srot[j]);
+         } // end for j
+         g->SetTranslation(t);
+         g->SetAngles(ro);
    } // end for i
    return;
 }
-
-//___________________________________________________________________________
-void AliITSgeom::SetByAngles(Int_t lay,Int_t lad,Int_t det,
-                            Float_t rx,Float_t ry,Float_t rz){
-////////////////////////////////////////////////////////////////////////
-//     This function computes a new rotation matrix based on the angles
-// rx, ry, and rz (in radians) for a give detector on the give ladder
-// in the give layer. A new
-// fg[layer-1][(fNlad[layer-1]*(ladder-1)+detector-1)].fr[] array is
-// computed.
-////////////////////////////////////////////////////////////////////////
-   ITS_geom *g;
-   Double_t  sx,cx,sy,cy,sz,cz;
-
-   lay--; lad--; det--; // set to zero base now.
-   g = &(fg[lay][fNdet[lay]*lad+det]);
-
-   sx = sin(rx); cx = cos(rx);
-   sy = sin(ry); cy = cos(ry);
-   sz = sin(rz); cz = cos(rz);
-   g->frx   = rx;
-   g->fry   = ry;
-   g->frz   = rz;
-   g->fr[0] =  cz*cy;
-   g->fr[1] = -cz*sy*sx - sz*cx;
-   g->fr[2] = -cz*sy*cx + sz*sx;
-   g->fr[3] =  sz*cy;
-   g->fr[4] = -sz*sy*sx + cz*cx;
-   g->fr[5] = -sz*sy*cx - cz*sx;
-   g->fr[6] =  sy;
-   g->fr[7] =  cy*sx;
-   g->fr[8] =  cy*cx;
-   return;
-}
-
-//___________________________________________________________________________
-void AliITSgeom::GetRotMatrix(Int_t lay,Int_t lad,Int_t det,Float_t *mat){
-////////////////////////////////////////////////////////////////////////
-//     Returns, in the Float_t array pointed to by mat, the full rotation
-// matrix for the give detector defined by layer, ladder, and detector.
-// It returns all nine elements of fr in the ITS_geom structure. See the
-// description of the ITS_geom structure for further details of this
-// rotation matrix.
-////////////////////////////////////////////////////////////////////////
-   Int_t    i;
-   ITS_geom *g;
-
-   lay--; lad--; det--; // shift to base 0
-   g = &(fg[lay][fNdet[lay]*lad+det]);
-   for(i=0;i<9;i++) mat[i] = g->fr[i];
-   return;
-}
-
-//___________________________________________________________________________
-void AliITSgeom::PrintComparison(FILE *fp,AliITSgeom *other){
-////////////////////////////////////////////////////////////////////////
-//     This function was primarily created for diagnostic reasons. It
-// print to a file pointed to by the file pointer fp the difference
-// between two AliITSgeom classes. The format of the file is basicly,
-// define d? to be the difference between the same element of the two
-// classes. For example dfrx = this->fg[i][j].frx - other->fg[i][j].frx.
-// if(at least one of dfx0, dfy0, dfz0,dfrx,dfry,dfrz are non zero) then print
-// layer ladder detector dfx0 dfy0 dfz0 dfrx dfry dfrz
-// if(at least one of the 9 elements of dfr[] are non zero) then print
-// layer ladder detector dfr[0] dfr[1] dfr[2]
-//                       dfr[3] dfr[4] dfr[5]
-//                       dfr[6] dfr[7] dfr[8]
-// Only non zero values are printed to save space. The differences are
-// typical written to a file because there are usually a lot of numbers
-// printed out and it is usually easier to read them in some nice editor
-// rather than zooming quickly past you on a screen. fprintf is used to
-// do the printing. The fShapeIndex difference is not printed at this time.
+//______________________________________________________________________
+void AliITSgeom::GeantToTracking(AliITSgeom &source){
+/////////////////////////////////////////////////////////////////////////
+//     Copy the geometry data but change it to go between the ALICE
+// Global coordinate system to that used by the ITS tracking. A slightly
+// different coordinate system is used when tracking. This coordinate 
+// system is only relevant when the geometry represents the cylindrical
+// ALICE ITS geometry. For tracking the Z axis is left alone but X-> -Y
+// and Y-> X such that X always points out of the ITS cylinder for every
+// layer including layer 1 (where the detectors are mounted upside down).
+//Begin_Html
+/*
+<img src="picts/ITS/AliITSgeomMatrix_T1.gif">
+*/
+//End_Html
 ////////////////////////////////////////////////////////////////////////
-   Int_t    i,j,k,l;
-   Double_t xt,yt,zt,xo,yo,zo;
-   Double_t rxt,ryt,rzt,rxo,ryo,rzo;  // phi in radians
-   ITS_geom *gt,*go;
-   Bool_t   t;
+   Int_t    i,j,k,l,id[3];
+   Double_t R0[3][3],R1[3][3];
+   Double_t A0[3][3] = {{0.,+1.,0.},{-1.,0.,0.},{0.,0.,+1.}};
+   Double_t A1[3][3] = {{0.,-1.,0.},{+1.,0.,0.},{0.,0.,+1.}};
 
-   for(i=0;i<this->fNlayers;i++){
-      for(j=0;j<this->fNlad[i];j++) for(k=0;k<this->fNdet[i];k++){
-        l   = this->fNdet[i]*j+k; // resolved index
-         gt  = &(this->fg[i][l]);
-        go  = &(other->fg[i][l]);
-         xt  = gt->fx0; yt  = gt->fy0; zt  = gt->fz0;
-         xo  = go->fx0; yo  = go->fy0; zo  = go->fz0;
-         rxt = gt->frx; ryt = gt->fry; rzt = gt->frz;
-         rxo = go->frx; ryo = go->fry; rzo = go->frz;
-        if(!(xt==xo&&yt==yo&&zt==zo&&rxt==rxo&&ryt==ryo&&rzt==rzo))
-        fprintf(fp,"%1.1d %2.2d %2.2d dTrans=%f %f %f drot=%f %f %f\n",
-                i+1,j+1,k+1,xt-xo,yt-yo,zt-zo,rxt-rxo,ryt-ryo,rzt-rzo);
-        t = kFALSE;
-        for(i=0;i<9;i++) t = gt->fr[i] != go->fr[i];
-        if(t){
-            fprintf(fp,"%1.1d %2.2d %2.2d dfr= %e %e %e\n",i+1,j+1,k+1,
-                 gt->fr[0]-go->fr[0],gt->fr[1]-go->fr[1],gt->fr[2]-go->fr[2]);
-            fprintf(fp,"        dfr= %e %e %e\n",
-                 gt->fr[3]-go->fr[3],gt->fr[4]-go->fr[4],gt->fr[5]-go->fr[5]);
-            fprintf(fp,"        dfr= %e %e %e\n",
-                 gt->fr[6]-go->fr[6],gt->fr[7]-go->fr[7],gt->fr[8]-go->fr[8]);
-        }
-      } // end for j,k
+   *this = source;  // copy everything
+   for(i=0;i<GetIndexMax();i++){
+       GetGeomMatrix(i)->GetIndex(id);
+       GetGeomMatrix(i)->GetMatrix(R0);
+       if(id[0]==1){ // Layer 1 is treated different from the others.
+          for(j=0;j<3;j++) for(k=0;k<3;k++){
+              R1[j][k] = 0.;
+              for(l=0;l<3;l++) R1[j][k] += A0[j][l]*R0[l][k];
+          } // end for j,k
+       }else{
+          for(j=0;j<3;j++) for(k=0;k<3;k++){
+              R1[j][k] = 0.;
+              for(l=0;l<3;l++) R1[j][k] += A1[j][l]*R0[l][k];
+          } // end for j,k
+       } // end if
+       GetGeomMatrix(i)->SetMatrix(R1);
    } // end for i
+   this->fTrans = (this->fTrans && 0xfffe) + 1;  // set bit 0 true.
    return;
 }
-
-//___________________________________________________________________________
-void AliITSgeom::PrintData(FILE *fp,Int_t lay,Int_t lad,Int_t det){
-////////////////////////////////////////////////////////////////////////
-//     This function prints out the coordinate transformations for
-// the particular detector defined by layer, ladder, and detector
-// to the file pointed to by the File pointer fp. fprinf statements
-// are used to print out the numbers. The format is
-// layer ladder detector Trans= fx0 fy0 fz0 rot= frx fry frz Shape=fShapeIndex
-//                         dfr= fr[0] fr[1] fr[2]
-//                         dfr= fr[3] fr[4] fr[5]
-//                         dfr= fr[6] fr[7] fr[8]
-// By indicating which detector, some control over the information 
-// is given to the user. The output it written to the file pointed
-// to by the file pointer fp. This can be set to stdout if you want.
-////////////////////////////////////////////////////////////////////////
-   Int_t    i,j,k,l;
-   ITS_geom *gt;
-
-   i  = lay-1;
-   j  = lad-1;
-   k  = det-1;
-   l  = this->fNdet[i]*j+k; // resolved index
-   gt = &(this->fg[i][l]);
-   fprintf(fp,"%1.1d %2.2d %2.2d Trans=%f %f %f rot=%f %f %f Shape=%d\n",
-          i+1,j+1,k+1,gt->fx0,gt->fy0,gt->fz0,gt->frx,gt->fry,gt->frz,
-           gt->fShapeIndex);
-   fprintf(fp,"        dfr= %e %e %e\n",gt->fr[0],gt->fr[1],gt->fr[2]);
-   fprintf(fp,"        dfr= %e %e %e\n",gt->fr[3],gt->fr[4],gt->fr[5]);
-   fprintf(fp,"        dfr= %e %e %e\n",gt->fr[6],gt->fr[7],gt->fr[8]);
-   return;
-}
-//___________________________________________________________________________
-void AliITSgeom::Streamer(TBuffer &R__b){
-////////////////////////////////////////////////////////////////////////
-//     The default Streamer function "written by ROOT" doesn't write out
-// the arrays referenced by pointers. Therefore, a specific Streamer function
-// has to be written. This function should not be modified but instead added
-// on to so that older versions can still be read. The proper handling of
-// the version dependent streamer function hasn't been written do to the lack
-// of finding an example at the time of writting.
-////////////////////////////////////////////////////////////////////////
-   // Stream an object of class AliITSgeom.
-    Int_t i,j,k;
-
-   if (R__b.IsReading()) {
-      Version_t R__v = R__b.ReadVersion(); if (R__v) { }
-      TObject::Streamer(R__b);
-      R__b >> fNlayers;
-      if(fNlad!=0) delete[] fNlad;
-      if(fNdet!=0) delete[] fNdet;
-      fNlad = new Int_t[fNlayers];
-      fNdet = new Int_t[fNlayers];
-      for(i=0;i<fNlayers;i++) R__b >> fNlad[i];
-      for(i=0;i<fNlayers;i++) R__b >> fNdet[i];
-      if(fg!=0){
-         for(i=0;i<fNlayers;i++) delete[] fg[i];
-         delete[] fg;
-      } // end if fg!=0
-      fg = new ITS_geom*[fNlayers];
-      for(i=0;i<fNlayers;i++){
-         fg[i] = new ITS_geom[fNlad[i]*fNdet[i]];
-         for(j=0;j<fNlad[i]*fNdet[i];j++){
-             R__b >> fg[i][j].fShapeIndex;
-             R__b >> fg[i][j].fx0;
-             R__b >> fg[i][j].fy0;
-             R__b >> fg[i][j].fz0;
-             R__b >> fg[i][j].frx;
-             R__b >> fg[i][j].fry;
-             R__b >> fg[i][j].frz;
-             for(k=0;k<9;k++) R__b >> fg[i][j].fr[k];
-         } // end for j
-      } // end for i
-      R__b >> fShape;
-   } else {
-      R__b.WriteVersion(AliITSgeom::IsA());
-      TObject::Streamer(R__b);
-      R__b << fNlayers;
-      for(i=0;i<fNlayers;i++) R__b << fNlad[i];
-      for(i=0;i<fNlayers;i++) R__b << fNdet[i];
-      for(i=0;i<fNlayers;i++) for(j=0;j<fNlad[i]*fNdet[i];j++){
-         R__b << fg[i][j].fShapeIndex;
-         R__b << fg[i][j].fx0;
-         R__b << fg[i][j].fy0;
-         R__b << fg[i][j].fz0;
-         R__b << fg[i][j].frx;
-         R__b << fg[i][j].fry;
-         R__b << fg[i][j].frz;
-         for(k=0;k<9;k++) R__b << fg[i][j].fr[k];
-      } // end for i,j
-      R__b << fShape;
-   }
-}
-
-//___________________________________________________________________________
-ofstream & AliITSgeom::PrintGeom(ofstream &R__b){
+//______________________________________________________________________
+Int_t AliITSgeom::GetNearest(const Double_t g[3],const Int_t lay){
 ////////////////////////////////////////////////////////////////////////
-//     The default Streamer function "written by ROOT" doesn't write out
-// the arrays referenced by pointers. Therefore, a specific Streamer function
-// has to be written. This function should not be modified but instead added
-// on to so that older versions can still be read. The proper handling of
-// the version dependent streamer function hasn't been written do to the lack
-// of finding an example at the time of writting.
+//      Finds the Detector (Module) that is nearest the point g [cm] in
+// ALICE Global coordinates. If layer !=0 then the search is restricted
+// to Detectors (Modules) in that particular layer.
 ////////////////////////////////////////////////////////////////////////
-   // Stream an object of class AliITSgeom.
-    Int_t i,j,k;
+     Int_t    i,l,a,e,in=0;
+     Double_t d,dn=1.0e10;
+     Bool_t   t=lay!=0; // skip if lay = 0 default value check all layers.
 
-    R__b.setf(ios::scientific);
-    R__b << fNlayers << " ";
-    for(i=0;i<fNlayers;i++) R__b << fNlad[i] << " ";
-    for(i=0;i<fNlayers;i++) R__b << fNdet[i] << "\n";
-    for(i=0;i<fNlayers;i++) for(j=0;j<fNlad[i]*fNdet[i];j++){
-       R__b <<setprecision(16) << fg[i][j].fShapeIndex << " ";
-       R__b <<setprecision(16) << fg[i][j].fx0 << " ";
-       R__b <<setprecision(16) << fg[i][j].fy0 << " ";
-       R__b <<setprecision(16) << fg[i][j].fz0 << " ";
-       R__b <<setprecision(16) << fg[i][j].frx << " ";
-       R__b <<setprecision(16) << fg[i][j].fry << " ";
-       R__b <<setprecision(16) << fg[i][j].frz << "\n";
-       for(k=0;k<9;k++) R__b <<setprecision(16) << fg[i][j].fr[k] << " ";
-       R__b << "\n";
-      } // end for i,j
-//      R__b << fShape;
-      return R__b;
+     for(i=0;i<fNmodules;i++){
+          if(t){GetModuleId(i,l,a,e);if(l!=lay) continue;}
+          if((d=GetGeomMatrix(i)->Distance2(g))<dn){
+               dn = d;
+               in = i;
+          } // end if
+     } // end for i
+     return in;
 }
-
-//___________________________________________________________________________
-ifstream & AliITSgeom::ReadGeom(ifstream &R__b){
+//______________________________________________________________________
+void AliITSgeom::GetNearest27(const Double_t g[3],Int_t n[27],const Int_t lay){
 ////////////////////////////////////////////////////////////////////////
-//     The default Streamer function "written by ROOT" doesn't write out
-// the arrays referenced by pointers. Therefore, a specific Streamer function
-// has to be written. This function should not be modified but instead added
-// on to so that older versions can still be read. The proper handling of
-// the version dependent streamer function hasn't been written do to the lack
-// of finding an example at the time of writting.
+//      Finds 27 Detectors (Modules) that are nearest the point g [cm] in
+// ALICE Global coordinates. If layer !=0 then the search is restricted
+// to Detectors (Modules) in that particular layer. The number 27 comes 
+// from including the nearest detector and all those around it (up, down,
+// left, right, forwards, backwards, and the corners).
 ////////////////////////////////////////////////////////////////////////
-   // Stream an object of class AliITSgeom.
-    Int_t i,j,k;
+     Int_t    i,l,a,e,in[27]={0,0,0,0,0,0,0,0,0,
+                              0,0,0,0,0,0,0,0,0,
+                              0,0,0,0,0,0,0,0,0,};
+     Double_t d,dn[27]={1.0e10,1.0e10,1.0e10,1.0e10,1.0e10,1.0e10,
+                        1.0e10,1.0e10,1.0e10,1.0e10,1.0e10,1.0e10,
+                        1.0e10,1.0e10,1.0e10,1.0e10,1.0e10,1.0e10,
+                        1.0e10,1.0e10,1.0e10,1.0e10,1.0e10,1.0e10,
+                        1.0e10,1.0e10,1.0e10};
+     Bool_t   t=(lay!=0); // skip if lay = 0 default value check all layers.
 
-      R__b >> fNlayers;
-      if(fNlad!=0) delete[] fNlad;
-      if(fNdet!=0) delete[] fNdet;
-      fNlad = new Int_t[fNlayers];
-      fNdet = new Int_t[fNlayers];
-      for(i=0;i<fNlayers;i++) R__b >> fNlad[i];
-      for(i=0;i<fNlayers;i++) R__b >> fNdet[i];
-      if(fg!=0){
-         for(i=0;i<fNlayers;i++) delete[] fg[i];
-         delete[] fg;
-      } // end if fg!=0
-      fg = new ITS_geom*[fNlayers];
-      for(i=0;i<fNlayers;i++){
-         fg[i] = new ITS_geom[fNlad[i]*fNdet[i]];
-         for(j=0;j<fNlad[i]*fNdet[i];j++){
-             R__b >> fg[i][j].fShapeIndex;
-             R__b >> fg[i][j].fx0;
-             R__b >> fg[i][j].fy0;
-             R__b >> fg[i][j].fz0;
-             R__b >> fg[i][j].frx;
-             R__b >> fg[i][j].fry;
-             R__b >> fg[i][j].frz;
-             for(k=0;k<9;k++) R__b >> fg[i][j].fr[k];
-         } // end for j
-      } // end for i
-//      R__b >> fShape;
-      return R__b;
+     for(i=0;i<fNmodules;i++){
+          if(t){GetModuleId(i,l,a,e);if(l!=lay) continue;}
+          for(a=0;a<27;a++){
+               d = GetGeomMatrix(i)->Distance2(g);
+               if(d<dn[a]){
+                   for(e=26;e>a;e--){dn[e] = dn[e-1];in[e] = in[e-1];}
+                   dn[a] = d; in[a] = i;
+               } // end if d<dn[i]
+          } // end for a
+     } // end for i
+     for(i=0;i<27;i++) n[i] = in[i];
 }
+//----------------------------------------------------------------------