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,78 @@
+// 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: G4LEAlphaInelastic.cc,v 2.9 1998/12/14 15:33:13 hpw Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+ // Hadronic Process: Alpha Inelastic Process
+ // J.L. Chuma, TRIUMF, 25-Feb-1997
+ // Last modified: 27-Mar-1997
+
+#include "G4LEAlphaInelastic.hh"
+#include "Randomize.hh"
+#include "G4Electron.hh"
+ 
+ G4VParticleChange *
+  G4LEAlphaInelastic::ApplyYourself( const G4Track &aTrack,
+                                     G4Nucleus &targetNucleus )
+  {
+    theParticleChange.Initialize( aTrack );
+    G4double A = targetNucleus.GetN();
+    G4double Z = targetNucleus.GetZ();
+    
+    const G4DynamicParticle *originalIncident = aTrack.GetDynamicParticle();
+    
+    if( verboseLevel > 1 )
+    {
+      G4Material *targetMaterial = aTrack.GetMaterial();
+      G4cout << "G4LEAlphaInelastic::ApplyYourself called" << endl;
+      G4cout << "kinetc energy = " << originalIncident->GetKineticEnergy()/MeV << "MeV, ";
+      G4cout << "target material = " << targetMaterial->GetName() << endl;
+    }
+    
+    // Work-around for lack of model above 100 MeV
+    if (originalIncident->GetKineticEnergy()/MeV > 100. ||
+        originalIncident->GetKineticEnergy() <= 0.1*MeV) return &theParticleChange;
+
+    G4double theAtomicMass = targetNucleus.AtomicMass( A, Z )-Z*G4Electron::Electron()->GetPDGMass();
+    G4double massVec[9];
+    massVec[0] = targetNucleus.AtomicMass( A+4.0, Z+2.0 )-(Z+2.0)*G4Electron::Electron()->GetPDGMass();
+    massVec[1] = targetNucleus.AtomicMass( A+3.0, Z+2.0 )-(Z+2.0)*G4Electron::Electron()->GetPDGMass();
+    massVec[2] = targetNucleus.AtomicMass( A+3.0, Z+1.0 )-(Z+1.0)*G4Electron::Electron()->GetPDGMass();
+    massVec[3] = targetNucleus.AtomicMass( A+2.0, Z+1.0 )-(Z+1.0)*G4Electron::Electron()->GetPDGMass();
+    massVec[4] = targetNucleus.AtomicMass( A+1.0, Z+1.0 )-(Z+1.0)*G4Electron::Electron()->GetPDGMass();
+    massVec[5] = theAtomicMass;
+    massVec[6] = targetNucleus.AtomicMass( A+2.0, Z+2.0 )-(Z+2.0)*G4Electron::Electron()->GetPDGMass();
+    massVec[7] = massVec[3];
+    massVec[8] = targetNucleus.AtomicMass( A+2.0, Z     )-(Z)*G4Electron::Electron()->GetPDGMass();
+    
+    G4FastVector<G4ReactionProduct,3> vec;  // vec will contain the secondary particles
+    G4int vecLen = 0;
+    vec.Initialize( 0 );
+    
+    theReactionDynamics.NuclearReaction( vec, vecLen, originalIncident,
+                                         targetNucleus, theAtomicMass, massVec );
+    
+    G4double p = originalIncident->GetTotalMomentum();
+    theParticleChange.SetMomentumChange( originalIncident->GetMomentum() * (1.0/p) );
+    theParticleChange.SetEnergyChange( originalIncident->GetKineticEnergy() );
+    
+    theParticleChange.SetNumberOfSecondaries( vecLen );
+    G4DynamicParticle *pd;
+    for( G4int i=0; i<vecLen; ++i )
+    {
+      pd = new G4DynamicParticle();
+      pd->SetDefinition( vec[i]->GetDefinition() );
+      pd->SetMomentum( vec[i]->GetMomentum() );
+      theParticleChange.AddSecondary( pd );
+    }
+    
+    return &theParticleChange;
+  }
+ 
+ /* end of file */
+