Import Geant4 10.1.0 source tree

2016-06-10 12:08:39 +02:00
parent 286caacf06
commit c9b32a6c0a
5770 changed files with 1050949 additions and 367105 deletions
@@ -0,0 +1,130 @@
+//
+// ********************************************************************
+// * License and Disclaimer                                           *
+// *                                                                  *
+// * The  Geant4 software  is  copyright of the Copyright Holders  of *
+// * the Geant4 Collaboration.  It is provided  under  the terms  and *
+// * conditions of the Geant4 Software License,  included in the file *
+// * LICENSE and available at  http://cern.ch/geant4/license .  These *
+// * include a list of copyright holders.                             *
+// *                                                                  *
+// * Neither the authors of this software system, nor their employing *
+// * institutes,nor the agencies providing financial support for this *
+// * work  make  any representation or  warranty, express or implied, *
+// * regarding  this  software system or assume any liability for its *
+// * use.  Please see the license in the file  LICENSE  and URL above *
+// * for the full disclaimer and the limitation of liability.         *
+// *                                                                  *
+// * This  code  implementation is the result of  the  scientific and *
+// * technical work of the GEANT4 collaboration.                      *
+// * By using,  copying,  modifying or  distributing the software (or *
+// * any work based  on the software)  you  agree  to acknowledge its *
+// * use  in  resulting  scientific  publications,  and indicate your *
+// * acceptance of all terms of the Geant4 Software license.          *
+// ********************************************************************
+//
+// particle_hp -- source file
+// J.P. Wellisch, Nov-1996
+// A prototype of the low energy neutron transport model.
+//
+// 080721 To be "ClearHistories" effective, the selection scheme of angular distribution is modified by T. Koi
+//
+// P. Arce, Dec-2014 Conversion neutron_hp to particle_hp
+//
+#include "G4ParticleHPContEnergyAngular.hh"
+
+G4ReactionProduct * G4ParticleHPContEnergyAngular::Sample(G4double anEnergy, G4double massCode, G4double /*mass*/)
+{
+   G4ReactionProduct * result;
+   G4int i(0);
+   G4int it(0);
+   for(i=0;i<nEnergy;i++)
+   {
+     it = i;
+#ifdef PHP_AS_HP 
+     if(theAngular[i].GetEnergy()>anEnergy) break;
+#else
+     if(theAngular[i].GetEnergy()>=anEnergy) break;
+#endif
+   }
+   if( getenv("G4PHPTEST") )    G4cout << i << " G4ParticleHPContEnergyAngular dataE " << theAngular[i].GetEnergy() << " > " << anEnergy << " it_theAngular " << it << " interpolation " << theInterpolation << G4endl; //GDEB
+   G4double targetMass = GetTarget()->GetMass();
+   if(it==0)
+   {
+     theAngular[0].SetTarget(GetTarget());
+     theAngular[0].SetTargetCode(theTargetCode);
+     theAngular[0].SetPrimary(GetProjectileRP());
+     result = theAngular[0].Sample(anEnergy, massCode, targetMass, 
+                                  theAngularRep, theInterpolation);
+     currentMeanEnergy = theAngular[0].MeanEnergyOfThisInteraction();
+   }
+   else
+   {
+     // interpolation through alternating sampling. This needs improvement @@@
+     // This is the cause of the He3 problem !!!!!!!!
+     // See to it, if you can improve this.
+     //080714 TK commnet Randomizing use angular distribution
+     //080714 TK Always use the upper side distribution. enabling ClearHistories method.
+     //G4double random = G4UniformRand();
+     //G4double deltaE = theAngular[it].GetEnergy()-theAngular[it-1].GetEnergy();
+     //G4double offset = theAngular[it].GetEnergy()-anEnergy;
+     //if(random<offset/deltaE) it--;
+     //--- create new 
+     //     if( theManager.GetScheme(0) != LINLIN ) {  // asserted in G4ParticleHPContEnergyAngular::init there is only one range
+#ifdef PHP_AS_HP
+     theAngular[it].SetTarget(GetTarget());
+     theAngular[it].SetTargetCode(theTargetCode);
+     theAngular[it].SetPrimary(GetProjectileRP());
+     result = theAngular[it].Sample(anEnergy, massCode, targetMass, 
+				    theAngularRep, theInterpolation);
+     currentMeanEnergy = theAngular[it].MeanEnergyOfThisInteraction(); 
+#else
+    if( getenv("G4PHPTEST") )     G4cout << i << " G4ParticleHPContEnergyAngular To BUILDBYINTERPOLATION " << it << " : " << theAngular[it].GetEnergy()<< " , " << theAngular[it].GetNEnergies() << " " << it-1 << " : " << theAngular[it-1].GetEnergy()<< " : " << theAngular[it-1].GetNEnergies() << G4endl; //GDEB
+
+     G4ParticleHPContAngularPar * angular = new  G4ParticleHPContAngularPar(theProjectile );
+     
+     angular->SetInterpolation(theInterpolation);
+     angular->BuildByInterpolation( anEnergy, theManager.GetScheme(0), (theAngular[it-1]), (theAngular[it]) );
+     
+     angular->SetTarget(GetTarget());
+     angular->SetTargetCode(theTargetCode);
+     angular->SetPrimary(GetProjectileRP());
+     result = angular->Sample(anEnergy, massCode, targetMass, 
+			     theAngularRep, theInterpolation);
+     currentMeanEnergy = angular->MeanEnergyOfThisInteraction();
+
+     delete angular;
+#endif
+   }
+
+   //      G4cout << " 0 0 @@@ G4ParticleHPContEnergyAngular::Sample " << result->GetDefinition()->GetParticleName() << " E= " << result->GetKineticEnergy() << G4endl;//GDEB
+
+   return result;
+}
+
+G4double G4ParticleHPContEnergyAngular::
+MeanEnergyOfThisInteraction()
+{
+   G4double result(0);
+   if(currentMeanEnergy<-1)
+   {
+     throw G4HadronicException(__FILE__, __LINE__, "G4ParticleHPContEnergyAngular: Logical error in Product class");
+   }
+   else
+   {
+     result = currentMeanEnergy;
+   }
+   currentMeanEnergy = -2;
+   return result;
+}
+
+
+ 
+void G4ParticleHPContEnergyAngular::ClearHistories()
+{ 
+   if ( theAngular!= NULL )
+   { 
+      for ( G4int i = 0 ; i< nEnergy ; i++ ) 
+         theAngular[i].ClearHistories(); 
+   } 
+}