Import Geant4 0.1.0 source tree

2016-06-08 15:09:25 +02:00
parent b97f8d0df7
commit aaa409b6ee
2922 changed files with 55107 additions and 81674 deletions
@@ -0,0 +1,90 @@
+// 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: G4LowEnergyGammaConversion.icc,v 1.6 1999/06/28 15:47:35 aforti Exp $
+// GEANT4 tag $Name: geant4-00-01 $
+//
+// 
+// ---------------------------------------------------------------
+//      GEANT 4 class inlined methods file
+//
+//      For information related to this code contact:
+//      CERN, CN Division, ASD group
+//      History: first implementation, based on object model of
+//      2nd December 1995, G.Cosmo
+//      ------------ G4LowEnergyGammaConversion physics process ---------
+//                   by Michel Maire, 24 May 1996
+// ***************************************************************
+// 11-06-96, in GetMeanFreePath() the partial sum is stored, by M.Maire
+// 16-09-96, dynamical array PartialSumSigma, by M.Maire
+// 13-12-96, Sign corrected in the ScreenFunctions, by L.Urban
+// 14-01-97, crossection table + meanfreepath table.
+//           PartialSumSigma removed, by M.Maire
+// 14-01-97, new physics scheme for geant4alpha, M.Maire
+// ---------------------------------------------------------------
+
+inline G4bool G4LowEnergyGammaConversion::IsApplicable(const G4ParticleDefinition& particle)
+{
+   return ( &particle == G4Gamma::Gamma() ); 
+}
+
+inline G4double 
+G4LowEnergyGammaConversion::GetMeanFreePath(const G4Track& aTrack, G4double, G4ForceCondition*){
+
+  // returns the gamma mean free path in GEANT4 internal units
+  const G4DynamicParticle* aDynamicGamma = aTrack.GetDynamicParticle();
+  G4double GammaEnergy = aDynamicGamma->GetKineticEnergy();
+  G4Material* aMaterial = aTrack.GetMaterial();
+
+  G4bool isOutRange ;
+  
+  if (GammaEnergy < LowestEnergyLimit){
+    MeanFreePath = DBL_MAX;
+
+  }
+  else {
+    if(GammaEnergy > HighestEnergyLimit) GammaEnergy = 0.99*HighestEnergyLimit;   
+    MeanFreePath = util.DataLogInterpolation(GammaEnergy, aMaterial->GetIndex(), theMeanFreePathTable);	
+
+  }                                     
+  
+  return MeanFreePath;
+}
+
+inline G4double 
+G4LowEnergyGammaConversion::ScreenFunction1(G4double ScreenVariable)
+
+// compute the value of the screening function 3*PHI1 - PHI2
+
+{
+   G4double screenVal;
+
+   if (ScreenVariable > 1.)
+     screenVal = 42.24 - 8.368*log(ScreenVariable+0.952);
+   else
+     screenVal = 42.392 - ScreenVariable* (7.796 - 1.961*ScreenVariable);
+
+   return screenVal;
+} 
+
+inline G4double 
+G4LowEnergyGammaConversion::ScreenFunction2(G4double ScreenVariable)
+
+// compute the value of the screening function 1.5*PHI1 - 0.5*PHI2
+{
+   G4double screenVal;
+
+   if (ScreenVariable > 1.)
+     screenVal = 42.24 - 8.368*log(ScreenVariable+0.952);
+   else
+     screenVal = 41.405 - ScreenVariable* (5.828 - 0.8945*ScreenVariable);
+
+   return screenVal;
+} 
+
+
+