This commit was generated by cvs2svn to compensate for changes in r244,
authorfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 4 Aug 1999 05:51:30 +0000 (05:51 +0000)
committerfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 4 Aug 1999 05:51:30 +0000 (05:51 +0000)
which included commits to RCS files with non-trunk default branches.

START/AliSTART.cxx [new file with mode: 0755]
START/AliSTART.h [new file with mode: 0755]
START/AliSTARTv0.cxx [new file with mode: 0755]
START/AliSTARTv0.h [new file with mode: 0755]
START/AliSTARTv1.cxx [new file with mode: 0755]
START/DrawSTART.C [new file with mode: 0755]
START/Makefile [new file with mode: 0644]
START/STARTLinkDef.h [new file with mode: 0755]
START/ViewSTART.C [new file with mode: 0755]

diff --git a/START/AliSTART.cxx b/START/AliSTART.cxx
new file mode 100755 (executable)
index 0000000..107fcfb
--- /dev/null
@@ -0,0 +1,181 @@
+///////////////////////////////////////////////////////////////////////////////
+//                                                                           //
+//  START (T-Zero) Detector                                            //
+//  This class contains the base procedures for the START     //
+//  detector                                                                 //
+//                                                                           //
+//Begin_Html
+/*
+<img src="gif/AliSTARTClass.gif">
+</pre>
+<br clear=left>
+<font size=+2 color=red>
+<p>The responsible person for this module is
+<a href="mailto:Alla.Maevskaia@cern.ch">Alla Maevskaia</a>.
+</font>
+<pre>
+*/
+//End_Html
+//                                                                           //
+//                                                                           //
+///////////////////////////////////////////////////////////////////////////////
+
+#include <TTUBE.h>
+#include <TNode.h>
+#include <TGeometry.h>
+#include "AliRun.h"
+#include "AliSTART.h"
+#include <iostream.h>
+#include <fstream.h>
+#include "AliMC.h"
+//#include "TGeant3.h"
+ClassImp(AliSTART)
+//_____________________________________________________________________________
+AliSTART::AliSTART(): AliDetector()
+{
+  //
+  // Default constructor for class AliSTART
+  //
+  fIshunt   = 0;
+}
+//_____________________________________________________________________________
+AliSTART::AliSTART(const char *name, const char *title)
+       : AliDetector(name,title)
+{
+  //
+  // Standard constructor for START Detector
+  //
+  //
+  // Initialise Hit array
+  fHits   = new TClonesArray("AliSTARThit",  405);
+  
+  fIshunt     =  0;
+  fIdSens1    =  0;
+
+  SetMarkerColor(kRed);
+}
+//_____________________________________________________________________________
+void AliSTART::AddHit(Int_t track, Int_t *vol, Float_t *hits)
+{
+  //
+  // Add a START hit
+  //
+  TClonesArray &lhits = *fHits;
+  new(lhits[fNhits++]) AliSTARThit(fIshunt,track,vol,hits);
+}
+//_____________________________________________________________________________
+void AliSTART::BuildGeometry()
+{
+  //
+  // Build simple ROOT TNode geometry for event display
+  //
+  TNode *Node, *Top;
+  const int kColorSTART  = 19;
+  //
+  Top=gAlice->GetGeometry()->GetNode("alice");
+
+  // START define the different volumes
+  new TRotMatrix("rot999","rot999",  90,0,90,90,180,0);
+
+  new TTUBE("S_STR1","START  volume 1","void",5.,10.7,5.3);
+  Top->cd();
+  Node = new TNode("STR1","STR1","S_STR1",0,0,75.,"");
+  Node->SetLineColor(kColorSTART);
+  fNodes->Add(Node);
+
+  new TTUBE("S_STR2","START volume 2","void",5.,10.7,5.3);
+  Top->cd();
+  Node = new TNode("STR2","STR2","S_STR2",0,0,-75,"rot999");
+  Node->SetLineColor(kColorSTART);
+  fNodes->Add(Node);
+}
+//_____________________________________________________________________________
+Int_t AliSTART::DistanceToPrimitive(Int_t px, Int_t py)
+{
+  //
+  // Calculate the distance from the mouse to the START on the screen
+  // Dummy routine
+  //
+  return 9999;
+}
+//_____________________________________________________________________________
+
+//-------------------------------------------------------------------------
+void AliSTART::Init()
+{
+  //
+  // Initialis the START after it has been built
+  Int_t i;
+  AliMC* pMC = AliMC::GetMC();
+  //
+  printf("\n");
+  for(i=0;i<35;i++) printf("*");
+  printf(" START_INIT ");
+  for(i=0;i<35;i++) printf("*");
+  printf("\n");
+  //
+  // Here the START initialisation code (if any!)
+  for(i=0;i<80;i++) printf("*");
+  printf("\n");
+ //
+ //
+ fIdSens1=pMC->VolId("PTOP");
+
+}
+
+//---------------------------------------------------------------------------
+void AliSTART::MakeBranch(Option_t* option)
+{
+  
+  // Create Tree branches for the START.
+  Int_t buffersize = 4000;
+  char branchname[10];
+  sprintf(branchname,"%s",GetName());
+
+  AliDetector::MakeBranch(option);
+
+  char *D = strstr(option,"D");
+
+  if (fDigits   && gAlice->TreeD() && D) {
+    gAlice->TreeD()->Branch(branchname,&fDigits, buffersize);
+    printf("Making Branch %s for digits\n",branchname);
+  }
+  
+}    
+ClassImp(AliSTARThit)
+//_____________________________________________________________________________
+AliSTARThit::AliSTARThit(Int_t shunt, Int_t track, Int_t *vol, Float_t *hits):
+  AliHit(shunt, track)
+{
+  //
+  // Add a START hit
+  //
+  
+//  Int_t i;
+  fVolume = vol[0];
+  fPmt=vol[1];
+//printf("fvolume %d\n",fVolume);
+//printf("fpmt %d\n",fPmt);
+
+  fX=hits[0];
+  fY=hits[1];
+  fZ=hits[2];
+  fEdep=hits[3];
+  fEtot=hits[4];
+  fParticle=Int_t (hits[5]);
+  fTime=hits[6];
+
+//for (i=0; i<=6; i++) {printf("Hits up %f\n",hits[i]);} 
+}
+
+// ClassImp(AliSTARTdigit)
diff --git a/START/AliSTART.h b/START/AliSTART.h
new file mode 100755 (executable)
index 0000000..245627d
--- /dev/null
@@ -0,0 +1,52 @@
+#ifndef START_H
+#define START_H
+////////////////////////////////////////////////
+//  Manager and hits classes for set:START     //
+////////////////////////////////////////////////
+#include "AliDetector.h"
+#include "AliHit.h"
+class AliSTART : public AliDetector {
+public:
+  AliSTART();
+  AliSTART(const char *name, const char *title);
+  virtual       ~AliSTART() {}
+  virtual void   AddHit(Int_t, Int_t*, Float_t*);
+  virtual void   BuildGeometry();
+  virtual void   CreateGeometry()=0;
+  virtual void   CreateMaterials()=0; 
+  virtual Int_t  DistanceToPrimitive(Int_t px, Int_t py);
+  virtual Int_t  IsVersion() const =0;
+  virtual void   Init();
+  virtual void   MakeBranch(Option_t *opt=" ");
+  virtual void   DrawDetector()=0;
+  virtual void   StepManager()=0;
+  
+ protected:
+  Int_t fIdSens1;
+  ClassDef(AliSTART,1)  //Class for the START detector
+};
+
+//_____________________________________________________________________________
+class AliSTARThit : public AliHit {
+public:
+  Int_t      fVolume;
+  Int_t      fPmt;
+  Int_t      fParticle;     //Particle identificator
+  Float_t    fEdep;    //Energy deposition
+  Float_t    fEtot;    //Energy of particle 
+  Float_t    fTime;    //Time of flight 
+public:
+  AliSTARThit() {}
+  AliSTARThit(Int_t shunt, Int_t track, Int_t *vol, Float_t *hits);
+  virtual ~AliSTARThit() {}
+  
+  ClassDef(AliSTARThit,1)  //Hits for detector START
+};
+
+#endif
diff --git a/START/AliSTARTv0.cxx b/START/AliSTARTv0.cxx
new file mode 100755 (executable)
index 0000000..a570b2c
--- /dev/null
@@ -0,0 +1,389 @@
+/////////////////////////////////////////////////////////////////////
+//                                                                 //
+// START ( T-zero) detector  version 0                        //
+//
+//Begin Html       
+/*
+<img src="gif/AliSTARTv0Class.gif">
+*/
+//End Html
+//                                                                  //
+//                                                                  //
+//////////////////////////////////////////////////////////////////////
+
+#include <TMath.h>
+#include <TGeometry.h>
+#include <TTUBE.h>
+#include <TNode.h>
+
+#include "AliSTARTv0.h"
+#include "AliRun.h"
+#include "AliMC.h"
+
+#include <iostream.h>
+#include <fstream.h>
+
+//#include "TGeant3.h"
+#include <stdlib.h>
+
+ClassImp(AliSTARTv0)
+
+//--------------------------------------------------------------------
+AliSTARTv0::AliSTARTv0(const char *name, const char *title):
+ AliSTART(name,title)
+{
+  //
+  // Standart constructor for START Detector version 0
+  //
+  fIdSens1=0;
+//  setBufferSize(128000);
+}
+//-------------------------------------------------------------------------
+void AliSTARTv0::CreateGeometry()
+{
+  //
+  // Create the geometry of START Detector version 0
+  //
+  // begin Html
+  /*
+   <img src="gif/AliSTARTv0.gif">
+  */
+  //
+
+
+  Int_t *idtmed = fIdtmed->GetArray()-2099;
+  
+  Int_t is;
+  Int_t idrotm[999];
+  Float_t x,y,z;
+
+  Float_t pstart[3]={4.5,10.7,5.3};
+  //  Float_t pscin[3]={0.,2.54/2.,1.5};
+  Float_t ppmt[3]={0.,1.3,3.5};
+  Float_t pdivider[3]={0.,1.2,1.75};
+  Float_t pdiv2[3]={0.,1.2,1.25};
+  Float_t pdiv1[3]={0.6,1.2,0.5};
+  Float_t ptop[3]={0.,1.3,1.5};
+  Float_t pbot[3]={0.6,1.2,0.1};
+  Float_t pglass[3]={1.2,1.3,2.};
+  Float_t pcer[3]={0.9,1.1,0.09};
+  Float_t psteel[3]={0.9,1.1,0.01};
+  Float_t ppins[3]={0.6,1.2,0.014};
+  Float_t phole[3]={0.6,1.2,0.015};
+  Float_t pknob[3]={0.5,0.6,0.4};
+  Float_t pknob_vac[3]={0.,0.5,0.4};
+  Float_t pknob_bot[3]={0.,0.6,0.05};
+  Float_t pribber[3] = {0.,1.2,2.413/2.};
+  Float_t presist[3] = {0.,1.2,0.087/2.};
+
+  Float_t zdet=75.;
+ //-------------------------------------------------------------------
+ //  START volume 
+ //-------------------------------------------------------------------
+
+    AliMatrix(idrotm[901], 90., 0., 90., 90., 180., 0.);
+    gMC->Gsvolu("STRT","TUBE",idtmed[2101-1],pstart,3);
+    gMC->Gspos("STRT",1,"ALIC",0.,0.,zdet,0,"ONLY");
+    gMC->Gspos("STRT",2,"ALIC",0.,0.,-zdet,idrotm[901],"ONLY");
+
+//START interior
+    //    gMC->Gsvolu("SCIN","TUBE",idtmed[2102-1],pscin,3);
+    gMC->Gsvolu("PMT ","TUBE",idtmed[2103-1],ppmt,3);     
+    gMC->Gsvolu("DIVI","TUBE",idtmed[2103-1],pdivider,3);     
+
+// first ring: 13 units of Scintillator+PMT+divider
+    for (is=1; is<=13; is++)
+    {  
+      x=6.5*TMath::Sin(is*2*3.1415/13);
+      y=6.5*TMath::Cos(is*2*3.1415/13);
+      z=-pstart[2]+ppmt[2];
+      printf(" is %d x %f y %f r%f\n",is,x,y,sqrt(x*x+y*y));
+      //      gMC->Gspos("SCIN",is,"STRT",x,y,z,0,"ONLY");
+      //      z=z+pscin[2]+ppmt[2];
+      gMC->Gspos("PMT ",is,"STRT",x,y,z,0,"ONLY");
+      z=ppmt[2]+pdivider[2];
+      printf(" is %d, z Divider %f\n",is,z);
+      gMC->Gspos("DIVI",is,"STRT",x,y,z,0,"ONLY");
+    }
+//second ring: 20 units of Scintillator+PMT+divider
+    for (is=14; is<=33;is++)  
+    {  
+      x=9.3*TMath::Sin(2.*3.1415/26+(is-13)*2*3.1415/20);
+      y=9.3*TMath::Cos(2.*3.1315/26+(is-13)*2*3.1415/20);
+      z=-pstart[2]+ppmt[2];
+      //      gMC->Gspos("SCIN",is,"STRT",x,y,z,0,"ONLY");
+      //z=z+pscin[2]+ppmt[2];
+      gMC->Gspos("PMT ",is,"STRT",x,y,z,0,"ONLY");
+      z=ppmt[2]+pdiv2[2];
+      gMC->Gspos("DIVI",is,"STRT",x,y,z,0,"ONLY");
+    }
+// PMT
+      
+// Entry window (glass)
+      gMC->Gsvolu("PTOP","TUBE",idtmed[2106-1],ptop,3);
+      z=-ppmt[2]+ptop[2];
+      gMC->Gspos("PTOP",1,"PMT ",0,0,z,0,"ONLY");
+ //     printf("Z PTOP %f -ppmt[2] %f ptop[2] %f\n",z,-ppmt[2],ptop[2]);
+// Bottom glass
+      gMC->Gsvolu("PBOT","TUBE",idtmed[2106-1],pbot,3);
+      z=ppmt[2]-pbot[2];
+      printf("Z bottom %f\n",z);
+      gMC->Gspos("PBOT",1,"PMT ",0,0,z,0,"ONLY");
+// Side cylinder glass
+      gMC->Gsvolu("POUT","TUBE",idtmed[2106-1],pglass,3);
+      z=ppmt[2]-pglass[2];
+//      printf("Z glass %f\n",z);
+      gMC->Gspos("POUT",1,"PMT ",0,0,z,0,"ONLY");
+//PMT electrodes support structure
+      gMC->Gsvolu("PCER","TUBE",idtmed[2104-1],pcer,3);
+      gMC->Gsvolu("PSTE","TUBE",idtmed[2108-1],psteel,3);
+      z=-ppmt[2]+2*ptop[2]+0.3;;
+//      printf("Z Cer 1 %f\n",z);
+      for (is=1; is<=15; is++)
+      {
+         z=z+psteel[2]+pcer[2];
+         gMC->Gspos("PCER",is,"PMT",0,0,z,0,"ONLY");
+         z=z+psteel[2]+pcer[2];
+         gMC->Gspos("PSTE",is,"PMT",0,0,z,0,"ONLY");
+       }
+
+// Divider
+// Knob at the bottom of PMT baloon
+      gMC->Gsvolu("KNOB","TUBE",idtmed[2106-1],pknob,3);
+      z=-pdivider[2]+pknob[2];
+//      printf("zknob %f\n",z);
+      gMC->Gspos("KNOB",1,"DIVI",0,0,z,0,"ONLY");
+      gMC->Gsvolu("KNBO","TUBE",idtmed[2106-1],pknob_bot,3);
+      z=-pdivider[2]+2*pknob[2]+pknob_bot[2];
+//      printf("knobbot %f\n",z);
+      gMC->Gspos("KNBO",1,"DIVI ",0,0,z,0,"ONLY");
+      gMC->Gsvolu("KNVA","TUBE",idtmed[2106-1],pknob_vac,3);
+      z=-pdivider[2]+pknob_vac[2];
+//      printf("knobvac %f\n",z);
+      gMC->Gspos("KNVA",1,"DIVI",0,0,z,0,"ONLY");
+ //Steel pins + pin holes
+      gMC->Gsvolu("PINS","TUBE",idtmed[2108-1],ppins,3);
+      z=-pdivider[2]+ppins[2];
+      gMC->Gspos("PINS",1,"DIVI",0,0,z,0,"ONLY");
+      gMC->Gsvolu("HOLE","TUBE",idtmed[2111-1],phole,3);
+      z=-pdivider[2]+2*ppins[2]+phole[2];
+      gMC->Gspos("HOLE",1,"DIVI",0,0,z,0,"ONLY");
+
+//Socket
+      gMC->Gsvolu("DIV1","TUBE",idtmed[2104-1],pdiv1,3);
+      z=-pdivider[2]+pdiv1[2];
+      gMC->Gspos("DIV1",1,"DIVI",0,0,z,0,"ONLY");
+//Resistors
+      gMC->Gsvolu("DIV2","TUBE",idtmed[2101-1],pdiv2,3);
+      z=pdivider[2]-pdiv2[2];
+      gMC->Gspos("DIV2",1,"DIVI",0,0,z,0,"ONLY");
+      gMC->Gsvolu("DRES","TUBE",idtmed[2104-1],presist,3);
+      z=-pdiv2[2]+presist[2];
+      gMC->Gspos("DRES",1,"DIV2",0,0,z,0,"ONLY");
+      gMC->Gsvolu("DRIB","TUBE",idtmed[2109-1],pribber,3);
+      z=pdiv2[2]-pribber[2];
+      gMC->Gspos("DRIB",1,"DIV2",0,0,z,0,"ONLY");
+//      printf("z DRIB %f\n",z);
+
+}    
+//------------------------------------------------------------------------
+void AliSTARTv0::CreateMaterials()
+{
+   Int_t ISXFLD   = gAlice->Field()->Integ();
+   Float_t SXMGMX = gAlice->Field()->Max();
+   Float_t a,z,d,radl,absl,buf[1];
+   Int_t nbuf;
+
+// Scintillator CH
+   //    Float_t ascin[2]={1.01,12.01};
+   // Float_t zscin[2]={1,6};
+   // Float_t wscin[2]={1,1};
+   // Float_t denscin=1.03;
+// PMT glass SiO2
+    Float_t aglass[2]={28.0855,15.9994};
+    Float_t zglass[2]={14.,8.};
+    Float_t wglass[2]={1.,2.};
+    Float_t dglass=2.65;
+// Ceramic   97.2% Al2O3 , 2.8% SiO2
+    Float_t acer[2],zcer[2],wcer[2]={0.972,0.028};
+    Float_t aal2o3[2]  = { 26.981539,15.9994 };
+    Float_t zal2o3[2]  = { 13.,8. };
+    Float_t wal2o3[2]  = { 2.,3. };
+    Float_t denscer  = 3.6;
+
+// Brass 80% Cu, 20% Zn
+   Float_t abrass[2] = {63.546,65.39};
+   Float_t zbrass[2] = {29,30};
+   Float_t wbrass[2] = {0.8,0.2};
+   Float_t denbrass=8.96;
+
+//Ribber C6H12S
+   Float_t aribber[3] = {12.,1.,32.};
+   Float_t zribber[3] = {6.,1.,16.};
+   Float_t wribber[3] = {6.,12.,1.};
+   Float_t denribber=0.8;
+   
+//   AliMC* gMC = AliMC::GetMC();
+
+ //  Int_t *idtmed = gAlice->Idtmed();
+ //  Int_t imat;
+
+//*** Definition Of avaible START materials ***
+ AliMaterial(0, "START Steel$", 55.850,26.,7.87,1.76,999);
+ AliMaterial(1, "START Vacuum$", 1.e-16,1.e-16,1.e-16,1.e16,999);
+ AliMaterial(2, "START Air$", 14.61, 7.3, .001205, 30423.,999); 
+
+ AliMixture( 3, "Al2O3   $", aal2o3, zal2o3, denscer, -2, wcer);
+ AliMixture( 4, "PMT glass   $",aglass,zglass,dglass,-2,wglass);
+  char namate[21];
+  gMC->Gfmate((*fIdmate)[3], namate, a, z, d, radl, absl, buf, nbuf);
+  acer[0]=a;
+  zcer[0]=z;
+  gMC->Gfmate((*fIdmate)[4], namate, a, z, d, radl, absl, buf, nbuf);
+  acer[1]=a;
+  zcer[1]=z;
+  
+ AliMixture( 9, "Ceramic    $", acer, zcer, denscer, 2, wcer);
+ // AliMixture( 5, "Scintillator$",ascin,zscin,denscin,-2,wscin);
+ AliMixture( 6, "Brass    $", abrass, zbrass, denbrass, 2, wbrass);
+
+ AliMixture( 7, "Ribber $",aribber,zribber,denribber,-3,wribber);
+
+//**
+ AliMedium(1, "START Air$", 2, 0, ISXFLD, SXMGMX, 10., .1, 1., .003, .003);
+ // AliMedium(2102, "Scintillator$", 5, 1, ISXFLD, SXMGMX, 10., .01, 1., .003, .003);
+ AliMedium(3, "Vacuum$", 1, 0, ISXFLD, SXMGMX, 10., .01, .1, .003, .003);
+ AliMedium(4, "Ceramic$", 9, 0, ISXFLD, SXMGMX, 10., .01, .1, .003, .003);
+ AliMedium(6, "Glass$", 4, 0, ISXFLD, SXMGMX, 10., .01, .1, .003, .003);
+ AliMedium(8, "Steel$", 0, 0, ISXFLD, SXMGMX, 1., .001, 1., .001, .001);
+ AliMedium(11, "Brass  $", 6, 0, ISXFLD, SXMGMX, 10., .01, .1, .003, .003);
+ AliMedium(9, "Ribber  $", 7, 0, ISXFLD, SXMGMX, 10., .01, .1, .003, .003);
+
+
+}
+//---------------------------------------------------------------------
+void AliSTARTv0::DrawDetector()
+{
+//
+// Draw a shaded view of the Forward multiplicity detector version 0
+//
+
+AliMC* gMC = AliMC::GetMC();
+
+//Set ALIC mother transparent
+gMC->Gsatt("ALIC","SEEN",0);
+//
+//Set volumes visible
+gMC->Gsatt("STRT","SEEN",0);
+//gMC->Gsatt("SCIN","SEEN",1);
+gMC->Gsatt("PMT ","SEEN",1);
+gMC->Gsatt("DIVI","SEEN",1);
+//
+gMC->Gdopt("hide","on");
+gMC->Gdopt("shad","on");
+gMC->SetClipBox(".");
+gMC->SetClipBox("*",0,1000,-1000,1000,-1000,1000);
+gMC->DefaultRange();
+gMC->Gdraw("alic",40,30,0,12,9.5,.2,0.2);
+gMC->Gdhead(1111,"T-Zero detector");
+gMC->Gdopt("hide","off");
+}
+//-------------------------------------------------------------------
+void AliSTARTv0::Init()
+{
+// Initialises version 0 of the Forward Multiplicity Detector
+//
+AliMC* gMC=AliMC::GetMC();
+//Int_t *idtmed  = gAlice->Idtmed();
+AliSTART::Init();
+fIdSens1=gMC->VolId("PTOP");
+printf("*** START version 0 initialized ***\n");
+}
+
+//-------------------------------------------------------------------
+
+void AliSTARTv0::StepManager()
+{
+  //
+  // Called for every step in the START Detector
+  //
+  Int_t id,copy,copy1;
+  static Float_t hits[7];
+  static Float_t edep;
+  static Int_t vol[2];
+ TLorentzVector pos;
+
+  TClonesArray &lhits = *fHits;
+  //AliMC* gMC=AliMC::GetMC();
+  //  TGeant3* geant3= (TGeant3*)gMC; 
+  
+  if(!gMC->IsTrackAlive()) return; // particle has disappeared
+  Float_t charge = gMC->TrackCharge();
+  if(TMath::Abs(charge)<=0.) return; //take only charged particles
+ //    gMC->Gpcxyz();
+    id=gMC->CurrentVolID(copy);
+
+//  printf("igauto %d\n",gMC->ctrak->igauto);
+//  printf("gMC->ckine->ipart %d",gMC->ckine->ipart);
+// Check the sensetive volume
+   if(id==fIdSens1 )
+   {
+     if(gMC->IsTrackEntering())
+     {
+       gMC->CurrentVolOffID(2,copy);
+       vol[0]=copy;
+       gMC->CurrentVolOffID(1,copy1);
+       vol[1]=copy1;
+       gMC->TrackPosition(pos);
+       hits[0] = pos[0];
+       hits[1] = pos[1];
+       hits[2] = pos[2];
+       Float_t etot=gMC->Etot();
+       hits[4]=etot;
+       Int_t part= gMC->TrackPid();
+       hits[5]=part;
+       Float_t ttime=gMC->TrackTime();
+       hits[6]=ttime*1e9;
+       edep=0;
+       //       Float_t xV=geant3->Gckine()->vert[0];
+       //Float_t yV=geant3->Gckine()->vert[1];
+       //Float_t zV=geant3->Gckine()->vert[2];
+       //Float_t tl=gMC -> TrackLength();
+       //      if(hits[6]<2.4){     
+       //          for (i=0; i<=6; i++){
+       //          printf(" HITS on START entr %f\n",hits[i]);} 
+       //}
+     }
+     if(gMC->IsTrackInside())
+     {
+       Float_t de=gMC->Edep(); 
+       edep=edep+de;
+//       printf ("E deposition %f\n",edep);
+//    for (i=0; i<=6; i++){
+//    printf(" HITS on START inside %f\n",hits[i]); } 
+     }
+     if(gMC->IsTrackExiting())
+    {
+       Float_t de=gMC->Edep(); 
+       edep=edep+de;
+       hits[3]=edep*1e3;
+       //       for (i=0; i<=6; i++){
+       //       printf(" HITS on START Exit %f\n",hits[i]); } 
+       //for (i=0; i<=1; i++) { printf("START vol %d\n",vol[i]);}
+    
+    new(lhits[fNhits++]) AliSTARThit(fIshunt,gAlice->CurrentTrack(),vol,hits);      }
+    }
+//---------------------------------------------------------------------
+    }
+ //}
+
+
+
+
+
+
diff --git a/START/AliSTARTv0.h b/START/AliSTARTv0.h
new file mode 100755 (executable)
index 0000000..6ac0604
--- /dev/null
@@ -0,0 +1,30 @@
+#ifndef STARTV0_H
+#define STARTV0_H
+////////////////////////////////////////////////
+//  Manager and hits classes for set:START     //
+////////////////////////////////////////////////
+#include "AliSTART.h"
+class AliSTARTv0 : public AliSTART {
+  
+public:
+  AliSTARTv0() {};
+  AliSTARTv0(const char *name, const char *title);
+  virtual       ~AliSTARTv0() {}
+  virtual void   CreateGeometry();
+  virtual void   CreateMaterials();
+  virtual void   DrawDetector();
+  virtual void   Init();
+  virtual Int_t  IsVersion() const {return 0;}
+  virtual void   StepManager();
+  
+protected:
+   Int_t fIdSens1; // Sensetive volume  in START
+  ClassDef(AliSTARTv0,1)  //Class for START version 0
+};
+
+#endif
+
+
diff --git a/START/AliSTARTv1.cxx b/START/AliSTARTv1.cxx
new file mode 100755 (executable)
index 0000000..3aa64c4
--- /dev/null
@@ -0,0 +1,393 @@
+/////////////////////////////////////////////////////////////////////
+//                                                                 //
+// START ( T-zero) detector  version 0                        //
+//
+//Begin Html       
+/*
+<img src="gif/AliSTARTv0Class.gif">
+*/
+//End Html
+//                                                                  //
+//                                                                  //
+//////////////////////////////////////////////////////////////////////
+
+#include <TMath.h>
+#include <TGeometry.h>
+#include <TTUBE.h>
+#include <TNode.h>
+
+#include "AliSTARTv0.h"
+#include "AliRun.h"
+#include "AliMC.h"
+
+#include <iostream.h>
+#include <fstream.h>
+
+#include "TGeant3.h"
+#include <stdlib.h>
+
+ClassImp(AliSTARTv0)
+
+//--------------------------------------------------------------------
+AliSTARTv1::AliSTARTv1(const char *name, const char *title):
+ AliSTART(name,title)
+{
+  //
+  // Standart constructor for START Detector version 0
+  //
+  fIdSens1=0;
+//  setBufferSize(128000);
+}
+//-------------------------------------------------------------------------
+void AliSTARTv1::CreateGeometry()
+{
+  //
+  // Create the geometry of START Detector version 0
+  //
+  // begin Html
+  /*
+   <img src="gif/AliSTARTv0.gif">
+  */
+  //
+
+  AliMC* pMC = AliMC::GetMC();
+
+  Int_t *idtmed = gAlice->Idtmed();
+  
+  Int_t is;
+  Int_t idrotm[999];
+  Float_t x,y,z;
+
+  Float_t pstart[3]={5.,10.2,5.3};
+  //  Float_t pscin[3]={0.,2.54/2.,1.5};
+  Float_t ppmt[3]={0.,1.3,3.5};
+  Float_t pdivider[3]={0.,1.2,1.75};
+  Float_t pdiv2[3]={0.,1.2,1.25};
+  Float_t pdiv1[3]={0.6,1.2,0.5};
+  Float_t ptop[3]={0.,1.3,1.5};
+  Float_t pbot[3]={0.6,1.2,0.1};
+  Float_t pglass[3]={1.2,1.3,2.};
+  Float_t pcer[3]={0.9,1.1,0.09};
+  Float_t psteel[3]={0.9,1.1,0.01};
+  Float_t ppins[3]={0.6,1.2,0.014};
+  Float_t phole[3]={0.6,1.2,0.015};
+  Float_t pknob[3]={0.5,0.6,0.4};
+  Float_t pknob_vac[3]={0.,0.5,0.4};
+  Float_t pknob_bot[3]={0.,0.6,0.05};
+  Float_t pribber[3] = {0.,1.2,2.413/2.};
+  Float_t presist[3] = {0.,1.2,0.087/2.};
+
+  Float_t zdet=75.;
+ //-------------------------------------------------------------------
+ //  START volume 
+ //-------------------------------------------------------------------
+
+    AliMatrix(idrotm[901], 90., 0., 90., 90., 180., 0.);
+    pMC->Gsvolu("STRT","TUBE",idtmed[2101-1],pstart,3);
+    pMC->Gspos("STRT",1,"ALIC",0.,0.,zdet,0,"ONLY");
+    pMC->Gspos("STRT",2,"ALIC",0.,0.,-zdet,idrotm[901],"ONLY");
+
+//START interior
+    //    pMC->Gsvolu("SCIN","TUBE",idtmed[2102-1],pscin,3);
+    pMC->Gsvolu("PMT ","TUBE",idtmed[2103-1],ppmt,3);     
+    pMC->Gsvolu("DIVI","TUBE",idtmed[2103-1],pdivider,3);     
+
+// first ring: 13 units of Scintillator+PMT+divider
+    for (is=1; is<=13; is++)
+    {  
+      x=6*TMath::Sin(is*2*3.1415/13);
+      y=6*TMath::Cos(is*2*3.1415/13);
+      z=-pstart[2]+ppmt[2];
+      printf(" is %d, z PMT %f\n",is,z);
+      //      pMC->Gspos("SCIN",is,"STRT",x,y,z,0,"ONLY");
+      //      z=z+pscin[2]+ppmt[2];
+      pMC->Gspos("PMT ",is,"STRT",x,y,z,0,"ONLY");
+      z=ppmt[2]+pdivider[2];
+      printf(" is %d, z Divider %f\n",is,z);
+      pMC->Gspos("DIVI",is,"STRT",x,y,z,0,"ONLY");
+    }
+//second ring: 20 units of Scintillator+PMT+divider
+    for (is=14; is<=33;is++)  
+    {  
+      x=8.8*TMath::Sin(2.*3.1415/26+(is-13)*2*3.1415/20);
+      y=8.8*TMath::Cos(2.*3.1315/26+(is-13)*2*3.1415/20);
+      z=-pstart[2]+ppmt[2];
+      //      pMC->Gspos("SCIN",is,"STRT",x,y,z,0,"ONLY");
+      //z=z+pscin[2]+ppmt[2];
+      pMC->Gspos("PMT ",is,"STRT",x,y,z,0,"ONLY");
+      z=ppmt[2]+pdiv2[2];
+      pMC->Gspos("DIVI",is,"STRT",x,y,z,0,"ONLY");
+    }
+// PMT
+      
+// Entry window (glass)
+      pMC->Gsvolu("PTOP","TUBE",idtmed[2106-1],ptop,3);
+      z=-ppmt[2]+ptop[2];
+      pMC->Gspos("PTOP",1,"PMT ",0,0,z,0,"ONLY");
+      printf("Z PTOP %f -ppmt[2] %f ptop[2] %f\n",z,-ppmt[2],ptop[2]);
+// Bottom glass
+      pMC->Gsvolu("PBOT","TUBE",idtmed[2106-1],pbot,3);
+      z=ppmt[2]-pbot[2];
+      printf("Z bottom %f\n",z);
+      pMC->Gspos("PBOT",1,"PMT ",0,0,z,0,"ONLY");
+// Side cylinder glass
+      pMC->Gsvolu("POUT","TUBE",idtmed[2106-1],pglass,3);
+      z=ppmt[2]-pglass[2];
+      printf("Z glass %f\n",z);
+      pMC->Gspos("POUT",1,"PMT ",0,0,z,0,"ONLY");
+//PMT electrodes support structure
+      pMC->Gsvolu("PCER","TUBE",idtmed[2104-1],pcer,3);
+      pMC->Gsvolu("PSTE","TUBE",idtmed[2108-1],psteel,3);
+      z=-ppmt[2]+2*ptop[2]+0.3;;
+      printf("Z Cer 1 %f\n",z);
+      for (is=1; is<=15; is++)
+      {
+         z=z+psteel[2]+pcer[2];
+         pMC->Gspos("PCER",is,"PMT",0,0,z,0,"ONLY");
+         z=z+psteel[2]+pcer[2];
+         pMC->Gspos("PSTE",is,"PMT",0,0,z,0,"ONLY");
+       }
+
+// Divider
+// Knob at the bottom of PMT baloon
+      pMC->Gsvolu("KNOB","TUBE",idtmed[2106-1],pknob,3);
+      z=-pdivider[2]+pknob[2];
+//      printf("zknob %f\n",z);
+      pMC->Gspos("KNOB",1,"DIVI",0,0,z,0,"ONLY");
+      pMC->Gsvolu("KNBO","TUBE",idtmed[2106-1],pknob_bot,3);
+      z=-pdivider[2]+2*pknob[2]+pknob_bot[2];
+//      printf("knobbot %f\n",z);
+      pMC->Gspos("KNBO",1,"DIVI ",0,0,z,0,"ONLY");
+      pMC->Gsvolu("KNVA","TUBE",idtmed[2106-1],pknob_vac,3);
+      z=-pdivider[2]+pknob_vac[2];
+//      printf("knobvac %f\n",z);
+      pMC->Gspos("KNVA",1,"DIVI",0,0,z,0,"ONLY");
+ //Steel pins + pin holes
+      pMC->Gsvolu("PINS","TUBE",idtmed[2108-1],ppins,3);
+      z=-pdivider[2]+ppins[2];
+      pMC->Gspos("PINS",1,"DIVI",0,0,z,0,"ONLY");
+      pMC->Gsvolu("HOLE","TUBE",idtmed[2111-1],phole,3);
+      z=-pdivider[2]+2*ppins[2]+phole[2];
+      pMC->Gspos("HOLE",1,"DIVI",0,0,z,0,"ONLY");
+
+//Socket
+      pMC->Gsvolu("DIV1","TUBE",idtmed[2104-1],pdiv1,3);
+      z=-pdivider[2]+pdiv1[2];
+      pMC->Gspos("DIV1",1,"DIVI",0,0,z,0,"ONLY");
+//Resistors
+      pMC->Gsvolu("DIV2","TUBE",idtmed[2101-1],pdiv2,3);
+      z=pdivider[2]-pdiv2[2];
+      pMC->Gspos("DIV2",1,"DIVI",0,0,z,0,"ONLY");
+      pMC->Gsvolu("DRES","TUBE",idtmed[2104-1],presist,3);
+      z=-pdiv2[2]+presist[2];
+      pMC->Gspos("DRES",1,"DIV2",0,0,z,0,"ONLY");
+      pMC->Gsvolu("DRIB","TUBE",idtmed[2109-1],pribber,3);
+      z=pdiv2[2]-pribber[2];
+      pMC->Gspos("DRIB",1,"DIV2",0,0,z,0,"ONLY");
+      printf("z DRIB %f\n",z);
+
+}    
+//------------------------------------------------------------------------
+void AliSTARTv1::CreateMaterials()
+{
+   Int_t ISXFLD   = gAlice->Field()->Integ();
+   Float_t SXMGMX = gAlice->Field()->Max();
+   Float_t a,z,d,radl,absl,buf[1];
+   Int_t nbuf;
+
+// Scintillator CH
+   //    Float_t ascin[2]={1.01,12.01};
+   // Float_t zscin[2]={1,6};
+   // Float_t wscin[2]={1,1};
+   // Float_t denscin=1.03;
+// PMT glass SiO2
+    Float_t aglass[2]={28.0855,15.9994};
+    Float_t zglass[2]={14.,8.};
+    Float_t wglass[2]={1.,2.};
+    Float_t dglass=2.65;
+// Ceramic   97.2% Al2O3 , 2.8% SiO2
+    Float_t acer[2],zcer[2],wcer[2]={0.972,0.028};
+    Float_t aal2o3[2]  = { 26.981539,15.9994 };
+    Float_t zal2o3[2]  = { 13.,8. };
+    Float_t wal2o3[2]  = { 2.,3. };
+    Float_t denscer  = 3.6;
+
+// Brass 80% Cu, 20% Zn
+   Float_t abrass[2] = {63.546,65.39};
+   Float_t zbrass[2] = {29,30};
+   Float_t wbrass[2] = {0.8,0.2};
+   Float_t denbrass=8.96;
+
+//Ribber C6H12S
+   Float_t aribber[3] = {12.,1.,32.};
+   Float_t zribber[3] = {6.,1.,16.};
+   Float_t wribber[3] = {6.,12.,1.};
+   Float_t denribber=0.8;
+   
+   AliMC* pMC = AliMC::GetMC();
+
+   Int_t *idtmed = gAlice->Idtmed();
+   Int_t imat;
+
+//*** Definition Of avaible START materials ***
+ AliMaterial(0, "START Steel$", 55.850,26.,7.87,1.76,999);
+ AliMaterial(1, "START Vacuum$", 1.e-16,1.e-16,1.e-16,1.e16,999);
+ AliMaterial(2, "START Air$", 14.61, 7.3, .001205, 30423.,999); 
+
+ AliMixture( 3, "Al2O3   $", aal2o3, zal2o3, denscer, -2, wcer);
+ AliMixture( 4, "PMT glass   $",aglass,zglass,dglass,-2,wglass);
+  char namate[21];
+  pMC->Gfmate((*fIdmate)[3], namate, a, z, d, radl, absl, buf, nbuf);
+  acer[0]=a;
+  zcer[0]=z;
+  pMC->Gfmate((*fIdmate)[4], namate, a, z, d, radl, absl, buf, nbuf);
+  acer[1]=a;
+  zcer[1]=z;
+  
+ AliMixture( 9, "Ceramic    $", acer, zcer, denscer, 2, wcer);
+ // AliMixture( 5, "Scintillator$",ascin,zscin,denscin,-2,wscin);
+ AliMixture( 6, "Brass    $", abrass, zbrass, denbrass, 2, wbrass);
+
+ AliMixture( 7, "Ribber $",aribber,zribber,denribber,-3,wribber);
+
+//**
+ AliMedium(2101, "START Air$", 2, 0, ISXFLD, SXMGMX, 10., .1, 1., .003, .003);
+ // AliMedium(2102, "Scintillator$", 5, 1, ISXFLD, SXMGMX, 10., .01, 1., .003, .003);
+ AliMedium(2103, "Vacuum$", 1, 0, ISXFLD, SXMGMX, 10., .01, .1, .003, .003);
+ AliMedium(2104, "Ceramic$", 9, 0, ISXFLD, SXMGMX, 10., .01, .1, .003, .003);
+ AliMedium(2106, "Glass$", 4, 0, ISXFLD, SXMGMX, 10., .01, .1, .003, .003);
+ AliMedium(2108, "Steel$", 0, 0, ISXFLD, SXMGMX, 1., .001, 1., .001, .001);
+ AliMedium(2111, "Brass  $", 6, 0, ISXFLD, SXMGMX, 10., .01, .1, .003, .003);
+ AliMedium(2109, "Ribber  $", 7, 0, ISXFLD, SXMGMX, 10., .01, .1, .003, .003);
+
+
+}
+//---------------------------------------------------------------------
+void AliSTARTv1::DrawDetector()
+{
+//
+// Draw a shaded view of the Forward multiplicity detector version 0
+//
+
+AliMC* pMC = AliMC::GetMC();
+
+//Set ALIC mother transparent
+pMC->Gsatt("ALIC","SEEN",0);
+//
+//Set volumes visible
+pMC->Gsatt("STRT","SEEN",0);
+//pMC->Gsatt("SCIN","SEEN",1);
+pMC->Gsatt("PMT ","SEEN",1);
+pMC->Gsatt("DIVI","SEEN",1);
+//
+pMC->Gdopt("hide","on");
+pMC->Gdopt("shad","on");
+pMC->SetClipBox(".");
+pMC->SetClipBox("*",0,1000,-1000,1000,-1000,1000);
+pMC->DefaultRange();
+pMC->Gdraw("alic",40,30,0,12,9.5,.2,0.2);
+pMC->Gdhead(1111,"T-Zero detector");
+pMC->Gdopt("hide","off");
+}
+//-------------------------------------------------------------------
+void AliSTARTv1::Init()
+{
+// Initialises version 0 of the Forward Multiplicity Detector
+//
+AliMC* pMC=AliMC::GetMC();
+//Int_t *idtmed  = gAlice->Idtmed();
+AliSTART::Init();
+fIdSens1=pMC->VolId("PTOP");
+printf("*** START version 0 initialized ***\n");
+}
+
+//-------------------------------------------------------------------
+
+void AliSTARTv1::StepManager()
+{
+  //
+  // Called for every step in the START Detector
+  //
+  Int_t id,copy,copy1,i;
+  static Float_t hits[7];
+  static Float_t edep;
+  static Int_t vol[2];
+
+  TClonesArray &lhits = *fHits;
+  AliMC* pMC=AliMC::GetMC();
+  TGeant3* geant3= (TGeant3*)pMC; 
+  
+  if(!pMC->TrackAlive()) return; // particle has disappeared
+  Float_t charge = pMC->TrackCharge();
+  if(TMath::Abs(charge)<=0.) return; //take only charged particles
+  //    geant3->Gpcxyz();
+    id=pMC->CurrentVol(0,copy);
+
+//  printf("igauto %d\n",pMC->ctrak->igauto);
+//  printf("pMC->ckine->ipart %d",pMC->ckine->ipart);
+// Check the sensetive volume
+   if(id==fIdSens1 )
+   {
+     if(pMC->TrackEntering())
+     {
+       pMC->CurrentVolOff(2,0,copy);
+       vol[0]=copy;
+       pMC->CurrentVolOff(1,0,copy1);
+       vol[1]=copy1;
+       pMC->TrackPosition(hits);
+       Float_t etot=pMC->Etot();
+//    printf("pMC->ctrak->ekin %f\n",pMC->ctrak->Ekin);
+       hits[4]=etot;
+       Int_t part= pMC->TrackPid();
+       hits[5]=part;
+       Float_t ttime=geant3->Gctrak()->tofg;
+       hits[6]=ttime*1e9;
+       edep=0;
+       //       Float_t xV=geant3->Gckine()->vert[0];
+       //Float_t yV=geant3->Gckine()->vert[1];
+       //Float_t zV=geant3->Gckine()->vert[2];
+       //Float_t tl=pMC -> TrackLength();
+       //      if(hits[6]<2.4){     
+       //          for (i=0; i<=6; i++){
+       //          printf(" HITS on START entr %f\n",hits[i]);} 
+       //}
+     }
+     if(pMC->TrackInside())
+     {
+       Float_t de=pMC->Edep(); 
+       edep=edep+de;
+//       printf ("E deposition %f\n",edep);
+//    for (i=0; i<=6; i++){
+//    printf(" HITS on START inside %f\n",hits[i]); } 
+     }
+     if(pMC->TrackExiting())
+    {
+       Float_t de=pMC->Edep(); 
+       edep=edep+de;
+       hits[3]=edep*1e3;
+       //       for (i=0; i<=6; i++){
+       //       printf(" HITS on START Exit %f\n",hits[i]); } 
+       //for (i=0; i<=1; i++) { printf("START vol %d\n",vol[i]);}
+    
+    new(lhits[fNhits++]) AliSTARThit(fIshunt,gAlice->CurrentTrack(),vol,hits);      }
+    }
+//---------------------------------------------------------------------
+    }
+ //}
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/START/DrawSTART.C b/START/DrawSTART.C
new file mode 100755 (executable)
index 0000000..d52e37d
--- /dev/null
@@ -0,0 +1,15 @@
+//void DrawSTART()
+{
+   geant3->Gsatt("*", "seen", -1);
+   geant3->Gsatt("alic", "seen", 0);
+   gROOT->Macro("ViewSTART.C");
+   geant3->Gdopt("hide", "on");
+   geant3->Gdopt("shad", "on");
+   geant3->Gsatt("*", "fill", 7);
+   geant3->SetClipBox(".");
+   geant3->SetClipBox("*", 0, 1000, -1000, 1000, -1000, 1000);
+   geant3->DefaultRange();
+   geant3->Gdraw("alic", 40, 30, 0, 6, 9, .08, .08);
+   geant3->Gdhead(1111, "START Detector");
+   geant3->Gdman(13, 9, "MAN");
+}
diff --git a/START/Makefile b/START/Makefile
new file mode 100644 (file)
index 0000000..8d726f9
--- /dev/null
@@ -0,0 +1,77 @@
+###############################START Makefile##################################
+
+# Include machine specific definitions
+
+include $(ALICE_ROOT)/conf/GeneralDef
+include $(ALICE_ROOT)/conf/MachineDef.$(ALICE_TARGET)
+
+PACKAGE = START
+
+# C++ sources
+
+SRCS          = AliSTART.cxx AliSTARTv0.cxx
+
+# C++ Headers
+
+HDRS          = $(SRCS:.cxx=.h) STARTLinkDef.h
+
+# Library dictionary
+
+DICT          = STARTCint.cxx
+DICTH         = $(DICT:.cxx=.h)
+DICTO         = $(patsubst %.cxx,tgt_$(ALICE_TARGET)/%.o,$(DICT))
+
+# FORTRAN Objectrs
+
+FOBJS         = $(patsubst %.F,tgt_$(ALICE_TARGET)/%.o,$(FSRCS))
+
+# C Objects
+
+COBJS         = $(patsubst %.c,tgt_$(ALICE_TARGET)/%.o,$(CSRCS))
+
+# C++ Objects
+
+OBJS          = $(patsubst %.cxx,tgt_$(ALICE_TARGET)/%.o,$(SRCS)) $(DICTO)
+
+# C++ compilation flags
+
+CXXFLAGS      = $(CXXOPTS) -I$(ROOTSYS)/include -I. -I$(ALICE_ROOT)/include/
+# FORTRAN compilation flags
+
+FFLAGS      = $(FOPT)
+
+##### TARGETS #####
+# Target
+
+SLIBRARY       = $(LIBDIR)/libSTART.$(SL)
+ALIBRARY       = $(LIBDIR)/libSTART.a
+
+default:       $(SLIBRARY)
+
+$(LIBDIR)/libSTART.$(SL):      $(OBJS)
+
+$(DICT):                       $(HDRS)
+
+depend:                                $(SRCS)
+
+TOCLEAN                 = $(OBJS) *Cint.cxx *Cint.h
+
+############################### General Macros ################################
+
+include $(ALICE_ROOT)/conf/GeneralMacros
+
+############################ Dependencies #####################################
+
+-include tgt_$(ALICE_TARGET)/Make-depend 
+
+### Target check creates violation reports (.viol), which depend on
+### stripped files (.ii), which in turn depend on preprocessed
+### files (.i). Dependences are in conf/GeneralDef.
+
+CHECKS        = $(patsubst %.cxx,check/%.viol,$(SRCS))
+
+check:          $(CHECKS)
+
diff --git a/START/STARTLinkDef.h b/START/STARTLinkDef.h
new file mode 100755 (executable)
index 0000000..cb56c2b
--- /dev/null
@@ -0,0 +1,11 @@
+#ifdef __CINT__
+#pragma link off all globals;
+#pragma link off all classes;
+#pragma link off all functions;
+#pragma link C++ class  AliSTART;
+#pragma link C++ class  AliSTARTv0;
+#pragma link C++ class  AliSTARThit;
+
+#endif
diff --git a/START/ViewSTART.C b/START/ViewSTART.C
new file mode 100755 (executable)
index 0000000..45ec63c
--- /dev/null
@@ -0,0 +1,9 @@
+//void ViewSTART()
+{
+   geant3->Gsatt("STRT","seen",0);
+   geant3->Gsatt("SCIN","seen",1);
+   geant3->Gsatt("PMT ","seen",1);
+   geant3->Gsatt("DIVI","seen",1);
+}
+
+