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 @@
+// This code implementation is the intellectual property of
+// neutron_hp -- header file
+// J.P. Wellisch, Nov-1996
+// A prototype of the low energy neutron transport model.
+//
+// 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: G4NeutronHPElasticFS.hh,v 2.2 1998/12/04 15:08:02 hpw Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+#ifndef G4NeutronHPElasticFS_h
+#define G4NeutronHPElasticFS_h 1
+
+#include "globals.hh"
+#include "G4Track.hh"
+#include "G4ParticleChange.hh"
+#include "G4NeutronHPFinalState.hh"
+#include "G4NeutronHPLegendreStore.hh"
+#include "G4NeutronHPPartial.hh"
+#include "G4NeutronHPFastLegendre.hh"
+#include "G4NeutronHPInterpolator.hh"
+#include "G4NeutronHPNames.hh"
+
+class G4NeutronHPElasticFS : public G4NeutronHPFinalState
+{
+  public:
+  
+  G4NeutronHPElasticFS()
+  {
+    hasXsec = false; 
+    theCoefficients = NULL;
+    theProbArray = NULL;
+  }
+  ~G4NeutronHPElasticFS()
+  {
+    if(theCoefficients!=NULL) delete theCoefficients;
+    if(theProbArray!=NULL) delete theProbArray;
+  }
+  void Init (G4double A, G4double Z, G4String & dirName, G4String & aFSType);
+  G4ParticleChange * ApplyYourself(const G4Track & theTrack);
+  G4NeutronHPFinalState * New() 
+  {
+   G4NeutronHPElasticFS * theNew = new G4NeutronHPElasticFS;
+   return theNew;
+  }
+  
+  private:
+  G4int repFlag;    // Legendre coeff(1), or probability array(2), or isotropic(0).
+  G4double targetMass; // in neutronmass units.
+  G4int frameFlag;  // CMS or Lab system.
+  
+  G4NeutronHPLegendreStore * theCoefficients; // the legendre coefficients
+  G4NeutronHPPartial * theProbArray; // the probability array p,costh for energy
+  G4NeutronHPInterpolator theInt; // interpolation
+  
+  G4NeutronHPFastLegendre theLegend; // fast look-up for leg-integrals
+};
+#endif