Import Geant4 10.1.0 source tree
This commit is contained in:
Gabriele Cosmo
@@ -0,0 +1,341 @@
|
||||
//
|
||||
// ********************************************************************
|
||||
// * 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.
|
||||
//
|
||||
// 070523 add neglecting doppler broadening on the fly. T. Koi
|
||||
// 070613 fix memory leaking by T. Koi
|
||||
// 071002 enable cross section dump by T. Koi
|
||||
// 080428 change checking point of "neglecting doppler broadening" flag
|
||||
// from GetCrossSection to BuildPhysicsTable by T. Koi
|
||||
// 081024 G4NucleiPropertiesTable:: to G4NucleiProperties::
|
||||
//
|
||||
// P. Arce, June-2014 Conversion neutron_hp to particle_hp
|
||||
//
|
||||
#include "G4ParticleHPInelasticData.hh"
|
||||
#include "G4ParticleHPManager.hh"
|
||||
#include "G4Neutron.hh"
|
||||
#include "G4ElementTable.hh"
|
||||
#include "G4ParticleHPData.hh"
|
||||
|
||||
G4ParticleHPInelasticData::G4ParticleHPInelasticData(G4ParticleDefinition* projectile)
|
||||
: G4VCrossSectionDataSet("")
|
||||
{
|
||||
const char* dataDirVariable;
|
||||
if( projectile == G4Neutron::Neutron() ) {
|
||||
dataDirVariable = "G4NEUTRONHPDATA";
|
||||
}else if( projectile == G4Proton::Proton() ) {
|
||||
dataDirVariable = "G4PROTONHPDATA";
|
||||
}else if( projectile == G4Deuteron::Deuteron() ) {
|
||||
dataDirVariable = "G4DEUTERONHPDATA";
|
||||
}else if( projectile == G4Triton::Triton() ) {
|
||||
dataDirVariable = "G4TRITONHPDATA";
|
||||
}else if( projectile == G4He3::He3() ) {
|
||||
dataDirVariable = "G4HE3HPDATA";
|
||||
}else if( projectile == G4Alpha::Alpha() ) {
|
||||
dataDirVariable = "G4ALPHAHPDATA";
|
||||
} else {
|
||||
G4String message("G4ParticleHPInelasticData may only be called for neutron, proton, deuteron, triton, He3 or alpha, while it is called for " + projectile->GetParticleName());
|
||||
throw G4HadronicException(__FILE__, __LINE__,message.c_str());
|
||||
}
|
||||
// G4cout << this << " G4ParticleHPInelasticData::G4ParticleHPInelasticData " << projectile->GetParticleName() << " DATADIR " << dataDirVariable << G4endl;//GDEB
|
||||
G4String dataName = projectile->GetParticleName()+"HPInelasticXS";
|
||||
dataName.at(0) = toupper(dataName.at(0)) ;
|
||||
SetName( dataName );
|
||||
|
||||
if(!getenv(dataDirVariable)){
|
||||
G4String message("Please setenv " + G4String(dataDirVariable) + " to point to the " + projectile->GetParticleName() + " cross-section files.");
|
||||
throw G4HadronicException(__FILE__, __LINE__,message.c_str());
|
||||
}
|
||||
|
||||
G4cout << "@@@ G4ParticleHPInelasticData instantiated for particle " << projectile->GetParticleName() << " data directory variable is " << dataDirVariable << " pointing to " << getenv(dataDirVariable) << G4endl;
|
||||
|
||||
SetMinKinEnergy( 0*CLHEP::MeV );
|
||||
SetMaxKinEnergy( 20*CLHEP::MeV );
|
||||
|
||||
ke_cache = 0.0;
|
||||
xs_cache = 0.0;
|
||||
element_cache = NULL;
|
||||
material_cache = NULL;
|
||||
|
||||
onFlightDB = true;
|
||||
theCrossSections = 0;
|
||||
theProjectile=projectile;
|
||||
|
||||
|
||||
BuildPhysicsTableHP(projectile, dataDirVariable);
|
||||
|
||||
}
|
||||
|
||||
G4ParticleHPInelasticData::~G4ParticleHPInelasticData()
|
||||
{
|
||||
if ( theCrossSections != NULL ) {
|
||||
theCrossSections->clearAndDestroy();
|
||||
delete theCrossSections;
|
||||
theCrossSections = NULL;
|
||||
}
|
||||
}
|
||||
|
||||
G4bool G4ParticleHPInelasticData::IsIsoApplicable( const G4DynamicParticle* dp ,
|
||||
G4int /*Z*/ , G4int /*A*/ ,
|
||||
const G4Element* /*elm*/ ,
|
||||
const G4Material* /*mat*/ )
|
||||
{
|
||||
G4double eKin = dp->GetKineticEnergy();
|
||||
if ( eKin > GetMaxKinEnergy()
|
||||
|| eKin < GetMinKinEnergy()
|
||||
|| dp->GetDefinition() != theProjectile ) return false;
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
G4double G4ParticleHPInelasticData::GetIsoCrossSection( const G4DynamicParticle* dp ,
|
||||
G4int /*Z*/ , G4int /*A*/ ,
|
||||
const G4Isotope* /*iso*/ ,
|
||||
const G4Element* element ,
|
||||
const G4Material* material )
|
||||
{
|
||||
if ( dp->GetKineticEnergy() == ke_cache && element == element_cache && material == material_cache ) return xs_cache;
|
||||
|
||||
ke_cache = dp->GetKineticEnergy();
|
||||
element_cache = element;
|
||||
material_cache = material;
|
||||
G4double xs = GetCrossSection( dp , element , material->GetTemperature() );
|
||||
xs_cache = xs;
|
||||
return xs;
|
||||
//return GetCrossSection( dp , element , material->GetTemperature() );
|
||||
}
|
||||
|
||||
/*
|
||||
G4bool G4ParticleHPInelasticData::IsApplicable(const G4DynamicParticle*aP, const G4Element*)
|
||||
{
|
||||
G4bool result = true;
|
||||
G4double eKin = aP->GetKineticEnergy();
|
||||
if(eKin>20*MeV||aP->GetDefinition()!=G4Neutron::Neutron()) result = false;
|
||||
return result;
|
||||
}
|
||||
*/
|
||||
|
||||
void G4ParticleHPInelasticData::BuildPhysicsTableHP(G4ParticleDefinition* projectile,const char* /* dataDirVariable */)
|
||||
{
|
||||
// if(&projectile!=G4Neutron::Neutron())
|
||||
// throw G4HadronicException(__FILE__, __LINE__, "Attempt to use NeutronHP data for particles other than neutrons!!!");
|
||||
|
||||
//080428
|
||||
if ( getenv( "G4PHP_NEGLECT_DOPPLER" ) )
|
||||
{
|
||||
G4cout << "Find environment variable of \"G4PHP_NEGLECT_DOPPLER\"." << G4endl;
|
||||
G4cout << "On the fly Doppler broadening will be neglect in the cross section calculation of inelastic scattering of neutrons (<20MeV)." << G4endl;
|
||||
onFlightDB = false;
|
||||
}
|
||||
|
||||
size_t numberOfElements = G4Element::GetNumberOfElements();
|
||||
// theCrossSections = new G4PhysicsTable( numberOfElements );
|
||||
// TKDB
|
||||
//if ( theCrossSections == 0 )
|
||||
//{ theCrossSections = new G4PhysicsTable( numberOfElements ); }
|
||||
if ( theCrossSections == NULL )
|
||||
theCrossSections = new G4PhysicsTable( numberOfElements );
|
||||
else
|
||||
theCrossSections->clearAndDestroy();
|
||||
|
||||
// make a PhysicsVector for each element
|
||||
|
||||
G4ParticleHPData* hpData = new G4ParticleHPData(projectile); //NEW
|
||||
static G4ThreadLocal G4ElementTable *theElementTable = 0 ;
|
||||
if (!theElementTable) theElementTable= G4Element::GetElementTable();
|
||||
for( size_t i=0; i<numberOfElements; ++i )
|
||||
{
|
||||
//NEW G4PhysicsVector* physVec = G4ParticleHPData::
|
||||
//NEW Instance(projectile, dataDirVariable)->MakePhysicsVector((*theElementTable)[i], this);
|
||||
G4PhysicsVector* physVec = hpData->MakePhysicsVector((*theElementTable)[i], this);
|
||||
theCrossSections->push_back(physVec);
|
||||
}
|
||||
}
|
||||
|
||||
void G4ParticleHPInelasticData::DumpPhysicsTable(const G4ParticleDefinition& projectile)
|
||||
{
|
||||
if(&projectile!=theProjectile)
|
||||
throw G4HadronicException(__FILE__, __LINE__, "Attempt to use ParticleHP data for a wrong projectile!!!");
|
||||
|
||||
//
|
||||
// Dump element based cross section
|
||||
// range 10e-5 eV to 20 MeV
|
||||
// 10 point per decade
|
||||
// in barn
|
||||
//
|
||||
|
||||
G4cout << G4endl;
|
||||
G4cout << G4endl;
|
||||
G4cout << "Inelastic Cross Section of Neutron HP"<< G4endl;
|
||||
G4cout << "(Pointwise cross-section at 0 Kelvin.)" << G4endl;
|
||||
G4cout << G4endl;
|
||||
G4cout << "Name of Element" << G4endl;
|
||||
G4cout << "Energy[eV] XS[barn]" << G4endl;
|
||||
G4cout << G4endl;
|
||||
|
||||
size_t numberOfElements = G4Element::GetNumberOfElements();
|
||||
static G4ThreadLocal G4ElementTable *theElementTable = 0 ;
|
||||
if (!theElementTable) theElementTable= G4Element::GetElementTable();
|
||||
|
||||
for ( size_t i = 0 ; i < numberOfElements ; ++i )
|
||||
{
|
||||
|
||||
G4cout << (*theElementTable)[i]->GetName() << G4endl;
|
||||
|
||||
G4int ie = 0;
|
||||
|
||||
for ( ie = 0 ; ie < 130 ; ie++ )
|
||||
{
|
||||
G4double eKinetic = 1.0e-5 * std::pow ( 10.0 , ie/10.0 ) *CLHEP::eV;
|
||||
G4bool outOfRange = false;
|
||||
|
||||
if ( eKinetic < 20*CLHEP::MeV )
|
||||
{
|
||||
G4cout << eKinetic/CLHEP::eV << " " << (*((*theCrossSections)(i))).GetValue(eKinetic, outOfRange)/CLHEP::barn << G4endl;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
G4cout << G4endl;
|
||||
}
|
||||
|
||||
//G4cout << "G4ParticleHPInelasticData::DumpPhysicsTable still to be implemented"<<G4endl;
|
||||
}
|
||||
|
||||
#include "G4NucleiProperties.hh"
|
||||
|
||||
G4double G4ParticleHPInelasticData::
|
||||
GetCrossSection(const G4DynamicParticle* projectile, const G4Element*anE, G4double aT)
|
||||
{
|
||||
G4double result = 0;
|
||||
G4bool outOfRange;
|
||||
G4int index = anE->GetIndex();
|
||||
|
||||
// prepare neutron
|
||||
G4double eKinetic = projectile->GetKineticEnergy();
|
||||
|
||||
// T. K.
|
||||
//if ( getenv( "G4PHP_NEGLECT_DOPPLER" ) )
|
||||
//080428
|
||||
if ( !onFlightDB )
|
||||
{
|
||||
G4double factor = 1.0;
|
||||
if ( eKinetic < aT * CLHEP::k_Boltzmann )
|
||||
{
|
||||
// below 0.1 eV neutrons
|
||||
// Have to do some, but now just igonre.
|
||||
// Will take care after performance check.
|
||||
// factor = factor * targetV;
|
||||
}
|
||||
return ( (*((*theCrossSections)(index))).GetValue(eKinetic, outOfRange) )* factor;
|
||||
|
||||
}
|
||||
|
||||
G4ReactionProduct theNeutron( projectile->GetDefinition() );
|
||||
theNeutron.SetMomentum( projectile->GetMomentum() );
|
||||
theNeutron.SetKineticEnergy( eKinetic );
|
||||
|
||||
// prepare thermal nucleus
|
||||
G4Nucleus aNuc;
|
||||
G4double eps = 0.0001;
|
||||
G4double theA = anE->GetN();
|
||||
G4double theZ = anE->GetZ();
|
||||
G4double eleMass;
|
||||
eleMass = ( G4NucleiProperties::GetNuclearMass(static_cast<G4int>(theA+eps), static_cast<G4int>(theZ+eps))
|
||||
) / theProjectile->GetPDGMass();
|
||||
|
||||
G4ReactionProduct boosted;
|
||||
G4double aXsection;
|
||||
|
||||
// MC integration loop
|
||||
G4int counter = 0;
|
||||
G4int failCount = 0;
|
||||
G4double buffer = 0;
|
||||
G4int size = G4int(std::max(10., aT/60*CLHEP::kelvin));
|
||||
G4ThreeVector neutronVelocity = 1./theProjectile->GetPDGMass()*theNeutron.GetMomentum();
|
||||
G4double neutronVMag = neutronVelocity.mag();
|
||||
|
||||
// G4cout << " G4ParticleHPInelasticData 2 " << size << G4endl;//GDEB
|
||||
#ifndef G4PHP_DOPPLER_LOOP_ONCE
|
||||
while(counter == 0 || std::abs(buffer-result/std::max(1,counter)) > 0.01*buffer)
|
||||
{
|
||||
if(counter) buffer = result/counter;
|
||||
while (counter<size)
|
||||
{
|
||||
counter ++;
|
||||
#endif
|
||||
G4ReactionProduct aThermalNuc = aNuc.GetThermalNucleus(eleMass, aT);
|
||||
boosted.Lorentz(theNeutron, aThermalNuc);
|
||||
G4double theEkin = boosted.GetKineticEnergy();
|
||||
aXsection = (*((*theCrossSections)(index))).GetValue(theEkin, outOfRange);
|
||||
// G4cout << " G4ParticleHPInelasticData aXsection " << aXsection << " index " << index << " theEkin " << theEkin << " outOfRange " << outOfRange <<G4endl;//GDEB
|
||||
if(aXsection <0)
|
||||
{
|
||||
if(failCount<1000)
|
||||
{
|
||||
failCount++;
|
||||
#ifndef G4PHP_DOPPLER_LOOP_ONCE
|
||||
counter--;
|
||||
continue;
|
||||
#endif
|
||||
}
|
||||
else
|
||||
{
|
||||
aXsection = 0;
|
||||
}
|
||||
}
|
||||
// velocity correction.
|
||||
G4ThreeVector targetVelocity = 1./aThermalNuc.GetMass()*aThermalNuc.GetMomentum();
|
||||
aXsection *= (targetVelocity-neutronVelocity).mag()/neutronVMag;
|
||||
result += aXsection;
|
||||
}
|
||||
#ifndef G4PHP_DOPPLER_LOOP_ONCE
|
||||
size += size;
|
||||
}
|
||||
result /= counter;
|
||||
#endif
|
||||
|
||||
/*
|
||||
// Checking impact of G4PHP_NEGLECT_DOPPLER
|
||||
G4cout << " result " << result << " "
|
||||
<< (*((*theCrossSections)(index))).GetValue(eKinetic, outOfRange) << " "
|
||||
<< (*((*theCrossSections)(index))).GetValue(eKinetic, outOfRange) /result << G4endl;
|
||||
*/
|
||||
// G4cout << this << " G4ParticleHPInelasticData result " << result << G4endl; //GDEB
|
||||
|
||||
return result;
|
||||
}
|
||||
|
||||
G4int G4ParticleHPInelasticData::GetVerboseLevel() const
|
||||
{
|
||||
return G4ParticleHPManager::GetInstance()->GetVerboseLevel();
|
||||
}
|
||||
void G4ParticleHPInelasticData::SetVerboseLevel( G4int newValue )
|
||||
{
|
||||
G4ParticleHPManager::GetInstance()->SetVerboseLevel(newValue);
|
||||
}
|
||||
Reference in New Issue
Block a user