Import Geant4 10.1.0 source tree
This commit is contained in:
Gabriele Cosmo
@@ -0,0 +1,289 @@
|
||||
//
|
||||
// ********************************************************************
|
||||
// * 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. *
|
||||
// ********************************************************************
|
||||
//
|
||||
// neutron_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 "G4ParticleHPElasticData.hh"
|
||||
#include "G4ParticleHPManager.hh"
|
||||
#include "G4PhysicalConstants.hh"
|
||||
#include "G4SystemOfUnits.hh"
|
||||
#include "G4Neutron.hh"
|
||||
#include "G4ElementTable.hh"
|
||||
#include "G4ParticleHPData.hh"
|
||||
#include "G4ParticleHPManager.hh"
|
||||
|
||||
G4ParticleHPElasticData::G4ParticleHPElasticData()
|
||||
:G4VCrossSectionDataSet("NeutronHPElasticXS")
|
||||
{
|
||||
SetMinKinEnergy( 0*MeV );
|
||||
SetMaxKinEnergy( 20*MeV );
|
||||
|
||||
ke_cache = 0.0;
|
||||
xs_cache = 0.0;
|
||||
element_cache = NULL;
|
||||
material_cache = NULL;
|
||||
|
||||
theCrossSections = 0;
|
||||
onFlightDB = true;
|
||||
// BuildPhysicsTable( *G4Neutron::Neutron() );
|
||||
}
|
||||
|
||||
G4ParticleHPElasticData::~G4ParticleHPElasticData()
|
||||
{
|
||||
if ( theCrossSections != NULL ) {
|
||||
theCrossSections->clearAndDestroy();
|
||||
delete theCrossSections;
|
||||
theCrossSections = NULL;
|
||||
}
|
||||
}
|
||||
|
||||
G4bool G4ParticleHPElasticData::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() != G4Neutron::Neutron() ) return false;
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
G4double G4ParticleHPElasticData::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;
|
||||
}
|
||||
|
||||
/*
|
||||
G4bool G4ParticleHPElasticData::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 G4ParticleHPElasticData::BuildPhysicsTable(const G4ParticleDefinition& aP)
|
||||
{
|
||||
|
||||
if(&aP!=G4Neutron::Neutron())
|
||||
throw G4HadronicException(__FILE__, __LINE__, "Attempt to use NeutronHP data for particles other than neutrons!!!");
|
||||
|
||||
//080428
|
||||
if ( getenv( "G4NEUTRONHP_NEGLECT_DOPPLER" ) )
|
||||
{
|
||||
G4cout << "Find environment variable of \"G4NEUTRONHP_NEGLECT_DOPPLER\"." << G4endl;
|
||||
G4cout << "On the fly Doppler broadening will be neglect in the cross section calculation of elastic scattering of neutrons (<20MeV)." << G4endl;
|
||||
onFlightDB = false;
|
||||
}
|
||||
|
||||
size_t numberOfElements = G4Element::GetNumberOfElements();
|
||||
// TKDB
|
||||
//if ( theCrossSections == 0 ) theCrossSections = new G4PhysicsTable( numberOfElements );
|
||||
if ( theCrossSections == NULL )
|
||||
theCrossSections = new G4PhysicsTable( numberOfElements );
|
||||
else
|
||||
theCrossSections->clearAndDestroy();
|
||||
|
||||
// make a PhysicsVector for each element
|
||||
|
||||
static G4ThreadLocal G4ElementTable *theElementTable = 0 ; if (!theElementTable) theElementTable= G4Element::GetElementTable();
|
||||
for( size_t i=0; i<numberOfElements; ++i )
|
||||
{
|
||||
G4PhysicsVector* physVec = G4ParticleHPData::
|
||||
Instance(G4Neutron::Neutron())->MakePhysicsVector((*theElementTable)[i], this);
|
||||
theCrossSections->push_back(physVec);
|
||||
}
|
||||
}
|
||||
|
||||
void G4ParticleHPElasticData::DumpPhysicsTable(const G4ParticleDefinition& aP)
|
||||
{
|
||||
if(&aP!=G4Neutron::Neutron())
|
||||
throw G4HadronicException(__FILE__, __LINE__, "Attempt to use NeutronHP data for particles other than neutrons!!!");
|
||||
|
||||
//
|
||||
// Dump element based cross section
|
||||
// range 10e-5 eV to 20 MeV
|
||||
// 10 point per decade
|
||||
// in barn
|
||||
//
|
||||
|
||||
G4cout << G4endl;
|
||||
G4cout << G4endl;
|
||||
G4cout << "Elastic 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 ) *eV;
|
||||
G4bool outOfRange = false;
|
||||
|
||||
if ( eKinetic < 20*MeV )
|
||||
{
|
||||
G4cout << eKinetic/eV << " " << (*((*theCrossSections)(i))).GetValue(eKinetic, outOfRange)/barn << G4endl;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
G4cout << G4endl;
|
||||
}
|
||||
|
||||
|
||||
// G4cout << "G4ParticleHPElasticData::DumpPhysicsTable still to be implemented"<<G4endl;
|
||||
}
|
||||
|
||||
#include "G4Nucleus.hh"
|
||||
#include "G4NucleiProperties.hh"
|
||||
#include "G4Neutron.hh"
|
||||
#include "G4Electron.hh"
|
||||
|
||||
G4double G4ParticleHPElasticData::
|
||||
GetCrossSection(const G4DynamicParticle* aP, const G4Element*anE, G4double aT)
|
||||
{
|
||||
G4double result = 0;
|
||||
G4bool outOfRange;
|
||||
G4int index = anE->GetIndex();
|
||||
|
||||
// prepare neutron
|
||||
G4double eKinetic = aP->GetKineticEnergy();
|
||||
|
||||
// T. K.
|
||||
// if ( getenv( "G4NEUTRONHP_NEGLECT_DOPPLER" ) )
|
||||
//080428
|
||||
if ( !onFlightDB )
|
||||
{
|
||||
G4double factor = 1.0;
|
||||
if ( eKinetic < aT * 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( aP->GetDefinition() );
|
||||
theNeutron.SetMomentum( aP->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) )
|
||||
) / G4Neutron::Neutron()->GetPDGMass();
|
||||
|
||||
G4ReactionProduct boosted;
|
||||
G4double aXsection;
|
||||
|
||||
// MC integration loop
|
||||
G4int counter = 0;
|
||||
G4double buffer = 0;
|
||||
G4int size = G4int(std::max(10., aT/60*kelvin));
|
||||
G4ThreeVector neutronVelocity = 1./G4Neutron::Neutron()->GetPDGMass()*theNeutron.GetMomentum();
|
||||
G4double neutronVMag = neutronVelocity.mag();
|
||||
|
||||
while(counter == 0 || std::abs(buffer-result/std::max(1,counter)) > 0.03*buffer)
|
||||
{
|
||||
if(counter) buffer = result/counter;
|
||||
while (counter<size)
|
||||
{
|
||||
counter ++;
|
||||
G4ReactionProduct aThermalNuc = aNuc.GetThermalNucleus(eleMass, aT);
|
||||
boosted.Lorentz(theNeutron, aThermalNuc);
|
||||
G4double theEkin = boosted.GetKineticEnergy();
|
||||
aXsection = (*((*theCrossSections)(index))).GetValue(theEkin, outOfRange);
|
||||
// velocity correction.
|
||||
G4ThreeVector targetVelocity = 1./aThermalNuc.GetMass()*aThermalNuc.GetMomentum();
|
||||
aXsection *= (targetVelocity-neutronVelocity).mag()/neutronVMag;
|
||||
result += aXsection;
|
||||
}
|
||||
size += size;
|
||||
}
|
||||
result /= counter;
|
||||
/*
|
||||
// Checking impact of G4NEUTRONHP_NEGLECT_DOPPLER
|
||||
G4cout << " result " << result << " "
|
||||
<< (*((*theCrossSections)(index))).GetValue(eKinetic, outOfRange) << " "
|
||||
<< (*((*theCrossSections)(index))).GetValue(eKinetic, outOfRange) /result << G4endl;
|
||||
*/
|
||||
return result;
|
||||
}
|
||||
|
||||
G4int G4ParticleHPElasticData::
|
||||
GetVerboseLevel() const
|
||||
{
|
||||
return G4ParticleHPManager::GetInstance()->GetVerboseLevel();
|
||||
}
|
||||
|
||||
void G4ParticleHPElasticData::
|
||||
SetVerboseLevel( G4int newValue )
|
||||
{
|
||||
G4ParticleHPManager::GetInstance()->SetVerboseLevel(newValue);
|
||||
}
|
||||
Reference in New Issue
Block a user