X-Git-Url: http://git.uio.no/git/?p=u%2Fmrichter%2FAliRoot.git;a=blobdiff_plain;f=TGeant3%2FTGeant3.cxx;h=6397d405e07238574607c5aa2816c66e71598ae6;hp=40a99ad9bde67a8bf6bf551d900418df116d66b2;hb=9e7a32d1b3bd7203991d2263823c7e7ccfa25375;hpb=f0c348696ea4961e5049349d7e76d68e2272bc80

diff --git a/TGeant3/TGeant3.cxx b/TGeant3/TGeant3.cxx
index 40a99ad9bde..6397d405e07 100644
--- a/TGeant3/TGeant3.cxx
+++ b/TGeant3/TGeant3.cxx
@@ -15,6 +15,9 @@
 
 /*
 $Log$
+Revision 1.20  2000/01/12 11:29:27  fca
+Close material file
+
 Revision 1.19  1999/12/17 09:03:12  fca
 Introduce a names array
 
@@ -550,6 +553,7 @@ void TGeant3::LoadAddress()
   gcomad(PASSCHARD("GCBANK"),(int*&) fGcbank  PASSCHARL("GCBANK"));
   gcomad(PASSCHARD("GCLINK"),(int*&) fGclink  PASSCHARL("GCLINK"));
   gcomad(PASSCHARD("GCCUTS"),(int*&) fGccuts  PASSCHARL("GCCUTS"));
+  gcomad(PASSCHARD("GCMULO"),(int*&) fGcmulo  PASSCHARL("GCMULO"));
   gcomad(PASSCHARD("GCFLAG"),(int*&) fGcflag  PASSCHARL("GCFLAG"));
   gcomad(PASSCHARD("GCKINE"),(int*&) fGckine  PASSCHARL("GCKINE"));
   gcomad(PASSCHARD("GCKING"),(int*&) fGcking  PASSCHARL("GCKING"));
@@ -3179,6 +3183,20 @@ void TGeant3::SetDRAY(Int_t par)
   fGcphys->idray = par;
 }
  
+//_____________________________________________________________________________
+void TGeant3::SetERAN(Float_t ekmin, Float_t ekmax, Int_t nekbin)
+{
+  //
+  //  To control cross section tabulations
+  //   ekmin = minimum kinetic energy in GeV
+  //   ekmax = maximum kinetic energy in GeV
+  //   nekbin = number of logatithmic bins (<200)
+  //  
+  fGcmulo->ekmin = ekmin;
+  fGcmulo->ekmax = ekmax;
+  fGcmulo->nekbin = nekbin;
+}
+ 
 //_____________________________________________________________________________
 void TGeant3::SetHADR(Int_t par)
 {