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,134 @@
+// 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: G4NeutronHPContAngularPar.hh,v 2.5 1998/11/07 11:21:04 hpw Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+#ifndef G4NeutronHPContAngularPar_h
+#define G4NeutronHPContAngularPar_h 1
+
+#include "G4ios.hh"
+#include <fstream.h>
+#include "globals.hh"
+#include "G4NeutronHPList.hh"
+#include "G4ReactionProduct.hh"
+#include "G4NeutronHPInterpolator.hh"
+#include "G4InterpolationManager.hh"
+
+class G4NeutronHPContAngularPar
+{
+  public:
+  
+  G4NeutronHPContAngularPar()
+  {
+    theAngular = NULL;
+    currentMeanEnergy = -2;
+  }
+  ~G4NeutronHPContAngularPar()
+  {
+    if(theAngular!=NULL) delete [] theAngular;
+  }
+  
+  void Init(ifstream & aDataFile);
+  
+  G4ReactionProduct * Sample(G4double anEnergy, G4double massCode, G4double mass, 
+                             G4int angularRep, G4int interpol);
+  
+  G4double GetEnergy() { return theEnergy; }
+  
+  void SetPrimary(G4ReactionProduct * aPrimary)
+  {
+    thePrimary = aPrimary;
+  }
+  
+  void SetTarget(G4ReactionProduct * aTarget)
+  {
+    theTarget = aTarget;
+  }
+  
+  void SetTargetCode(G4double aTargetCode) { theTargetCode = aTargetCode; }
+  
+  void SetInterpolation(G4int theInterpolation)
+  {
+    theManager.Init(theInterpolation, nEnergies); // one range only
+  }
+
+  void Merge(G4double anEnergy, G4InterpolationScheme & aScheme, 
+             G4NeutronHPContAngularPar & store1, 
+             G4NeutronHPContAngularPar & store2) // hmmmm, this interpolates legendre coefficients. Dangerous @@@
+  {
+    nDiscreteEnergies = store1.nDiscreteEnergies;
+    nAngularParameters = store1.nAngularParameters;
+    nEnergies = store1.nEnergies;
+    theManager = store1.theManager;
+    theEnergy = anEnergy;
+    if(theAngular != NULL) delete [] theAngular;
+    theAngular = new G4NeutronHPList[nEnergies];
+    G4int i, ii;
+    G4double value;
+    for(i=0; i<nEnergies; i++)
+    {
+      theAngular[i].SetLabel(store1.theAngular[i].GetLabel());
+      for(ii=0; ii<nAngularParameters; ii++)
+      {
+//        G4cout <<"test "<<i<<" "<<store1.theEnergy<<" "<<store2.theEnergy<<" "
+//             << store1.theAngular[i].GetValue(ii)<<" "<<
+//             store2.theAngular[i].GetValue(ii)<<endl;
+        value = theInt.Interpolate(aScheme, anEnergy, 
+                                   store1.theEnergy, store2.theEnergy,
+                                   store1.theAngular[i].GetValue(ii),
+                                   store2.theAngular[i].GetValue(ii));
+        theAngular[i].SetValue(ii, value);
+      }
+    }
+  };
+  
+  G4double MeanEnergyOfThisInteraction()
+  {
+    G4double result;
+    if(currentMeanEnergy<-1)
+    {
+      return 0;
+      // G4Exception("G4NeutronHPContAngularPar: Logical error in Product class");
+    }
+    else
+    {
+      result = currentMeanEnergy;
+    }
+    currentMeanEnergy = -2;
+    return result;
+  }
+  
+  private:
+  
+  // incoming particle
+  G4double theEnergy; 
+  
+  // number of exit channel energies
+  G4int nEnergies; 
+  // number of discrete exit channels
+  G4int nDiscreteEnergies;
+  // number of angular paramerers per channel
+  G4int nAngularParameters;
+  // knows the interpolation between List labels
+  G4InterpolationManager theManager; 
+  // on per exit-channel energy
+  G4NeutronHPList * theAngular; 
+  
+  private:
+  
+  G4NeutronHPInterpolator theInt;
+  
+  G4double theTargetCode;
+  G4ReactionProduct * theTarget;
+  G4ReactionProduct * thePrimary;
+  
+  G4double currentMeanEnergy;
+};
+#endif