Import Geant4 0.0.0 source tree

2016-06-01 15:25:35 +02:00
parent 54d6b71f95
commit b97f8d0df7
3237 changed files with 807095 additions and 0 deletions
@@ -0,0 +1,122 @@
+// This code implementation is the intellectual property of
+// the RD44 GEANT4 collaboration.
+//
+// By copying, distributing or modifying the Program (or any work
+// based on the Program) you indicate your acceptance of this statement,
+// and all its terms.
+//
+// $Id: G4EnergyRangeManager.cc,v 2.3 1998/07/13 17:38:15 fjones Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+ // Hadronic Process: Energy Range Manager
+ // original by H.P. Wellisch
+ // modified by J.L. Chuma, TRIUMF, 22-Nov-1996
+ // Last modified: 24-Mar-1997
+ // fix in the counter-hndling: H.P. Wellisch 04-Apr-97
+ // throw an exception if no model found:  J.L. Chuma  04-Apr-97
+ 
+#include "G4EnergyRangeManager.hh"
+#include "Randomize.hh"
+ 
+ G4EnergyRangeManager::G4EnergyRangeManager(
+  const G4EnergyRangeManager &right )
+  {
+    if( this != &right )
+    {
+      for( G4int i=0; i<theHadronicInteractionCounter; ++i )
+        theHadronicInteraction[i] = right.theHadronicInteraction[i];
+      theHadronicInteractionCounter = right.theHadronicInteractionCounter;
+    }
+  }
+ 
+ G4EnergyRangeManager &
+  G4EnergyRangeManager::operator=(
+   const G4EnergyRangeManager &right )
+  {
+    if( this != &right )
+    {
+      for( G4int i=0; i<theHadronicInteractionCounter; ++i )
+        theHadronicInteraction[i] =
+          right.theHadronicInteraction[i];
+      theHadronicInteractionCounter =
+        right.theHadronicInteractionCounter;
+    }
+    return *this;
+  }
+ 
+ void
+  G4EnergyRangeManager::RegisterMe(
+   G4HadronicInteraction *a )
+  {
+    if( theHadronicInteractionCounter+1 > MAX_NUMBER_OF_MODELS )
+      G4Exception(
+       "EnergyRangeManager::RegisterMe: TOO MANY MODELS");
+    theHadronicInteraction[ theHadronicInteractionCounter++ ] = a;
+  }
+ 
+ G4HadronicInteraction *
+  G4EnergyRangeManager::GetHadronicInteraction(
+   const G4double kineticEnergy,
+   const G4Material *aMaterial,
+   const G4Element *anElement ) const
+  {
+    G4int counter = GetHadronicInteractionCounter();
+    if( counter == 0 )
+      G4Exception("GetHadronicInteraction: NO MODELS STORED");
+
+    G4int cou = 0, memory = 0, memor2 = 0;
+    G4double emi1 = 0.0, ema1 = 0.0, emi2 = 0.0, ema2 = 0.0;
+    for( G4int i=0; i<counter; i++ ) {
+      G4double low  = theHadronicInteraction[i]->GetMinEnergy( aMaterial, anElement );
+      // Work-around for particles with 0 kinetic energy, which still
+      // require a model to return a ParticleChange
+      if (low == 0.) low = -DBL_MIN;
+      G4double high = theHadronicInteraction[i]->GetMaxEnergy( aMaterial, anElement );
+      if( low < kineticEnergy && high >= kineticEnergy )
+      {
+        ++cou;
+        emi2 = emi1;
+        ema2 = ema1;
+        emi1 = low;
+        ema1 = high;
+        memor2 = memory;
+        memory = i;
+      }
+    }
+    G4int m;
+    G4double rand;
+    switch ( cou )
+    {
+     case 0:
+       G4Exception("GetHadronicInteraction: No model found for this energy range");
+       return 0;
+     case 1:
+       m = memory;
+       break;
+     case 2:
+       if( (emi2<=emi1 && ema2>=ema1) || (emi2>=emi1 && ema2<=ema1) )
+         G4Exception(
+          "GetHadronicInteraction: Energy ranges of two models fully overlapping");
+       rand = G4UniformRand();
+       if( emi1 < emi2 )
+       {
+         if( (ema1-kineticEnergy)/(ema1-emi2)<rand )
+           m = memory;
+         else
+           m = memor2;
+       } else {
+         if( (ema2-kineticEnergy)/(ema2-emi1)<rand )
+           m = memor2;
+         else
+           m = memory;
+       }
+       break;
+     default:
+       G4Exception(
+        "GetHadronicInteraction: More than two competing models in this energy range");
+    }
+    return theHadronicInteraction[m];
+  } 
+ 
+ /* end of file */
+