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,60 @@
+// neutron_hp -- source file
+// J.P. Wellisch, Nov-1996
+// A prototype of the low energy neutron transport model.
+//
+#include "G4NeutronHPElasticData.hh"
+#include "G4Neutron.hh"
+#include "G4ElementTable.hh"
+#include "G4NeutronHPData.hh"
+
+G4bool G4NeutronHPElasticData::IsApplicable(const G4DynamicParticle*aP, const G4Element*anE)
+{
+  G4bool result = true;
+  G4double eKin = aP->GetKineticEnergy();
+  if(eKin>20*MeV||aP->GetDefinition()!=G4Neutron::Neutron()) result = false;
+  return result;
+}
+
+G4NeutronHPElasticData::G4NeutronHPElasticData()
+{
+  BuildPhysicsTable(*G4Neutron::Neutron());
+}
+   
+G4NeutronHPElasticData::~G4NeutronHPElasticData()
+{
+  delete theCrossSections;
+}
+   
+void G4NeutronHPElasticData::BuildPhysicsTable(const G4ParticleDefinition& aP)
+{
+  if(&aP!=G4Neutron::Neutron()) 
+     G4Exception("Attempt to use NeutronHP data for particles other than neutrons!!!");  
+  G4int numberOfElements = G4Element::GetNumberOfElements();
+  theCrossSections = new G4PhysicsTable( numberOfElements );
+
+  // make a PhysicsVector for each element
+
+  static const G4ElementTable *theElementTable = G4Element::GetElementTable();
+  for( G4int i=0; i<numberOfElements; ++i )
+    (*theCrossSections)(i) =
+      G4NeutronHPData::
+      Instance()->MakePhysicsVector((*theElementTable)[i], this);
+}
+
+void G4NeutronHPElasticData::DumpPhysicsTable(const G4ParticleDefinition& aP)
+{
+  if(&aP!=G4Neutron::Neutron()) 
+     G4Exception("Attempt to use NeutronHP data for particles other than neutrons!!!");  
+//  G4cout << "G4NeutronHPElasticData::DumpPhysicsTable still to be implemented"<<endl;
+}
+
+G4double G4NeutronHPElasticData::GetCrossSection(const G4DynamicParticle* aP, const G4Element*anE)
+{
+  G4double result;
+  G4bool outOfRange;
+  G4int index = anE->GetIndex();
+    
+  result = (*((*theCrossSections)(index))).GetValue(
+                             aP->GetKineticEnergy(), outOfRange);
+  return result;
+}