New detailed and corrected version from Galina Chabratova
[u/mrichter/AliRoot.git] / STRUCT / AliDIPOv2.cxx
index 1e7fbebeed5eaa90e4468986662ec058cff11486..1ba71d5dbcc88437b1e8ee21688c5f13142c868d 100644 (file)
 
 /*
 $Log$
-Revision 1.7.2.2  2000/04/26 11:30:34  morsch
-Revised version with detailed geometry from G. Chabratova
+Revision 1.9  2000/04/27 09:29:53  fca
+Reverting to version 1.6.2
+
+Revision 1.6.2.1  1999/12/03 16:38:51  fca
+Correct overlap in magnet
 
 Revision 1.6  1999/09/29 09:24:30  fca
 Introduction of the Copyright and cvs Log
@@ -29,7 +32,7 @@ Introduction of the Copyright and cvs Log
 //                                                                           //
 //Begin_Html
 /*
-<img src="gif/AliDIPOv2Class.gif">
+<img src="picts/AliDIPOv2Class.gif">
 </pre>
 <br clear=left>
 <font size=+2 color=red>
@@ -41,7 +44,6 @@ Introduction of the Copyright and cvs Log
 //End_Html
 //                                                                           //
 //                                                                           //
-///////////////////////////////////////////////////////////////////////////////
 
 #include "AliDIPOv2.h"
 #include "AliRun.h"
@@ -74,20 +76,18 @@ void AliDIPOv2::CreateGeometry()
   //
   // Creation of the geometry of the magnetic DIPOLE version 2
   //
-  //Begin_Html
-  //End_Html
 
-  AliMC* gMC = AliMC::GetMC();
+  //  AliMC* gMC = AliMC::GetMC();
 
   Float_t cpar[5], tpar[3], ypar[12];
   Float_t dz, dx, dy;
   Int_t idrotm[1899];
   Float_t acc_max, the1, phi1, the2, phi2, the3, phi3;
   
-  Int_t *idtmed = fIdtmed->GetArray()-1799;  
+  Int_t *idtmed = fIdtmed->GetArray()-1799;
 
   acc_max = 9.;   // ANGLE POLAIRE MAXIMUM 
-  
+
   //       DIPOLE MAGNET 
 
   tpar[0] = 243.55; // 248.5
@@ -96,7 +96,7 @@ void AliDIPOv2::CreateGeometry()
   tpar[3] = 211.2;
   tpar[4] = 527.34; // 440.;
 
-  gMC->Gsvolu("DDIP", "CONE", idtmed[1815], tpar, 5);  
+  gMC->Gsvolu("DDIP", "CONE", idtmed[1814], tpar, 5);  
   //       COILS 
   // air - m.f. 
   cpar[0] = 207.;
@@ -105,10 +105,10 @@ void AliDIPOv2::CreateGeometry()
   cpar[3] = 119.;
   cpar[4] = 241. ; 
   //   coil - high cuts
-  gMC->Gsvolu("DC1 ", "TUBS", idtmed[1854], cpar, 5);
+  gMC->Gsvolu("DC1 ", "TUBS", idtmed[1853], cpar, 5);
   cpar[3] = -61.;
   cpar[4] = 61.;
-  gMC->Gsvolu("DC2 ", "TUBS", idtmed[1854], cpar, 5);
+  gMC->Gsvolu("DC2 ", "TUBS", idtmed[1853], cpar, 5);
 
   //  coil - low cuts cuts
   cpar[0] = 207.;
@@ -117,12 +117,12 @@ void AliDIPOv2::CreateGeometry()
   cpar[3] = 119.;
   cpar[4] = 241.;
 
-  gMC->Gsvolu("DC3 ", "TUBS", idtmed[1814], cpar, 5);
+  gMC->Gsvolu("DC3 ", "TUBS", idtmed[1813], cpar, 5);
   cpar[0] = 207.; 
   cpar[1] = 217; 
   cpar[3] = -61.;
   cpar[4] = 61.;
-  gMC->Gsvolu("DC4 ", "TUBS", idtmed[1814], cpar, 5);
+  gMC->Gsvolu("DC4 ", "TUBS", idtmed[1813], cpar, 5);
 
   gMC->Gspos("DC3 ", 1, "DC1 ", 0., 0., 0., 0, "ONLY");
   gMC->Gspos("DC4 ", 1, "DC2 ", 0., 0., 0., 0, "ONLY");
@@ -163,7 +163,7 @@ void AliDIPOv2::CreateGeometry()
   cpar[3] = 270.;
   cpar[4] = 360.;
 //*  coil high cuts
-  gMC->Gsvolu("DC11", "TUBS", idtmed[1854], cpar, 5);
+  gMC->Gsvolu("DC11", "TUBS", idtmed[1853], cpar, 5);
 
   dx = TMath::Sin(30.5*kDegrad) * -(207.+33.5)+5./TMath::Sin(30.5*kDegrad) ; 
   dy = TMath::Cos(30.5*kDegrad) * -(207.+33.5);  
@@ -182,7 +182,7 @@ void AliDIPOv2::CreateGeometry()
   cpar[3] = 0.;
   cpar[4] = 90.;
 //*  coil high cuts
-  gMC->Gsvolu("DC12", "TUBS", idtmed[1854], cpar, 5);
+  gMC->Gsvolu("DC12", "TUBS", idtmed[1853], cpar, 5);
 
   dx = TMath::Sin(30.5*kDegrad) * -(207.+33.5)+5./TMath::Sin(30.5*kDegrad) ; 
   dy = TMath::Cos(30.5*kDegrad) *(207.+33.5);  
@@ -219,25 +219,25 @@ void AliDIPOv2::CreateGeometry()
 
   tpar[0] = 37.65;
   tpar[1] = 33.5;
-  tpar[2] = 143.25;
-  gMC->Gsvolu("DL1 ", "BOX ", idtmed[1854], tpar, 3);
+  tpar[2] = 145.5;
+  gMC->Gsvolu("DL1 ", "BOX ", idtmed[1853], tpar, 3);
 
 // coil - low cuts
 
   tpar[0] = 5.;
   dx = 37.65  - 5.;  
-  gMC->Gsvolu("DL2 ", "BOX ", idtmed[1814], tpar, 3);
+  gMC->Gsvolu("DL2 ", "BOX ", idtmed[1813], tpar, 3);
   gMC->Gspos("DL2 ", 1, "DL1 ", dx, 0., 0., 0, "ONLY");
 
   dx =-53.62;
   dy =-241.26819;
-  dz = -2.45
+  dz = 0.0
   gMC->Gspos("DL1 ", 1, "DDIP", dx,  dy, dz, idrotm[1804], "ONLY");
   gMC->Gspos("DL1 ", 2, "DDIP", dx, -dy, dz, idrotm[1805], "ONLY");
   gMC->Gspos("DL1 ", 3, "DDIP",-dx,  dy, dz, idrotm[1806], "ONLY");
   gMC->Gspos("DL1 ", 4, "DDIP",-dx, -dy, dz, idrotm[1807], "ONLY");
 
-  // Conductors
+  // Contactor
 
  //  high cuts
 
@@ -249,12 +249,29 @@ void AliDIPOv2::CreateGeometry()
   cpar[3] = -50.;
   cpar[4] = 50.; 
  
-  gMC->Gsvolu("DCO1", "TUBS", idtmed[1819], cpar, 5);
+  gMC->Gsvolu("DCO1", "TUBS", idtmed[1818], cpar, 5);
   dx = -5.;
   dz = 168.25-1.5-1.;
   gMC->Gspos("DCO1", 1, "DDIP", dx, 0, dz, 0, "ONLY");
   dz = 243.55+4.5+1.5+1.;
   gMC->Gspos("DCO1", 2, "DDIP", dx, 0, dz, 0, "ONLY");
+  
+  // 9.06.2000
+
+  //  cpar[0] = 207.-18.6;
+  //  cpar[1] = 274.+18.6;
+  // cpar[2] = 1.;
+  cpar[3] = 180.-50.;
+  cpar[4] = 180.+50.; 
+  gMC->Gsvolu("DCO2", "TUBS", idtmed[1818], cpar, 5);
+  dx = +5.;
+  dz = 168.25-1.5-1.;
+  gMC->Gspos("DCO2", 1, "DDIP", dx, 0, dz, 0, "ONLY");
+  dz = 243.55+4.5+1.5+1.;
+  gMC->Gspos("DCO2", 2, "DDIP", dx, 0, dz, 0, "ONLY");
+
 
   // Resin face planes
 
@@ -264,13 +281,25 @@ void AliDIPOv2::CreateGeometry()
   cpar[3] = -50.;
   cpar[4] = 50.; 
  
-  gMC->Gsvolu("DCO2", "TUBS", idtmed[1813], cpar, 5);
+  gMC->Gsvolu("DCO3", "TUBS", idtmed[1812], cpar, 5);
   dx = -5;
   dz = 168.25-0.75;
-  gMC->Gspos("DCO2", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+  gMC->Gspos("DCO3", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+  dz = 243.55+4.5+0.75;
+  gMC->Gspos("DCO3", 2, "DDIP", dx,  0, dz, 0, "ONLY");
+
+  // 9.06.2000
+
+  cpar[3] = 180.-50.;
+  cpar[4] = 180.+50.; 
+  gMC->Gsvolu("DCO4", "TUBS", idtmed[1812], cpar, 5);
+  dx = +5;
+  dz = 168.25-0.75;
+  gMC->Gspos("DCO4", 1, "DDIP", dx,  0, dz, 0, "ONLY");
   dz = 243.55+4.5+0.75;
-  gMC->Gspos("DCO2", 2, "DDIP", dx,  0, dz, 0, "ONLY");
+  gMC->Gspos("DCO4", 2, "DDIP", dx,  0, dz, 0, "ONLY");
 
   // G10 face plane
 
   cpar[0] = 207.;
@@ -279,11 +308,22 @@ void AliDIPOv2::CreateGeometry()
   cpar[3] = -50.;
   cpar[4] = 50.; 
  
-  gMC->Gsvolu("DCO3", "TUBS", idtmed[1811], cpar, 5);
+  gMC->Gsvolu("DCO5", "TUBS", idtmed[1810], cpar, 5);
 
   dx = -5;
   dz = 243.55+2.25;
-  gMC->Gspos("DCO3", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+  gMC->Gspos("DCO5", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+
+  // 9.06.2000
+
+  cpar[3] = 180.-50.;
+  cpar[4] = 180.+50.; 
+
+  gMC->Gsvolu("DCO6", "TUBS", idtmed[1810], cpar, 5);
+
+  dx = +5;
+   dz = 243.55+2.25;
+  gMC->Gspos("DCO6", 1, "DDIP", dx,  0, dz, 0, "ONLY");
 
   //Steel supported planes
 
@@ -293,11 +333,27 @@ void AliDIPOv2::CreateGeometry()
   cpar[3] = -50.;
   cpar[4] = 50.;  
  
-  gMC->Gsvolu("DCO4", "TUBS", idtmed[1819], cpar, 5);
+  gMC->Gsvolu("DCO7", "TUBS", idtmed[1818], cpar, 5);
 
   dx = -5;
   dz = 168.25+1.;
-  gMC->Gspos("DCO4", 1, "DDIP", dx, 0, dz, 0, "ONLY");
+  gMC->Gspos("DCO7", 1, "DDIP", dx, 0, dz, 0, "ONLY");
+
+  // 9.06.2000
+  cpar[0] = 274.+1.5+2.;
+  cpar[1] = 274.+18.6;
+  cpar[2] = 1.;
+  cpar[3] = 180.-50.;
+  cpar[4] = 180.+50.; 
+
+  gMC->Gsvolu("DCO8", "TUBS", idtmed[1818], cpar, 5);
+
+  dx = +5;
+  dz = 168.25+1.;
+  gMC->Gspos("DCO8", 1, "DDIP", dx, 0, dz, 0, "ONLY");
+
+  //
 
   cpar[0] = 207.- 18.6;
   cpar[1] = 207.- 2.- 1.5;
@@ -305,11 +361,26 @@ void AliDIPOv2::CreateGeometry()
   cpar[3] = -50.;
   cpar[4] = 50.; 
 
-  gMC->Gsvolu("DCO5", "TUBS", idtmed[1819], cpar, 5);
+  gMC->Gsvolu("DCO9", "TUBS", idtmed[1818], cpar, 5);
 
   dx = -5;
   dz = 168.25+1.;
-  gMC->Gspos("DCO5", 1, "DDIP", dx, 0, dz, 0, "ONLY");
+  gMC->Gspos("DCO9", 1, "DDIP", dx, 0, dz, 0, "ONLY");
+
+  // 9.06.2000
+
+  cpar[0] = 207.- 18.6;
+  cpar[1] = 207.- 2.- 1.5;
+  cpar[2] = 1.;
+  cpar[3] = 180.-50.;
+  cpar[4] = 180.+50.; 
+
+  gMC->Gsvolu("DCOA", "TUBS", idtmed[1818], cpar, 5);
+
+  dx = +5;
+  dz = 168.25+1.;
+  gMC->Gspos("DCOA", 1, "DDIP", dx, 0, dz, 0, "ONLY");
+
 
   // Sides steel planes
 
@@ -319,17 +390,38 @@ void AliDIPOv2::CreateGeometry()
   cpar[3] = -50.;
   cpar[4] = 50.; 
  
-  gMC->Gsvolu("DCO6", "TUBS", idtmed[1819], cpar, 5);
+  gMC->Gsvolu("DCOB", "TUBS", idtmed[1818], cpar, 5);
 
   cpar[0] = 274. + 1.5;
   cpar[1] = 274. + 1.5 +2.;
 
-  gMC->Gsvolu("DCO7", "TUBS", idtmed[1819], cpar, 5);
+  gMC->Gsvolu("DCOC", "TUBS", idtmed[1818], cpar, 5);
 
   dx=-5.;
   dz = ((243.55+4.5+1.5)+168.25)/2;
-  gMC->Gspos("DCO6", 1, "DDIP", dx,  0, dz, 0, "ONLY");
-  gMC->Gspos("DCO7", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+  gMC->Gspos("DCOB", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+  gMC->Gspos("DCOC", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+
+  // 9.06.2000
+
+  cpar[0] = 207. - 1.5 -2.;
+  cpar[1] = 207. - 1.5 ;
+  cpar[2] = ((243.55+4.5+1.5)-168.25)/2;
+  cpar[3] = 180.-50.;
+  cpar[4] = 180.+50.; 
+
+  gMC->Gsvolu("DCOD", "TUBS", idtmed[1818], cpar, 5);
+
+  cpar[0] = 274. + 1.5;
+  cpar[1] = 274. + 1.5 +2.;
+
+  gMC->Gsvolu("DCOE", "TUBS", idtmed[1818], cpar, 5);
+
+  dx=+5.;
+  dz = ((243.55+4.5+1.5)+168.25)/2;
+  gMC->Gspos("DCOD", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+  gMC->Gspos("DCOE", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+
 
   // Top and bottom resin  planes
 
@@ -339,18 +431,40 @@ void AliDIPOv2::CreateGeometry()
   cpar[3] = -50.;
   cpar[4] = 50.; 
  
-  gMC->Gsvolu("DCO8", "TUBS", idtmed[1813], cpar, 5);
+  gMC->Gsvolu("DCOF", "TUBS", idtmed[1812], cpar, 5);
 
   cpar[0] = 274.;
   cpar[1] = 274. + 1.5;
 
-  gMC->Gsvolu("DCO9", "TUBS", idtmed[1813], cpar, 5);
+  gMC->Gsvolu("DCOG", "TUBS", idtmed[1812], cpar, 5);
 
 
   dx=-5.;
   dz = ((243.55+4.5+1.5)+168.25)/2;
-  gMC->Gspos("DCO8", 1, "DDIP", dx,  0, dz, 0, "ONLY");
-  gMC->Gspos("DCO9", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+  gMC->Gspos("DCOF", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+  gMC->Gspos("DCOG", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+
+  // 9.06.2000
+  cpar[0] = 207. - 1.5 ;
+  cpar[1] = 207. ;
+  cpar[2] = ((243.55+4.5+1.5)-168.25)/2;
+
+  cpar[3] = 180.-50.;
+  cpar[4] = 180.+50.; 
+
+  gMC->Gsvolu("DCOH", "TUBS", idtmed[1812], cpar, 5);
+
+  cpar[0] = 274.;
+  cpar[1] = 274. + 1.5;
+
+  gMC->Gsvolu("DCOI", "TUBS", idtmed[1812], cpar, 5);
+
+
+  dx=+5.;
+  dz = ((243.55+4.5+1.5)+168.25)/2;
+  gMC->Gspos("DCOH", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+  gMC->Gspos("DCOI", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+
 
   // Aluminum cabels
 
@@ -360,17 +474,35 @@ void AliDIPOv2::CreateGeometry()
   cpar[3] = -24.;
   cpar[4] = 24.; 
  
-  gMC->Gsvolu("DCOA", "TUBS", idtmed[1812], cpar, 5);
+  gMC->Gsvolu("DCOJ", "TUBS", idtmed[1811], cpar, 5);
 
   //  dx = 274. + 1.5  +2. +40.;
   //  dx = 5. + 1.5 +2. +40.;
   //  dx = 5. + 1.5 +2.;
   dx=-5.;
   dz = 168.25 + 5.05 + 5.05/2;
-  gMC->Gspos("DCOA", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+  gMC->Gspos("DCOJ", 1, "DDIP", dx,  0, dz, 0, "ONLY");
 
   dz = 243.55 - 5.05/2;
-  gMC->Gspos("DCOA", 2, "DDIP", dx,  0, dz, 0, "ONLY");
+  gMC->Gspos("DCOJ", 2, "DDIP", dx,  0, dz, 0, "ONLY");
+
+  // 9.06.2000
+
+  cpar[3] = 180.-24.;
+  cpar[4] = 180.+24.; 
+
+   gMC->Gsvolu("DCOK", "TUBS", idtmed[1811], cpar, 5);
+
+  //  dx = 274. + 1.5  +2. +40.;
+  //  dx = 5. + 1.5 +2. +40.;
+  //  dx = 5. + 1.5 +2.;
+  dx=+5.;
+  dz = 168.25 + 5.05 + 5.05/2;
+  gMC->Gspos("DCOK", 1, "DDIP", dx,  0, dz, 0, "ONLY");
+
+  dz = 243.55 - 5.05/2;
+  gMC->Gspos("DCOK", 2, "DDIP", dx,  0, dz, 0, "ONLY");
+
  
   //   YOKE 
 
@@ -380,14 +512,14 @@ void AliDIPOv2::CreateGeometry()
   ypar[2] = 155.75;
 
 // iron- high cuts
-  gMC->Gsvolu("DY1 ", "BOX ", idtmed[1859], ypar, 3);
+  gMC->Gsvolu("DY1 ", "BOX ", idtmed[1858], ypar, 3);
   ypar[0] = 144.+10. ; 
   ypar[1] = 193.3+10.;
   ypar[2] = 5.;
   ypar[3] = 155.75;
   dy = -69.5 + 5.;
 // iron- low cuts
-  gMC->Gsvolu("DY11", "TRD1", idtmed[1819], ypar, 4);
+  gMC->Gsvolu("DY11", "TRD1", idtmed[1818], ypar, 4);
   gMC->Gspos("DY11", 1, "DY1 ", 0.,  dy, 0., 0, "ONLY");
 
   dy = 365.5;
@@ -420,7 +552,7 @@ void AliDIPOv2::CreateGeometry()
 
 // iron - high cuts
 
-  gMC->Gsvolu("DY2 ", "TRAP", idtmed[1859], ypar,11);
+  gMC->Gsvolu("DY2 ", "TRAP", idtmed[1858], ypar,11);
 
   ypar[4] = 47.9 -5.;
   ypar[5] = 72.55 -5.;
@@ -431,7 +563,7 @@ void AliDIPOv2::CreateGeometry()
 
 // iron - low cuts
 
-  gMC->Gsvolu("DY22", "TRAP", idtmed[1819], ypar,11);
+  gMC->Gsvolu("DY22", "TRAP", idtmed[1818], ypar,11);
 
   dy = 0.;
   dx = -5.;
@@ -607,49 +739,49 @@ void AliDIPOv2::CreateMaterials()
   // *************** 
   
   //    Aluminum 
-  AliMedium(1809, "ALU_C0          ",  9, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1829, "ALU_C1          ", 29, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1849, "ALU_C2          ", 49, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(9, "ALU_C0          ",  9, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(29, "ALU_C1          ", 29, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(49, "ALU_C2          ", 49, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
   
   //    Iron 
-  AliMedium(1810, "FE_C0           ", 10, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1830, "FE_C1           ", 30, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1850, "FE_C2           ", 50, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(10, "FE_C0           ", 10, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(30, "FE_C1           ", 30, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(50, "FE_C2           ", 50, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
   
   //    Air 
-  AliMedium(1815, "AIR_C0          ", 15, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1835, "AIR_C1          ", 35, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1855, "AIR_C2          ", 55, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(15, "AIR_C0          ", 15, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(35, "AIR_C1          ", 35, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(55, "AIR_C2          ", 55, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
   
   //    Vacuum 
-  AliMedium(1816, "VA_C0           ", 16, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1836, "VA_C1           ", 36, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1856, "VA_C2           ", 56, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(16, "VA_C0           ", 16, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(36, "VA_C1           ", 36, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(56, "VA_C2           ", 56, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
   
   //    Steel 
-  AliMedium(1819, "ST_C0           ", 19, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1839, "ST_C1           ", 39, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1859, "ST_C3           ", 59, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(19, "ST_C0           ", 19, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(39, "ST_C1           ", 39, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(59, "ST_C3           ", 59, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
   
   //    Coil 
-  AliMedium(1814, "Coil_C1         ", 14, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1834, "Coil_C2         ", 34, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1854, "Coil_C3         ", 54, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(14, "Coil_C1         ", 14, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(34, "Coil_C2         ", 34, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(54, "Coil_C3         ", 54, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
 
   //    Resin 
-  AliMedium(1813, "RESIN_C0         ", 13, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1833, "RESIN_C1         ", 33, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1853, "RESIN_C2         ", 53, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(13, "RESIN_C0         ", 13, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(33, "RESIN_C1         ", 33, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(53, "RESIN_C2         ", 53, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
 
   //    G10 
-  AliMedium(1811, "G10_C0         ", 11, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1831, "G10_C1         ", 31, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1851, "G10_C2         ", 51, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-
-  //Aluminium Conductor
-  AliMedium(1812, "AlCond_C0         ", 12, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1832, "AlCond_C1         ", 32, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
-  AliMedium(1852, "AlCond_C2         ", 52, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(11, "G10_C0         ", 11, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(31, "G10_C1         ", 31, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(51, "G10_C2         ", 51, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+
+  //Aluminium Contactor
+  AliMedium(12, "AlCond_C0         ", 12, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(32, "AlCond_C1         ", 32, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
+  AliMedium(52, "AlCond_C2         ", 52, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
 }