Import Geant4 3.0.0 source tree

2016-06-08 15:55:53 +02:00
parent e7d7193284
commit cfcb558cfe
3050 changed files with 91703 additions and 48310 deletions
@@ -0,0 +1,173 @@
+// This code implementation is the intellectual property of
+// the 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.
+//
+// -------------------------------------------------------------------
+//
+// GEANT4 Class file
+//
+// For information related to this code contact:
+// Geant4 Collaboration
+//
+// File name:     G4hNuclearStoppingModel
+//
+// Author:        V.Ivanchenko (Vladimir.Ivanchenko@cern.ch)
+// 
+// Creation date: 20 July 2000
+//
+// Modifications:
+// 20/07/2000  V.Ivanchenko First implementation
+// 22/08/2000  V.Ivanchenko Bug fixed in call of a model
+// 03/10/2000  V.Ivanchenko CodeWizard clean up
+//
+// Class Description: 
+//
+// Low energy protons/ions nuclear stopping parametrisation
+//
+// Class Description: End 
+//
+// -------------------------------------------------------------------
+//
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "G4hNuclearStoppingModel.hh" 
+#include "G4UnitsTable.hh"
+#include "globals.hh"
+#include "G4hZiegler1977Nuclear.hh"
+#include "G4hZiegler1985Nuclear.hh"
+#include "G4hICRU49Nuclear.hh"
+#include "G4DynamicParticle.hh"
+#include "G4ParticleDefinition.hh"
+#include "G4ElementVector.hh"
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+G4hNuclearStoppingModel::G4hNuclearStoppingModel(const G4String& name):
+  G4VLowEnergyModel(name)
+{
+  modelName = name ;
+  InitializeMe() ;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void G4hNuclearStoppingModel::InitializeMe()
+{
+  // Constants
+  highEnergyLimit = 100.*MeV ;
+  lowEnergyLimit  = 1.*eV ;
+  factorPDG2AMU   = 1.007276/proton_mass_c2 ;
+  theZieglerFactor= eV*cm2*1.0e-15 ; 
+
+  // Registration of parametrisation models of nuclear energy losses
+  G4String blank  = G4String(" ") ;
+  G4String zi77   = G4String("Ziegler1977") ;
+  G4String ir49   = G4String("ICRU_R49") ;
+  G4String zi85   = G4String("Ziegler1985") ;
+  if(zi77 == modelName) { 
+      nStopingPowerTable = new G4hZiegler1977Nuclear();
+    
+  } else if(ir49 == modelName || blank == modelName) {
+      nStopingPowerTable = new G4hICRU49Nuclear();
+
+  } else if(zi85 == modelName) {
+      nStopingPowerTable = new G4hZiegler1985Nuclear();
+        
+  } else {
+    G4cout << 
+    "G4hLowEnergyIonisation warning: There is no table with the modelName <" 
+ << modelName << ">" 
+ << " for nuclear stopping, <ICRU_R49> is applied " 
+ << G4endl; 
+    nStopingPowerTable = new G4hICRU49Nuclear();
+  }
+
+  // Default is nuclear stopping fluctuations On
+  nStopingPowerTable->SetNuclearStoppingFluctuationsOn();  
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+G4hNuclearStoppingModel::~G4hNuclearStoppingModel() 
+{
+  delete nStopingPowerTable;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+G4double G4hNuclearStoppingModel::TheValue(
+                          const G4DynamicParticle* particle,
+	       	          const G4Material* material) 
+{
+  // Projectile nucleus
+  G4double energy = particle->GetKineticEnergy() ;
+  G4double z1 = abs((particle->GetCharge())/eplus) ;
+  G4double m1 = (particle->GetMass())*factorPDG2AMU ;
+
+  G4double nloss = StoppingPower(material, energy, z1, m1) * theZieglerFactor; 
+
+  return nloss;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+G4double G4hNuclearStoppingModel::TheValue(
+                          const G4ParticleDefinition* aParticle,
+		          const G4Material* material,
+                                G4double kineticEnergy)  
+{
+  // Projectile nucleus
+  G4double z1 = abs((aParticle->GetPDGCharge())/eplus) ;
+  G4double m1 = (aParticle->GetPDGMass())*factorPDG2AMU ;
+
+  G4double nloss = StoppingPower(material, kineticEnergy, z1, m1)
+                 * theZieglerFactor; 
+
+  return nloss;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+G4double G4hNuclearStoppingModel::StoppingPower(
+                          const G4Material* material,
+                                G4double kineticEnergy,
+                                G4double z1, G4double m1) const
+{
+  // Target nucleus
+  G4int NumberOfElements = material->GetNumberOfElements() ;
+  if(0 == NumberOfElements) return 0.0 ;
+
+  const G4ElementVector* theElementVector = 
+                                 material->GetElementVector() ;
+  const G4double* theAtomicNumDensityVector = 
+                                 material->GetAtomicNumDensityVector() ;
+
+  //  loop for the elements in the material
+
+  G4double nloss = 0.0;
+
+  for (G4int iel=0; iel<NumberOfElements; iel++) {
+    const G4Element* element = (*theElementVector)(iel) ;
+    G4double z2 = element->GetZ() ;
+    G4double m2 = element->GetA()*mole/g ;
+    nloss += (nStopingPowerTable->
+              NuclearStoppingPower(kineticEnergy, z1, z2, m1, m2))
+           * theAtomicNumDensityVector[iel] ;    
+  }
+
+  return nloss;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+
+
+
+
+
+
+