lars/geant4
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import Geant4 11.2.0.beta source tree

Browse Source
This commit is contained in:
Gabriele Cosmo
2023-06-30 09:09:57 +02:00
parent aef78ca386
commit dd1f179cda
3780 changed files with 212808 additions and 142780 deletions
Download Patch File Download Diff File Expand all files Collapse all files
source/processes/hadronic/models/particle_hp/src/G4FPYNormalFragmentDist.cc
+67 -83
View File
@@ -29,105 +29,89 @@
*
* Created on July 26, 2011, 12:26 PM
*/
#include "G4FPYNormalFragmentDist.hh"
#include "G4FFGDebuggingMacros.hh"
#include "G4FFGEnumerations.hh"
#include "G4FissionProductYieldDist.hh"
#include "G4Ions.hh"
#include "Randomize.hh"
#include "globals.hh"
#include "G4FFGDebuggingMacros.hh"
#include "G4FFGEnumerations.hh"
#include "G4FPYNormalFragmentDist.hh"
#include "G4FissionProductYieldDist.hh"
G4FPYNormalFragmentDist::
G4FPYNormalFragmentDist( G4int WhichIsotope,
G4FFGEnumerations::MetaState WhichMetaState,
G4FFGEnumerations::FissionCause WhichCause,
G4FFGEnumerations::YieldType WhichYieldType,
std::istringstream& dataFile)
: G4FissionProductYieldDist( WhichIsotope,
WhichMetaState,
WhichCause,
WhichYieldType,
dataFile)
G4FPYNormalFragmentDist::G4FPYNormalFragmentDist(G4int WhichIsotope,
G4FFGEnumerations::MetaState WhichMetaState,
G4FFGEnumerations::FissionCause WhichCause,
G4FFGEnumerations::YieldType WhichYieldType,
std::istringstream& dataFile)
: G4FissionProductYieldDist(WhichIsotope, WhichMetaState, WhichCause, WhichYieldType, dataFile)
{
// Initialize the class
Initialize();
// Initialize the class
Initialize();
}
G4FPYNormalFragmentDist::
G4FPYNormalFragmentDist( G4int WhichIsotope,
G4FFGEnumerations::MetaState WhichMetaState,
G4FFGEnumerations::FissionCause WhichCause,
G4FFGEnumerations::YieldType WhichYieldType,
G4int Verbosity,
std::istringstream& dataFile)
: G4FissionProductYieldDist( WhichIsotope,
WhichMetaState,
WhichCause,
WhichYieldType,
Verbosity,
dataFile)
G4FPYNormalFragmentDist::G4FPYNormalFragmentDist(G4int WhichIsotope,
G4FFGEnumerations::MetaState WhichMetaState,
G4FFGEnumerations::FissionCause WhichCause,
G4FFGEnumerations::YieldType WhichYieldType,
G4int Verbosity, std::istringstream& dataFile)
: G4FissionProductYieldDist(WhichIsotope, WhichMetaState, WhichCause, WhichYieldType, Verbosity,
dataFile)
{
// Initialize the class
Initialize();
// Initialize the class
Initialize();
}
void G4FPYNormalFragmentDist::
Initialize( void )
void G4FPYNormalFragmentDist::Initialize(){G4FFG_FUNCTIONENTER__
// Nothing here yet
G4FFG_FUNCTIONLEAVE__}
G4Ions* G4FPYNormalFragmentDist::GetFissionProduct()
{
G4FFG_FUNCTIONENTER__
G4FFG_FUNCTIONENTER__
// Nothing here yet
G4Ions* Particle = nullptr;
G4FFG_FUNCTIONLEAVE__
// Generate a (0, 1] random number and return the respective particle.
// The ENDF data tables lists 72172 as the largest fission fragment produced
// for any fission event. The maximum alpha production is 10 and the
// smallest fissile isotope is 90227. This means that if isotope 72172 were
// selected as the first daughter product, then at 10 alpha particles only
// 15 nucleons and -2 protons would remain for the second daughter product.
// Although the actual probability of this occurring is very small, or 0 in
// this case, a check should still be made to ensure that the second
// daughter product can be physically realized. This would prevent a
// situation such as this extreme example which results in a nucleus of 13
// neutrons and 2 anti-protons.
// This quick sanity check may become even more valid if the ENDF data
// tables are expanded in the future and include larger fission products.
G4int icounter = 0;
G4int icounter_max = 1024;
do {
icounter++;
if (icounter > icounter_max) {
G4cout << "Loop-counter exceeded the threshold value at " << __LINE__ << "th line of "
<< __FILE__ << "." << G4endl;
break;
}
Particle = FindParticle(RandomEngine_->G4SampleUniform());
} while (Particle->GetAtomicMass() > RemainingA_ + 1
|| Particle->GetAtomicNumber() > RemainingZ_ + 1);
// Loop checking, 11.05.2015, T. Koi
G4FFG_FUNCTIONLEAVE__
return Particle;
}
G4Ions* G4FPYNormalFragmentDist::
GetFissionProduct( void )
G4FPYNormalFragmentDist::~G4FPYNormalFragmentDist()
{
G4FFG_FUNCTIONENTER__
G4FFG_FUNCTIONENTER__
G4Ions* Particle=nullptr;
// Empty - all the data elements to be deconstructed are removed by
// ~G4FissionProductYieldDist()
// Generate a (0, 1] random number and return the respective particle.
// The ENDF data tables lists 72172 as the largest fission fragment produced
// for any fission event. The maximum alpha production is 10 and the
// smallest fissile isotope is 90227. This means that if isotope 72172 were
// selected as the first daughter product, then at 10 alpha particles only
// 15 nucleons and -2 protons would remain for the second daughter product.
// Although the actual probability of this occurring is very small, or 0 in
// this case, a check should still be made to ensure that the second
// daughter product can be physically realized. This would prevent a
// situation such as this extreme example which results in a nucleus of 13
// neutrons and 2 anti-protons.
// This quick sanity check may become even more valid if the ENDF data
// tables are expanded in the future and include larger fission products.
G4int icounter=0;
G4int icounter_max=1024;
do
{
icounter++;
if ( icounter > icounter_max ) {
G4cout << "Loop-counter exceeded the threshold value at " << __LINE__ << "th line of " << __FILE__ << "." << G4endl;
break;
}
Particle = FindParticle(RandomEngine_->G4SampleUniform());
} while(Particle->GetAtomicMass() > RemainingA_ + 1
|| Particle->GetAtomicNumber() > RemainingZ_ + 1);
// Loop checking, 11.05.2015, T. Koi
G4FFG_FUNCTIONLEAVE__
return Particle;
}
G4FPYNormalFragmentDist::~G4FPYNormalFragmentDist( void )
{
G4FFG_FUNCTIONENTER__
// Empty - all the data elements to be deconstructed are removed by
// ~G4FissionProductYieldDist()
G4FFG_FUNCTIONLEAVE__
G4FFG_FUNCTIONLEAVE__
}