FMD/AliFMDAlla.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 /* $Id$ */
  17
  18 /////////////////////////////////////////////////////////////////////
  19 //                                                                 //
  20 // Forward Multiplicity detector based on Silicon version 0        //
  21 //
  22 //Begin Html
  23 /*
  24   <img src="gif/AliFMDv0Class.gif">
  25 */
  26 //End Html
  27 //                                                                  //
  28 //                                                                  //
  29 //////////////////////////////////////////////////////////////////////
  30
  31 #include <Riostream.h>
  32 #include <stdlib.h>
  33
  34 #include <TClonesArray.h>
  35 #include <TDirectory.h>
  36 #include <TFile.h>
  37 #include <TGeometry.h>
  38 #include <TLorentzVector.h>
  39 #include <TMath.h>
  40 #include <TNode.h>
  41 #include <TTUBE.h>
  42 #include <TTree.h>
  43 #include <TVirtualMC.h>
  44 #include <TDatabasePDG.h>
  45 #include <AliFMDHit.h>
  46 #include "AliFMDv0.h"
  47 #include "AliFMDAlla.h"
  48 #include "AliMagF.h"
  49 #include "AliRun.h"
  50 #include "AliMC.h"
  51
  52 ClassImp(AliFMDAlla)
  53 #if 0
  54   ;
  55 #endif
  56
  57 //--------------------------------------------------------------------
  58 AliFMDAlla::AliFMDAlla(const char *name, const char *title)
  59   : AliFMD(name,title)
  60 {
  61   //
  62   // Standart constructor for Forward Multiplicity Detector version 0
  63   //
  64   fIdSens1=0;
  65   fIdSens2=0;
  66   fIdSens3=0;
  67   fIdSens4=0;
  68   fIdSens5=0;
  69   //  setBufferSize(128000);
  70 }
  71 //-------------------------------------------------------------------------
  72 void
  73 AliFMDAlla::CreateGeometry()
  74 {
  75   //
  76   // Create the geometry of Forward Multiplicity Detector version 0
  77   //
  78   //Detector consists of 6 volumes:
  79   // 1st covered pseudorapidity interval from 3.3 to 2.0
  80   // and placed on 65cm in Z-direction;
  81   // 2nd - from 2.0 to 1.6 and Z=85 cm;
  82   // 3d  - the same pseudorapidity interval as the 1st
  83   // but on the other side from the interaction point z=-65cm;
  84   // 4th - simmetricaly with the 2nd :
  85   // pseudorapidity from 2.0 to 1.6, Z=-85cm
  86   // 5th - from 3.6 to 4.7, Z=-270cm
  87   // 6th - from 4.5 to 5.5 , Z=-630cm.
  88   // Each part has 400mkm Si (sensetive area, detector itself),
  89   // 0.75cm of plastic simulated electronics material,
  90   // Al support ring 2cm thickness and 1cm width placed on
  91   // the outer radius of each Si disk;
  92   //
  93   // begin Html
  94   /*
  95     <img src="gif/AliFMDv0.gif">
  96   */
  97   //
  98
  99
 100
 101   Int_t *idtmed = fIdtmed->GetArray();
 102
 103   Int_t ifmd;
 104   Int_t idrotm[999];
 105   Float_t zFMD;
 106   Float_t par[3];
 107   Float_t ppcon[15];
 108   Float_t z[5]             = {-62.8, -75.2, 83.4, 75.2, 340.};
 109   Float_t NylonTube[3]     = {0.2,0.6,0.45};
 110   Float_t zPCB             = 0.12;
 111   Float_t zHoneyComb       = 0.5;
 112   Float_t zSi              = 0.03;
 113   Float_t rin[5]           = {4.2,15.4,4.2,15.4,4.2};
 114   Float_t rout[5]          = {17.4,28.4,17.4,28.4,17.4};
 115   Float_t RinHoneyComb[5]  = { 5.15,16.4,  5.15,16.4,  5.15};
 116   Float_t RoutHoneyComb[5] = {20.63,34.92,22.3, 32.02,20.63};
 117   Float_t zInside;
 118   Float_t zCooper          = 0.01;
 119   Float_t zChips           = 0.01;
 120   Float_t yNylonTube[5]    = {10,20,10,20,10};
 121
 122   char    nameFMD[5];
 123   char    nameSi[5];
 124   char    nameSector[5];
 125   char    nameRing[5];
 126   Char_t  nameHoney[5];
 127   char    nameHoneyIn[5];
 128   char    nameHoneyOut[5];
 129   Char_t  namePCB[5];
 130   char    nameCopper[5];
 131   char    nameChips[5];
 132   char    nameG10[5];
 133   Char_t  nameLPCB[5];
 134   char    nameLCopper[5];
 135   char    nameLChips[5];
 136   char    nameGL10[5];
 137
 138   AliMatrix(idrotm[901], 90, 0, 90, 90, 180, 0);
 139
 140
 141   // Nylon tubes
 142   gMC->Gsvolu("GNYL","TUBE", idtmed[1], NylonTube, 3);  //support nylon tube
 143   Float_t wideSupport=zSi+3*zPCB+2*NylonTube[2]+zHoneyComb;
 144   AliDebug(1, Form("Support width: %f", wideSupport));
 145
 146   for (ifmd=0; ifmd<5; ifmd++)  {
 147     sprintf(nameFMD,"FMD%d",ifmd+1);
 148     ppcon[0]=0;
 149     ppcon[1]=360;
 150     ppcon[2]=4;
 151
 152     ppcon[3]=-wideSupport;
 153     ppcon[4]=rin[ifmd]-0.1;
 154     ppcon[5]=rout[ifmd]+0.1;
 155
 156     ppcon[6]=ppcon[3]+2*zSi+2*zPCB+2*NylonTube[2];
 157     ppcon[7]=rin[ifmd]-0.1;
 158     ppcon[8]=rout[ifmd]+0.1;
 159
 160     ppcon[9]=ppcon[6];
 161     ppcon[10]=RinHoneyComb[ifmd]-0.1;
 162     ppcon[11]=RoutHoneyComb[ifmd]+0.1;
 163
 164     ppcon[12]=ppcon[9]+2*zHoneyComb+zPCB;
 165     ppcon[13]=RinHoneyComb[ifmd]-0.1;
 166     ppcon[14]=RoutHoneyComb[ifmd]+0.1;
 167     gMC->Gsvolu(nameFMD,"PCON",idtmed[0],ppcon,15);
 168     if (z[ifmd] >0){
 169       zFMD=z[ifmd]+wideSupport;
 170       gMC->Gspos(nameFMD,1,"ALIC",0,0,zFMD,0, "ONLY");}
 171     else {
 172       zFMD=z[ifmd]-wideSupport;
 173       gMC->Gspos(nameFMD,1,"ALIC",0,0,zFMD,idrotm[901], "ONLY");}
 174
 175     //silicon
 176     sprintf(nameSi,"GSI%d",ifmd+1);
 177     sprintf(nameSector,"GSC%d",ifmd+1);
 178     sprintf(nameRing,"GRN%d",ifmd+1);
 179
 180     //honeycomb support
 181     sprintf(nameHoney,"GSU%d",ifmd+1);
 182     gMC->Gsvolu(nameHoney,"TUBE", idtmed[0], par, 0);  //honeycomb
 183     sprintf(nameHoneyIn,"GHI%d",ifmd+1);
 184     gMC->Gsvolu(nameHoneyIn,"TUBE", idtmed[7], par, 0);  //honey comb inside
 185     sprintf(nameHoneyOut,"GHO%d",ifmd+1);
 186     gMC->Gsvolu(nameHoneyOut,"TUBE", idtmed[6], par, 0);  //honey comb skin
 187
 188     //PCB
 189     sprintf(namePCB,"GPC%d",ifmd+1);
 190     gMC->Gsvolu(namePCB,"TUBE", idtmed[0], par, 0); //PCB
 191     sprintf(nameCopper,"GCO%d",ifmd+1);
 192     gMC->Gsvolu(nameCopper,"TUBE", idtmed[3], par, 0);  // Cooper
 193     sprintf(nameChips,"GCH%d",ifmd+1);
 194     gMC->Gsvolu(nameChips,"TUBE", idtmed[5], par, 0); // Si chips
 195     sprintf(nameG10,"G10%d",ifmd+1);
 196     gMC->Gsvolu(nameG10,"TUBE", idtmed[2], par, 0);  //G10 plate
 197
 198     //last PCB
 199     sprintf(nameLPCB,"GPL%d",ifmd+1);
 200     gMC->Gsvolu(nameLPCB,"TUBE", idtmed[0], par, 0); //PCB
 201     sprintf(nameLCopper,"GCL%d",ifmd+1);
 202     gMC->Gsvolu(nameLCopper,"TUBE", idtmed[3], par, 0);  // Cooper
 203     sprintf(nameLChips,"GHL%d",ifmd+1);
 204     gMC->Gsvolu(nameLChips,"TUBE", idtmed[5], par, 0); // Si chips
 205     sprintf(nameGL10,"G1L%d",ifmd+1);
 206     gMC->Gsvolu(nameGL10,"TUBE", idtmed[2], par, 0); // Last G10
 207     par[0]=rin[ifmd]; // pipe size
 208     par[1]=rout[ifmd];
 209     par[2]=zSi/2;
 210     gMC->Gsvolu(nameSi,"TUBE", idtmed[4], par, 3);
 211     zInside=ppcon[3]+par[2];
 212     gMC->Gspos(nameSi,ifmd+1,nameFMD,0,0,zInside,0, "ONLY");
 213
 214     //PCB 1
 215     zInside += par[2]+zPCB/2;
 216     par[2]=zPCB/2;
 217     gMC->Gsposp(namePCB,1,nameFMD,0,0,zInside,0, "ONLY",par,3);
 218     zInside += zPCB;
 219     gMC->Gsposp(namePCB,2,nameFMD,0,0,zInside,0, "ONLY",par,3);
 220     Float_t NulonTubeBegin=zInside+2.5*zPCB;
 221     par[2]=zPCB/2-0.02;
 222     Float_t zInPCB = -zPCB/2+par[2];
 223     gMC->Gsposp(nameG10,1,namePCB,0,0,zInPCB,0, "ONLY",par,3);
 224     zInPCB+=par[2]+zCooper/2 ;
 225     par[2]=zCooper/2;
 226     gMC->Gsposp(nameCopper,1,namePCB,0,0,zInPCB,0, "ONLY",par,3);
 227     zInPCB += zCooper/2 + zChips/2;
 228     par[2]=zChips/2;
 229     gMC->Gsposp(nameChips,1,namePCB,0,0,zInPCB,0, "ONLY",par,3);
 230
 231     //HoneyComb
 232     zHoneyComb=0.8;
 233     par[0] = RinHoneyComb[ifmd];
 234     par[1] = RoutHoneyComb[ifmd];
 235     par[2] = zHoneyComb/2;
 236     zInside += 2*NylonTube[2]+par[2];
 237     gMC->Gsposp(nameHoney,1,nameFMD,0,0,zInside,0, "ONLY",par,3);
 238     par[2]=0.1/2;
 239     Float_t zHoney=-zHoneyComb/2+par[2];
 240     gMC->Gsposp(nameHoneyOut,1,nameHoney,0,0,zHoney,0,
 241                 "ONLY",par,3); //shkurki
 242     zHoney=zHoneyComb/2-par[2];
 243     gMC->Gsposp(nameHoneyOut,2,nameHoney,0,0,zHoney,0, "ONLY",par,3);
 244     par[2]=(zHoneyComb-2.*0.1)/2; //soty vnutri
 245     gMC->Gsposp(nameHoneyIn,1,nameHoney,0,0,0,0, "ONLY",par,3);
 246
 247     gMC->Gspos("GNYL",1,nameFMD,0,yNylonTube[ifmd],
 248                NulonTubeBegin+NylonTube[2]/2.,0, "ONLY");
 249     gMC->Gspos("GNYL",2,nameFMD,0,-yNylonTube[ifmd],
 250                NulonTubeBegin+NylonTube[2]/2.,0, "ONLY");
 251
 252     //last PCB
 253     par[0]=RoutHoneyComb[ifmd]-9;
 254     par[1]=RoutHoneyComb[ifmd];
 255     par[2]=zPCB/2;
 256     zInside += zHoneyComb/2+par[2];
 257     gMC->Gsposp(nameLPCB,1,nameFMD,0,0,zInside,0, "ONLY",par,3);
 258
 259     par[2]=zPCB/2-0.02;
 260     zInPCB = -zPCB/2+par[2];
 261     gMC->Gsposp(nameGL10,1,nameLPCB,0,0,zInPCB,0, "ONLY",par,3);
 262     zInPCB+=par[2]+zCooper/2 ;
 263     par[2]=zCooper/2;
 264     gMC->Gsposp(nameLCopper,1,nameLPCB,0,0,zInPCB,0, "ONLY",par,3);
 265     zInPCB += zCooper/2 + zChips/2;
 266     par[2]=zChips/2;
 267     gMC->Gsposp(nameLChips,1,nameLPCB,0,0,zInPCB,0, "ONLY",par,3);
 268
 269
 270     //Granularity
 271     fSectorsSi1 = 20;
 272     fRingsSi1   = 256 * 2;
 273     //  fRingsSi1=3; // for drawing only
 274     fSectorsSi2 = 40;
 275     fRingsSi2   = 128 * 2;
 276     //   fRingsSi2=3; //for  drawing onl
 277     if(ifmd==1||ifmd==3) {
 278       gMC->Gsdvn(nameSector, nameSi , fSectorsSi2, 2);
 279       gMC->Gsdvn(nameRing, nameSector, fRingsSi2, 1);
 280     }
 281     else {
 282       gMC->Gsdvn(nameSector, nameSi , fSectorsSi1, 2);
 283       gMC->Gsdvn(nameRing, nameSector , fRingsSi1, 1);
 284     }
 285   }
 286 }
 287
 288
 289 //------------------------------------------------------------------------
 290 void
 291 AliFMDAlla::CreateMaterials()
 292 {
 293   Int_t isxfld   = gAlice->Field()->Integ();
 294   Float_t sxmgmx = gAlice->Field()->Max();
 295
 296   // Plastic CH
 297   Float_t aPlastic[2]={1.01,12.01};
 298   Float_t zPlastic[2]={1,6};
 299   Float_t wPlastic[2]={1,1};
 300   Float_t denPlastic=1.03;
 301   //
 302   //     60% SiO2 , 40% G10FR4
 303   // PC board
 304   Float_t apcb[3]  = { 28.0855,15.9994,17.749 };
 305   Float_t zpcb[3]  = { 14.,8.,8.875 };
 306   Float_t wpcb[3]  = { .28,.32,.4 };
 307   Float_t denspcb  = 1.8;
 308   //
 309   // AIR
 310   Float_t aAir[4]  = {12.0107,14.0067,15.9994,39.948};
 311   Float_t zAir[4]  = {6.,7.,8.,18.};
 312   Float_t wAir[4]  = {0.000124,0.755267,0.231781,0.012827};
 313   Float_t dAir     = 1.20479E-3;
 314   //*** Definition Of avaible FMD materials ***
 315   AliMixture(0, "FMD Air$", aAir, zAir, dAir, 4,wAir);
 316   AliMixture(1, "Plastic$",aPlastic,zPlastic,denPlastic,-2,wPlastic);
 317   AliMixture(2, "SSD PCB$",   apcb, zpcb, denspcb, 3, wpcb);
 318   AliMaterial(3, "SSD Copper$", 63.546, 29., 8.96, 1.43, 999.);
 319   AliMaterial(4, "SSD Si$",      28.0855, 14., 2.33, 9.36, 999.);
 320   AliMaterial(5, "SSD Si chip$", 28.0855, 14., 2.33, 9.36, 999.);
 321   AliMaterial(6, "SSD C$",       12.011,   6., 2.265,18.8, 999.);
 322   AliMaterial(7, "SSD Kapton$", 12.011, 6., 0.01, 31.27, 999.);//honeycomb
 323   AliMaterial(8, "SSD G10FR4$", 17.749, 8.875, 1.8, 21.822, 999.);
 324
 325
 326   //**
 327   AliMedium(0, "FMD air$", 0, 0, isxfld, sxmgmx, 1., .001, 1., .001, .001);
 328   AliMedium(1, "Plastic$", 1, 0,isxfld, sxmgmx,  10., .01, 1., .003, .003);
 329   AliMedium(2, "SSD PCB$", 2, 0, isxfld, sxmgmx, 1., .001, 1., .001, .001);
 330   AliMedium(3, "SSD Copper$", 3, 0,isxfld, sxmgmx,  10., .01, 1., .003, .003);
 331   AliMedium(4, "SSD Si$", 4, 1, isxfld, sxmgmx, 1., .001, 1., .001, .001);
 332   AliMedium(5, "SSD Si chip$", 5, 0,isxfld, sxmgmx,  10., .01, 1., .003, .003);
 333   AliMedium(6, "SSD C$", 6, 0,isxfld, sxmgmx,  10., .01, 1., .003, .003);
 334   AliMedium(7, "SSD Kapton$", 7, 0, isxfld, sxmgmx, 1., .001, 1., .001, .001);
 335   AliMedium(8, "SSD G10FR4$", 8, 0,isxfld, sxmgmx,  10., .01, 1., .003, .003);
 336
 337
 338
 339 }
 340 //---------------------------------------------------------------------
 341 void
 342 AliFMDAlla::DrawDetector()
 343 {
 344   //
 345   // Draw a shaded view of the Forward multiplicity detector version 0
 346   //
 347
 348   //Set ALIC mother transparent
 349   gMC->Gsatt("ALIC","SEEN",0);
 350   //
 351   //Set volumes visible
 352   gMC->Gsatt("FMD1","SEEN",1);
 353   gMC->Gsatt("FMD2","SEEN",1);
 354   gMC->Gsatt("FMD3","SEEN",1);
 355   gMC->Gsatt("FMD4","SEEN",1);
 356   gMC->Gsatt("FMD5","SEEN",1);
 357
 358   //
 359   gMC->Gdopt("hide","on");
 360   gMC->Gdopt("shad","on");
 361   gMC->SetClipBox(".");
 362   gMC->SetClipBox("*",0,1000,-1000,1000,-1000,1000);
 363   gMC->DefaultRange();
 364   gMC->Gdraw("alic",40,30,0,12,9.5,.2,0.2);
 365   gMC->Gdhead(1111,"Forward multiplicity detector");
 366   gMC->Gdopt("hide","off");
 367 }
 368 //-------------------------------------------------------------------
 369 void
 370 AliFMDAlla::Init()
 371 {
 372   // Initialises version 0 of the Forward Multiplicity Detector
 373   //
 374   AliFMD::Init();
 375   fIdSens1=gMC->VolId("GRN1");
 376   fIdSens2=gMC->VolId("GRN2");
 377   fIdSens3=gMC->VolId("GRN3");
 378   fIdSens4=gMC->VolId("GRN4");
 379   fIdSens5=gMC->VolId("GRN5");
 380   printf("*** FMD version 1 initialized ***\n");
 381 }
 382
 383 //-------------------------------------------------------------------
 384 void
 385 AliFMDAlla::StepManager()
 386 {
 387   //
 388   // Called for every step in the Forward Multiplicity Detector
 389   //
 390   Int_t id,copy,copy1,copy2;
 391   static Float_t hits[9];
 392   static Int_t vol[3];
 393   static Float_t de;
 394   static TLorentzVector pos;
 395   static TLorentzVector mom;
 396   static Int_t iPart;
 397
 398   TClonesArray &lhits = *fHits;
 399   if(!gMC->IsTrackAlive()) return; // particle has disappeared
 400
 401   Float_t charge = gMC->TrackCharge();
 402   if(TMath::Abs(charge)<=0.) return; //take only charged particles
 403
 404   //  printf(" in StepManeger \n");
 405   id=gMC->CurrentVolID(copy);
 406   //((TGeant3*)gMC)->Gpcxyz();
 407
 408   // Check the sensetive volume
 409   if(id==fIdSens1||id==fIdSens2||id==fIdSens3||id==fIdSens4||id==fIdSens5) {
 410
 411     if(gMC->IsTrackEntering())  {
 412       vol[2]=copy;
 413       gMC->CurrentVolOffID(1,copy1);
 414       vol[1]=copy1;
 415       gMC->CurrentVolOffID(2,copy2);
 416       vol[0]=copy2;
 417
 418       gMC->TrackPosition(pos);
 419       hits[0]=pos[0];
 420       hits[1]=pos[1];
 421       hits[2]=pos[2];
 422
 423       gMC->TrackMomentum(mom);
 424       hits[3]=mom[0];
 425       hits[4]=mom[1];
 426       hits[5]=mom[2];
 427
 428       iPart= gMC->TrackPid();
 429       Int_t partId=gMC->IdFromPDG(iPart);
 430       hits[7]=partId;
 431       hits[8]=1e9*gMC->TrackTime();
 432       de=0.;
 433     }
 434     Float_t edep = 1000 * gMC->Edep();
 435     Float_t p    = mom.P();
 436     TParticlePDG* pdg = TDatabasePDG::Instance()->GetParticle(iPart);
 437     Float_t mass = pdg ? pdg->Mass() : 1;
 438     if (edep > 1 && p/mass > 1) {
 439       TArrayI procs;
 440       gMC->StepProcesses(procs);
 441       TString processes;
 442       for (Int_t ip = 0; ip < procs.fN; ip++) {
 443         if (ip != 0) processes.Append(",");
 444         processes.Append(TMCProcessName[procs.fArray[ip]]);
 445       }
 446       TString what;
 447       if (gMC->IsTrackEntering())    what.Append("entering ");
 448       if (gMC->IsTrackExiting())     what.Append("exiting ");
 449       if (gMC->IsTrackInside())      what.Append("inside ");
 450       if (gMC->IsTrackDisappeared()) what.Append("disappeared ");
 451       if (gMC->IsTrackStop())        what.Append("stopped ");
 452       if (gMC->IsNewTrack())         what.Append("new ");
 453       if (gMC->IsTrackAlive())       what.Append("alive ");
 454       if (gMC->IsTrackOut())         what.Append("out ");
 455       Int_t trackno = gAlice->GetMCApp()->GetCurrentTrackNumber();
 456       Int_t mother  = gAlice->GetMCApp()->GetPrimary(trackno);
 457       Warning("StepManager", "Track # %5d deposits a lot of energy\n"
 458               "  Volume:    %s\n"
 459               "  Momentum:  (%7.4f,%7.4f,%7.4f)\n"
 460               "  PDG:       %d (%s)\n"
 461               "  Edep:      %-14.7f keV (mother %d)\n"
 462               "  p/m:       %-7.4f/%-7.4f = %-14.7f\n"
 463               "  Processes: %s\n"
 464               "  What:      %s\n",
 465               trackno, gMC->CurrentVolPath(), mom.X(), mom.Y(), mom.Z(),
 466               iPart, (pdg ? pdg->GetName() : ""), edep, mother, mom.P(), mass,
 467               mom.P()/mass, processes.Data(), what.Data());
 468     }
 469
 470     if(gMC->IsTrackInside()) de=de+1000.*gMC->Edep();
 471
 472     if(gMC->IsTrackExiting() ||gMC->IsTrackDisappeared()|| gMC->IsTrackStop()){
 473       hits[6]=de+1000.*gMC->Edep();
 474       UShort_t detector = vol[0] / 2 + 1;
 475       Char_t   ring     = (vol[0] % 2) == 0 ? 'I' : 'O';
 476       UShort_t sector   = vol[1];
 477       UShort_t strip    = vol[2];
 478       AliFMDHit* h = new(lhits[fNhits++])
 479         AliFMDHit(fIshunt,
 480                   gAlice->GetMCApp()->GetCurrentTrackNumber(),
 481                   detector, ring, sector, strip,
 482                   hits[0], hits[1], hits[2], hits[3], hits[4], hits[5],
 483                   hits[6], iPart, hits[8]);
 484       if (hits[6] > 1 && p/mass > 1) fBad->Add(h);
 485     } // IsTrackExiting()
 486   }
 487 }
 488 //--------------------------------------------------------------------------
 489 void
 490 AliFMDAlla::Response(Float_t Edep)
 491 {
 492   Float_t I=1.664*0.04*2.33/22400; // = 0.69e-6;
 493   Float_t chargeOnly=Edep/I;
 494   //Add noise ~500electrons
 495   Int_t charge=500;
 496   if (Edep>0)
 497     charge=Int_t(gRandom->Gaus(chargeOnly,500));
 498 }
 499 //--------------------------------------------------------------------------
 500 //
 501 // EOF
 502 //
 503
 504
 505
 506
 507