TRD/AliTRDgeometryDetail.cxx

   1 /**************************************************************************
   2  * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
   3  *                                                                        *
   4  * Author: The ALICE Off-line Project.                                    *
   5  * Contributors are mentioned in the code where appropriate.              *
   6  *                                                                        *
   7  * Permission to use, copy, modify and distribute this software and its   *
   8  * documentation strictly for non-commercial purposes is hereby granted   *
   9  * without fee, provided that the above copyright notice appears in all   *
  10  * copies and that both the copyright notice and this permission notice   *
  11  * appear in the supporting documentation. The authors make no claims     *
  12  * about the suitability of this software for any purpose. It is          *
  13  * provided "as is" without express or implied warranty.                  *
  14  **************************************************************************/
  15
  16 /*
  17 $Log$
  18 Revision 1.4  2002/03/28 14:59:07  cblume
  19 Coding conventions
  20
  21 Revision 1.3  2002/02/11 14:21:16  cblume
  22 Update of the geometry. Get rid of MANY
  23
  24 Revision 1.2  2001/11/08 13:13:08  cblume
  25 Change to MANY for UCFI/M/O and UAFI/M/O
  26
  27 Revision 1.1  2001/11/06 17:19:41  cblume
  28 Add detailed geometry and simple simulator
  29
  30 */
  31
  32 ///////////////////////////////////////////////////////////////////////////////
  33 //                                                                           //
  34 //  Detailed TRD geometry for the spaceframe without holes                   //
  35 //                                                                           //
  36 ///////////////////////////////////////////////////////////////////////////////
  37
  38 #include "AliMC.h"
  39
  40 #include "AliTRDgeometryDetail.h"
  41 #include "AliTRDparameter.h"
  42
  43 ClassImp(AliTRDgeometryDetail)
  44
  45 //_____________________________________________________________________________
  46 AliTRDgeometryDetail::AliTRDgeometryDetail():AliTRDgeometryFull()
  47 {
  48   //
  49   // AliTRDgeometryDetail default constructor
  50   //
  51
  52   Init();
  53
  54 }
  55
  56 //_____________________________________________________________________________
  57 AliTRDgeometryDetail::~AliTRDgeometryDetail()
  58 {
  59   //
  60   // AliTRDgeometryDetail destructor
  61   //
  62
  63 }
  64
  65 //_____________________________________________________________________________
  66 void AliTRDgeometryDetail::Init()
  67 {
  68   //
  69   // Initializes the geometry parameter
  70   //
  71
  72   AliTRDgeometryFull::Init();
  73
  74 }
  75
  76 //_____________________________________________________________________________
  77 void AliTRDgeometryDetail::CreateGeometry(Int_t *idtmed)
  78 {
  79   //
  80   // Create the detailed TRD geometry without hole
  81   // including the MCMs and the cooling pipes
  82   //
  83   //
  84   // Names of the TRD volumina (xx = detector number):
  85   //
  86   //      Lower part of the readout chambers (gas volume + radiator)
  87   //
  88   //        UAxx    Aluminum frames             (Al)
  89   //        UBxx    G10 frames                  (C)
  90   //        UCxx    Inner volumes               (Air)
  91   //
  92   //      Upper part of the readout chambers (readout plane + fee)
  93   //
  94   //        UDxx    G10 frames                  (C)
  95   //        UExx    Inner volumes of the G10    (Air)
  96   //        UFxx    Aluminum frames             (Al)
  97   //        UGxx    Inner volumes of the Al     (Air)
  98   //
  99   //      Inner material layers
 100   //
 101   //        UHxx    Radiator                    (Rohacell)
 102   //        UIxx    Entrance window             (Mylar)
 103   //        UJxx    Drift volume                (Xe/CO2)
 104   //        UKxx    Amplification volume        (Xe/CO2)
 105   //        ULxx    Pad plane                   (Cu)
 106   //        UMxx    Support structure           (Rohacell)
 107   //        UNxx    FEE + signal lines          (Cu)
 108   //
 109
 110   const Int_t kNparTrd = 4;
 111   const Int_t kNparCha = 3;
 112
 113   Float_t xpos, ypos, zpos;
 114
 115   Float_t parTrd[kNparTrd];
 116   Float_t parCha[kNparCha];
 117
 118   Char_t  cTagV[5];
 119   Char_t  cTagM[5];
 120
 121   Int_t   idrotm;
 122
 123   // Rotation matrix
 124   gMC->Matrix(idrotm,  0.0,  0.0, 90.0, 90.0, 90.0,  0.0);
 125
 126   // The TRD mother volume for one sector (Air), full length in z-direction
 127   parTrd[0] = fgkSwidth1/2.;
 128   parTrd[1] = fgkSwidth2/2.;
 129   parTrd[2] = fgkSlenTR1/2.;
 130   parTrd[3] = fgkSheight/2.;
 131   gMC->Gsvolu("UTR1","TRD1",idtmed[1302-1],parTrd,kNparTrd);
 132
 133   // Create the readout volumina
 134   CreateReadout(idtmed);
 135
 136   // Create the volumina for the cooling
 137   CreateCooling(idtmed);
 138
 139   for (Int_t icham = 0; icham < kNcham; icham++) {
 140     for (Int_t iplan = 0; iplan < kNplan; iplan++) {
 141
 142       Int_t iDet = GetDetectorSec(iplan,icham);
 143
 144       // The lower part of the readout chambers (gas volume + radiator)
 145       // The aluminum frames
 146       sprintf(cTagV,"UA%02d",iDet);
 147       parCha[0] = fCwidth[iplan]/2.;
 148       parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.;
 149       parCha[2] = fgkCraH/2. + fgkCdrH/2.;
 150       gMC->Gsvolu(cTagV,"BOX ",idtmed[1301-1],parCha,kNparCha);
 151       // The G10 frames
 152       sprintf(cTagV,"UB%02d",iDet);
 153       parCha[0] = fCwidth[iplan]/2. - fgkCalT;
 154       parCha[1] = -1.;
 155       parCha[2] = -1.;
 156       gMC->Gsvolu(cTagV,"BOX ",idtmed[1307-1],parCha,kNparCha);
 157       // The inner part (air)
 158       sprintf(cTagV,"UC%02d",iDet);
 159       parCha[0] = fCwidth[iplan]/2. - fgkCalT - fgkCclsT;
 160       parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.- fgkCclfT;
 161       parCha[2] = -1.;
 162       gMC->Gsvolu(cTagV,"BOX ",idtmed[1302-1],parCha,kNparCha);
 163
 164       // The upper part of the readout chambers (readout plane + fee)
 165       // The G10 frames
 166       sprintf(cTagV,"UD%02d",iDet);
 167       parCha[0] = fCwidth[iplan]/2. + fgkCroW;
 168       parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.;
 169       parCha[2] = fgkCamH/2.;
 170       gMC->Gsvolu(cTagV,"BOX ",idtmed[1307-1],parCha,kNparCha);
 171       // The inner part of the G10 frame (air)
 172       sprintf(cTagV,"UE%02d",iDet);
 173       parCha[0] = fCwidth[iplan]/2. + fgkCroW - fgkCcuT;
 174       parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.- fgkCcuT;
 175       parCha[2] = -1.;
 176       gMC->Gsvolu(cTagV,"BOX ",idtmed[1302-1],parCha,kNparCha);
 177       // The aluminum frames
 178       sprintf(cTagV,"UF%02d",iDet);
 179       parCha[0] = fCwidth[iplan]/2. + fgkCroW;
 180       parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.;
 181       parCha[2] = fgkCroH/2.;
 182       gMC->Gsvolu(cTagV,"BOX ",idtmed[1301-1],parCha,kNparCha);
 183       // The inner part of the aluminum frames
 184       sprintf(cTagV,"UG%02d",iDet);
 185       parCha[0] = fCwidth[iplan]/2. + fgkCroW - fgkCauT;
 186       parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.- fgkCauT;
 187       parCha[2] = -1.;
 188       gMC->Gsvolu(cTagV,"BOX ",idtmed[1302-1],parCha,kNparCha);
 189
 190       // The material layers inside the chambers
 191       parCha[0] = -1.;
 192       parCha[1] = -1.;
 193       // Rohacell layer (radiator)
 194       parCha[2] = fgkRaThick/2;
 195       sprintf(cTagV,"UH%02d",iDet);
 196       gMC->Gsvolu(cTagV,"BOX ",idtmed[1315-1],parCha,kNparCha);
 197       // Mylar layer (entrance window + HV cathode)
 198       parCha[2] = fgkMyThick/2;
 199       sprintf(cTagV,"UI%02d",iDet);
 200       gMC->Gsvolu(cTagV,"BOX ",idtmed[1308-1],parCha,kNparCha);
 201       // Xe/Isobutane layer (drift volume)
 202       parCha[2] = fgkDrThick/2.;
 203       sprintf(cTagV,"UJ%02d",iDet);
 204       gMC->Gsvolu(cTagV,"BOX ",idtmed[1309-1],parCha,kNparCha);
 205       // Xe/Isobutane layer (amplification volume)
 206       parCha[2] = fgkAmThick/2.;
 207       sprintf(cTagV,"UK%02d",iDet);
 208       gMC->Gsvolu(cTagV,"BOX ",idtmed[1309-1],parCha,kNparCha);
 209       // Cu layer (pad plane)
 210       parCha[2] = fgkCuThick/2;
 211       sprintf(cTagV,"UL%02d",iDet);
 212       gMC->Gsvolu(cTagV,"BOX ",idtmed[1305-1],parCha,kNparCha);
 213       // G10 layer (support structure / honeycomb)
 214       parCha[2] = fgkSuThick/2;
 215       sprintf(cTagV,"UM%02d",iDet);
 216       gMC->Gsvolu(cTagV,"BOX ",idtmed[1313-1],parCha,kNparCha);
 217       // Cu layer (FEE + signal lines)
 218       parCha[2] = fgkFeThick/2;
 219       sprintf(cTagV,"UN%02d",iDet);
 220       gMC->Gsvolu(cTagV,"BOX ",idtmed[1305-1],parCha,kNparCha);
 221
 222       // Position the layers in the chambers
 223       xpos = 0;
 224       ypos = 0;
 225       // Lower part
 226       // Rohacell layer (radiator)
 227       zpos = fgkRaZpos;
 228       sprintf(cTagV,"UH%02d",iDet);
 229       sprintf(cTagM,"UC%02d",iDet);
 230       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
 231       // Mylar layer (entrance window + HV cathode)
 232       zpos = fgkMyZpos;
 233       sprintf(cTagV,"UI%02d",iDet);
 234       sprintf(cTagM,"UC%02d",iDet);
 235       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
 236       // Xe/Isobutane layer (drift volume)
 237       zpos = fgkDrZpos;
 238       sprintf(cTagV,"UJ%02d",iDet);
 239       sprintf(cTagM,"UC%02d",iDet);
 240       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
 241       // Upper part
 242       // Xe/Isobutane layer (amplification volume)
 243       zpos = fgkAmZpos;
 244       sprintf(cTagV,"UK%02d",iDet);
 245       sprintf(cTagM,"UE%02d",iDet);
 246       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
 247       // Readout part
 248       // Cu layer (pad plane)
 249       zpos = fgkCuZpos;
 250       sprintf(cTagV,"UL%02d",iDet);
 251       sprintf(cTagM,"UG%02d",iDet);
 252       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
 253       // G10 layer (support structure)
 254       zpos = fgkSuZpos;
 255       sprintf(cTagV,"UM%02d",iDet);
 256       sprintf(cTagM,"UG%02d",iDet);
 257       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
 258       // Cu layer (FEE + signal lines)
 259       zpos = fgkFeZpos;
 260       sprintf(cTagV,"UN%02d",iDet);
 261       sprintf(cTagM,"UG%02d",iDet);
 262       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
 263
 264       // Position the inner volumes of the chambers in the frames
 265       xpos      = 0.0;
 266       ypos      = 0.0;
 267       zpos      = 0.0;
 268       // The inside of the lower G10 frame
 269       sprintf(cTagV,"UC%02d",iDet);
 270       sprintf(cTagM,"UB%02d",iDet);
 271       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
 272       // The lower G10 frame inside the aluminum frame
 273       sprintf(cTagV,"UB%02d",iDet);
 274       sprintf(cTagM,"UA%02d",iDet);
 275       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
 276       // The inside of the upper G10 frame
 277       sprintf(cTagV,"UE%02d",iDet);
 278       sprintf(cTagM,"UD%02d",iDet);
 279       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
 280       // The inside of the upper aluminum frame
 281       sprintf(cTagV,"UG%02d",iDet);
 282       sprintf(cTagM,"UF%02d",iDet);
 283       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
 284
 285       // Position the frames of the chambers in the TRD mother volume
 286       xpos  = 0.;
 287       ypos  = - fClength[iplan][0] - fClength[iplan][1] - fClength[iplan][2]/2.;
 288       for (Int_t ic = 0; ic < icham; ic++) {
 289         ypos += fClength[iplan][ic];
 290       }
 291       ypos += fClength[iplan][icham]/2.;
 292       zpos  = fgkCraH/2. + fgkCdrH/2. - fgkSheight/2. + iplan * (fgkCH + fgkVspace);
 293       // The lower aluminum frame, radiator + drift region
 294       sprintf(cTagV,"UA%02d",iDet);
 295       gMC->Gspos(cTagV,1,"UTR1",xpos,ypos,zpos,0,"ONLY");
 296       // The upper G10 frame, amplification region
 297       sprintf(cTagV,"UD%02d",iDet);
 298       zpos += fgkCamH/2. + fgkCraH/2. + fgkCdrH/2.;
 299       gMC->Gspos(cTagV,1,"UTR1",xpos,ypos,zpos,0,"ONLY");
 300       // The upper aluminum frame
 301       sprintf(cTagV,"UF%02d",iDet);
 302       zpos += fgkCroH/2. + fgkCamH/2.;
 303       gMC->Gspos(cTagV,1,"UTR1",xpos,ypos,zpos,0,"ONLY");
 304
 305       // Position the MCM volumina
 306       PositionReadout(iplan,icham);
 307
 308       // Position the volumina for the cooling
 309       PositionCooling(iplan,icham,idrotm);
 310
 311     }
 312   }
 313
 314   xpos = 0.;
 315   ypos = 0.;
 316   zpos = 0.;
 317   gMC->Gspos("UTR1",1,"BTR1",xpos,ypos,zpos,0,"ONLY");
 318   gMC->Gspos("UTR1",2,"BTR2",xpos,ypos,zpos,0,"ONLY");
 319   gMC->Gspos("UTR1",3,"BTR3",xpos,ypos,zpos,0,"ONLY");
 320
 321 }
 322
 323 //_____________________________________________________________________________
 324 void AliTRDgeometryDetail::CreateReadout(Int_t *idtmed) const
 325 {
 326   //
 327   // Create the volumina of the readout electronics
 328   //
 329
 330   const Int_t   kNparBox    = 3;
 331
 332   Float_t parBox[kNparBox];
 333   Float_t xpos = 0.0;
 334   Float_t ypos = 0.0;
 335   Float_t zpos = 0.0;
 336
 337   // The mother volume for the MCMs + connectors (air)
 338   parBox[0] = 3.0/2.;
 339   parBox[1] = 3.4/2.;
 340   parBox[2] = 0.5/2.;
 341   gMC->Gsvolu("UMCM","BOX",idtmed[1302-1],parBox,kNparBox);
 342
 343   // The MCM carrier G10 layer
 344   parBox[0] = 3.0/2.;
 345   parBox[1] = 3.0/2.;
 346   parBox[2] = 0.1/2.;
 347   gMC->Gsvolu("UMC1","BOX",idtmed[1319-1],parBox,kNparBox);
 348   // The MCM carrier Cu layer
 349   parBox[0] = 3.0/2.;
 350   parBox[1] = 3.0/2.;
 351   parBox[2] = 0.0034/2.;
 352   gMC->Gsvolu("UMC2","BOX",idtmed[1318-1],parBox,kNparBox);
 353   // The MCM carrier Sn layer
 354   parBox[0] = 3.0/2.;
 355   parBox[1] = 3.0/2.;
 356   parBox[2] = 0.004/2.;
 357   gMC->Gsvolu("UMC3","BOX",idtmed[1317-1],parBox,kNparBox);
 358   // The MCM carrier Al layer
 359   parBox[0] = 3.0/2.;
 360   parBox[1] = 3.0/2.;
 361   parBox[2] = 0.05/2.;
 362   gMC->Gsvolu("UMC4","BOX",idtmed[1316-1],parBox,kNparBox);
 363
 364   // The epoxy of chip no.1
 365   parBox[0] = 0.548/2.;
 366   parBox[1] = 0.548/2.;
 367   parBox[2] = 0.1/2.;
 368   gMC->Gsvolu("UCE1","BOX",idtmed[1321-1],parBox,kNparBox);
 369   // The silicon of chip no.1
 370   parBox[0] = 0.316/2.;
 371   parBox[1] = 0.316/2.;
 372   parBox[2] = 0.03/2.;
 373   gMC->Gsvolu("UCS1","BOX",idtmed[1320-1],parBox,kNparBox);
 374
 375   // The epoxy of chip no.2
 376   parBox[0] = 1.549/2.;
 377   parBox[1] = 1.549/2.;
 378   parBox[2] = 0.1/2.;
 379   gMC->Gsvolu("UCE2","BOX",idtmed[1321-1],parBox,kNparBox);
 380   // The silicon of chip no.2
 381   parBox[0] = 0.894/2.;
 382   parBox[1] = 0.894/2.;
 383   parBox[2] = 0.03/2.;
 384   gMC->Gsvolu("UCS2","BOX",idtmed[1320-1],parBox,kNparBox);
 385
 386   // The PE of the connector
 387   parBox[0] = 2.25/2.;
 388   parBox[1] = 0.4/2.;
 389   parBox[2] = 0.3/2.;
 390   gMC->Gsvolu("UCN1","BOX",idtmed[1322-1],parBox,kNparBox);
 391   // The Cu of the connector
 392   parBox[0] = 2.25/2.;
 393   parBox[1] = 0.4/2.;
 394   parBox[2] = 0.005/2.;
 395   gMC->Gsvolu("UCN2","BOX",idtmed[1323-1],parBox,kNparBox);
 396
 397   xpos  =  0.0;
 398   ypos  = -0.4/2.;
 399   zpos  = -0.25      + 0.1/2.;
 400   gMC->Gspos("UMC1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
 401   zpos +=  0.1/2.   + 0.0034/2.;
 402   gMC->Gspos("UMC2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
 403   zpos +=  0.0034/2 + 0.004/2.;
 404   gMC->Gspos("UMC3",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
 405   zpos +=  0.004/2  + 0.05/2.;
 406   gMC->Gspos("UMC4",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
 407   zpos +=  0.05/2.  + 0.1/2.;
 408   xpos  =  1.0;
 409   gMC->Gspos("UCE1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
 410   xpos  = -0.5;
 411   gMC->Gspos("UCE2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
 412   zpos +=  0.1/2.   + 0.03/2.;
 413   xpos  =  1.0;
 414   gMC->Gspos("UCS1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
 415   xpos  = -0.5;
 416   gMC->Gspos("UCS2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
 417   xpos  =  0.0;
 418   ypos  =  3.4/2.   - 0.4/2.;
 419   zpos  = -0.25     + 0.3/2.;
 420   gMC->Gspos("UCN1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
 421   zpos +=  0.3/2.   + 0.005/2.;
 422   gMC->Gspos("UCN2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
 423
 424 }
 425
 426 //_____________________________________________________________________________
 427 void AliTRDgeometryDetail::PositionReadout(Int_t ipla, Int_t icha)
 428 {
 429   //
 430   // Position the volumina inside the readout mother volume
 431   //
 432
 433   const Int_t   kNmcmChannel = 18;
 434
 435   AliTRDparameter *parameter = new AliTRDparameter();
 436
 437   Int_t nMCMrow = parameter->GetRowMax(ipla,icha,0);
 438   Int_t nMCMcol = parameter->GetColMax(ipla) / kNmcmChannel;
 439
 440   Float_t xSize = (GetChamberWidth(ipla)       - 2.*fgkCpadW)
 441                 / ((Float_t) nMCMcol);
 442   Float_t ySize = (GetChamberLength(ipla,icha) - 2.*fgkRpadW)
 443                 / ((Float_t) nMCMrow);
 444   Float_t x0    = parameter->GetCol0(ipla);
 445   Float_t y0    = parameter->GetRow0(ipla,icha,0);
 446
 447   Int_t iCopy = GetDetector(ipla,icha,0) * 1000;
 448   for (Int_t iMCMrow = 0; iMCMrow < nMCMrow; iMCMrow++) {
 449     for (Int_t iMCMcol = 0; iMCMcol < nMCMcol; iMCMcol++) {
 450       iCopy++;
 451       Float_t xpos = (0.5 + iMCMcol) * xSize + x0;
 452       Float_t ypos = (0.5 + iMCMrow) * ySize + y0;
 453       Float_t zpos = fgkCH - fgkSheight/2. + 0.5/2.
 454                    + ipla * (fgkCH + fgkVspace);
 455       gMC->Gspos("UMCM",iCopy,"UTR1",xpos,ypos,zpos,0,"ONLY");
 456     }
 457   }
 458
 459   delete parameter;
 460
 461 }
 462
 463 //_____________________________________________________________________________
 464 void AliTRDgeometryDetail::CreateCooling(Int_t *idtmed) const
 465 {
 466   //
 467   // Create the volumina of the cooling
 468   //
 469
 470   const Int_t kNparTube = 3;
 471
 472   Float_t parTube[kNparTube];
 473   Float_t xpos;
 474   Float_t ypos;
 475   Float_t zpos;
 476
 477   // The aluminum pipe for the cooling
 478   parTube[0] = 0.0;
 479   parTube[1] = 0.0;
 480   parTube[2] = 0.0;
 481   gMC->Gsvolu("UCOA","TUBE",idtmed[1324-1],parTube,0);
 482
 483   // The cooling water
 484   parTube[0] =  0.0;
 485   parTube[1] =  0.2/2.;
 486   parTube[2] = -1.;
 487   gMC->Gsvolu("UCOW","TUBE",idtmed[1314-1],parTube,kNparTube);
 488
 489   // Water inside the cooling pipe
 490   xpos = 0.0;
 491   ypos = 0.0;
 492   zpos = 0.0;
 493   gMC->Gspos("UCOW",1,"UCOA",xpos,ypos,zpos,0,"ONLY");
 494
 495 }
 496
 497 //_____________________________________________________________________________
 498 void AliTRDgeometryDetail::PositionCooling(Int_t ipla, Int_t icha, Int_t idrotm)
 499 {
 500   //
 501   // Position the volumina of the cooling
 502   //
 503
 504   const Int_t kNpar = 3;
 505
 506   Float_t par[kNpar];
 507   Float_t xpos;
 508   Float_t ypos;
 509   Float_t zpos;
 510
 511   AliTRDparameter *parameter = new AliTRDparameter();
 512
 513   Int_t   iCopy   = GetDetector(ipla,icha,0) * 100;
 514   Int_t   nMCMrow = parameter->GetRowMax(ipla,icha,0);
 515
 516   Float_t ySize   = (GetChamberLength(ipla,icha) - 2.*fgkRpadW)
 517                   / ((Float_t) nMCMrow);
 518   Float_t y0      = parameter->GetRow0(ipla,icha,0);
 519
 520   // Position the cooling pipes
 521   for (Int_t iMCMrow = 0; iMCMrow < nMCMrow; iMCMrow++) {
 522
 523     xpos   = 0.0;
 524     ypos   = (0.5 + iMCMrow) * ySize + y0 - 1.9;
 525     zpos   = fgkCH - fgkSheight/2. + 0.5/2.
 526                    + ipla * (fgkCH + fgkVspace);
 527     par[0] = 0.0;
 528     par[1] = 0.3/2.;
 529     par[2] = GetChamberWidth(ipla)/2.+ fgkCroW;
 530     gMC->Gsposp("UCOA",iCopy+iMCMrow,"UTR1",xpos,ypos,zpos
 531                       ,idrotm,"ONLY",par,kNpar);
 532
 533   }
 534
 535   delete parameter;
 536
 537 }