Files
geant4/source/processes/hadronic/models/de_excitation/handler/src/G4ExcitationHandler.cc
T
2022-12-09 14:43:28 +01:00

678 lines
23 KiB
C++

//
// ********************************************************************
// * 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. *
// ********************************************************************
//
// Hadronic Process: Nuclear De-excitations
// by V. Lara (May 1998)
//
//
// Modified:
// 30 June 1998 by V. Lara:
// -Modified the Transform method for use G4ParticleTable and
// therefore G4IonTable. It makes possible to convert all kind
// of fragments (G4Fragment) produced in deexcitation to
// G4DynamicParticle
// -It uses default algorithms for:
// Evaporation: G4Evaporation
// MultiFragmentation: G4StatMF
// Fermi Breakup model: G4FermiBreakUp
// 24 Jul 2008 by M. A. Cortes Giraldo:
// -Max Z,A for Fermi Break-Up turns to 9,17 by default
// -BreakItUp() reorganised and bug in Evaporation loop fixed
// -Transform() optimised
// (September 2008) by J. M. Quesada. External choices have been added for :
// -inverse cross section option (default OPTxs=3)
// -superimposed Coulomb barrier (if useSICB is set true, by default it is false)
// September 2009 by J. M. Quesada:
// -according to Igor Pshenichnov, SMM will be applied (just in case) only once.
// 27 Nov 2009 by V.Ivanchenko:
// -cleanup the logic, reduce number internal vectors, fixed memory leak.
// 11 May 2010 by V.Ivanchenko:
// -FermiBreakUp activated, used integer Z and A, used BreakUpFragment method for
// final photon deexcitation; used check on adundance of a fragment, decay
// unstable fragments with A <5
// 22 March 2011 by V.Ivanchenko: general cleanup and addition of a condition:
// products of Fermi Break Up cannot be further deexcited by this model
// 30 March 2011 by V.Ivanchenko removed private inline methods, moved Set methods
// to the source
// 23 January 2012 by V.Ivanchenko general cleanup including destruction of
// objects, propagate G4PhotonEvaporation pointer to G4Evaporation class and
// not delete it here
#include "G4ExcitationHandler.hh"
#include "G4SystemOfUnits.hh"
#include "G4LorentzVector.hh"
#include "G4ThreeVector.hh"
#include "G4ParticleTable.hh"
#include "G4ParticleTypes.hh"
#include "G4Ions.hh"
#include "G4Electron.hh"
#include "G4Lambda.hh"
#include "G4VMultiFragmentation.hh"
#include "G4VFermiBreakUp.hh"
#include "G4Element.hh"
#include "G4ElementTable.hh"
#include "G4VEvaporation.hh"
#include "G4VEvaporationChannel.hh"
#include "G4Evaporation.hh"
#include "G4PhotonEvaporation.hh"
#include "G4StatMF.hh"
#include "G4FermiBreakUpVI.hh"
#include "G4NuclearLevelData.hh"
#include "G4Pow.hh"
#include "G4PhysicsModelCatalog.hh"
G4ExcitationHandler::G4ExcitationHandler()
: icID(0),maxZForFermiBreakUp(9),maxAForFermiBreakUp(17),
fVerbose(1),fWarnings(0),minEForMultiFrag(1.*CLHEP::TeV),
minExcitation(1.*CLHEP::eV),maxExcitation(100.*CLHEP::MeV),
isInitialised(false),isEvapLocal(true),isActive(true)
{
thePartTable = G4ParticleTable::GetParticleTable();
theTableOfIons = thePartTable->GetIonTable();
nist = G4NistManager::Instance();
theMultiFragmentation = nullptr;
theFermiModel = nullptr;
theEvaporation = nullptr;
thePhotonEvaporation = nullptr;
theResults.reserve(60);
results.reserve(30);
theEvapList.reserve(30);
G4Pow::GetInstance();
theElectron = G4Electron::Electron();
theNeutron = G4Neutron::NeutronDefinition();
theProton = G4Proton::ProtonDefinition();
theDeuteron = G4Deuteron::DeuteronDefinition();
theTriton = G4Triton::TritonDefinition();
theHe3 = G4He3::He3Definition();
theAlpha = G4Alpha::AlphaDefinition();
theLambda = G4Lambda::Lambda();
fLambdaMass = theLambda->GetPDGMass();
if(fVerbose > 1) { G4cout << "### New handler " << this << G4endl; }
}
G4ExcitationHandler::~G4ExcitationHandler()
{
delete theMultiFragmentation;
delete theFermiModel;
if(isEvapLocal) { delete theEvaporation; }
}
void G4ExcitationHandler::SetParameters()
{
G4NuclearLevelData* ndata = G4NuclearLevelData::GetInstance();
auto param = ndata->GetParameters();
isActive = true;
// check if de-excitation is needed
if(fDummy == param->GetDeexChannelsType()) {
isActive = false;
} else {
// upload data for elements used in geometry
G4int Zmax = 20;
const G4ElementTable* table = G4Element::GetElementTable();
for(auto & elm : *table) { Zmax = std::max(Zmax, elm->GetZasInt()); }
ndata->UploadNuclearLevelData(Zmax+1);
}
minEForMultiFrag = param->GetMinExPerNucleounForMF();
minExcitation = param->GetMinExcitation();
maxExcitation = param->GetPrecoHighEnergy();
icID = G4PhysicsModelCatalog::GetModelID("model_e-InternalConversion");
// allowing local debug printout
fVerbose = std::max(fVerbose, param->GetVerbose());
if(isActive) {
if(!thePhotonEvaporation) { SetPhotonEvaporation(new G4PhotonEvaporation()); }
if(!theEvaporation) {
SetEvaporation(new G4Evaporation(thePhotonEvaporation), true);
}
if(!theFermiModel) { SetFermiModel(new G4FermiBreakUpVI()); }
if(!theMultiFragmentation) { SetMultiFragmentation(new G4StatMF()); }
}
theFermiModel->SetVerbose(fVerbose);
if(fVerbose > 1) {
G4cout << "G4ExcitationHandler::SetParameters() done " << this << G4endl;
}
}
void G4ExcitationHandler::Initialise()
{
if(isInitialised) { return; }
if(fVerbose > 1) {
G4cout << "G4ExcitationHandler::Initialise() started " << this << G4endl;
}
G4DeexPrecoParameters* param =
G4NuclearLevelData::GetInstance()->GetParameters();
isInitialised = true;
SetParameters();
if(isActive) {
theFermiModel->Initialise();
theEvaporation->InitialiseChannels();
}
// dump level is controlled by parameter class
param->Dump();
}
void G4ExcitationHandler::SetEvaporation(G4VEvaporation* ptr, G4bool flag)
{
if(ptr && ptr != theEvaporation) {
delete theEvaporation;
theEvaporation = ptr;
SetPhotonEvaporation(ptr->GetPhotonEvaporation());
theEvaporation->SetFermiBreakUp(theFermiModel);
isEvapLocal = flag;
if(fVerbose > 1) {
G4cout << "G4ExcitationHandler::SetEvaporation() for " << this << G4endl;
}
}
}
void
G4ExcitationHandler::SetMultiFragmentation(G4VMultiFragmentation* ptr)
{
if(ptr && ptr != theMultiFragmentation) {
delete theMultiFragmentation;
theMultiFragmentation = ptr;
}
}
void G4ExcitationHandler::SetFermiModel(G4VFermiBreakUp* ptr)
{
if(ptr && ptr != theFermiModel) {
delete theFermiModel;
theFermiModel = ptr;
if(theEvaporation) { theEvaporation->SetFermiBreakUp(theFermiModel); }
}
}
void
G4ExcitationHandler::SetPhotonEvaporation(G4VEvaporationChannel* ptr)
{
if(ptr && ptr != thePhotonEvaporation) {
delete thePhotonEvaporation;
thePhotonEvaporation = ptr;
if(theEvaporation) { theEvaporation->SetPhotonEvaporation(ptr); }
if(fVerbose > 1) {
G4cout << "G4ExcitationHandler::SetPhotonEvaporation() " << ptr
<< " for handler " << this << G4endl;
}
}
}
void G4ExcitationHandler::SetDeexChannelsType(G4DeexChannelType val)
{
G4Evaporation* evap = static_cast<G4Evaporation*>(theEvaporation);
if(fVerbose > 1) {
G4cout << "G4ExcitationHandler::SetDeexChannelsType " << val
<< " for " << this << G4endl;
}
if(val == fDummy) {
isActive = false;
return;
}
if(!evap) { return; }
if(val == fEvaporation) {
evap->SetDefaultChannel();
} else if(val == fCombined) {
evap->SetCombinedChannel();
} else if(val == fGEM) {
evap->SetGEMChannel();
} else if(val == fGEMVI) {
evap->SetGEMVIChannel();
}
evap->InitialiseChannels();
if(fVerbose > 1) {
if(G4Threading::IsMasterThread()) {
G4cout << "Number of de-excitation channels is changed to: "
<< theEvaporation->GetNumberOfChannels();
G4cout << " " << this;
}
G4cout << G4endl;
}
}
G4VEvaporation* G4ExcitationHandler::GetEvaporation()
{
if(!theEvaporation) { SetParameters(); }
return theEvaporation;
}
G4VMultiFragmentation* G4ExcitationHandler::GetMultiFragmentation()
{
if(!theMultiFragmentation) { SetParameters(); }
return theMultiFragmentation;
}
G4VFermiBreakUp* G4ExcitationHandler::GetFermiModel()
{
if(!theFermiModel) { SetParameters(); }
return theFermiModel;
}
G4VEvaporationChannel* G4ExcitationHandler::GetPhotonEvaporation()
{
if(!thePhotonEvaporation) { SetParameters(); }
return thePhotonEvaporation;
}
G4ReactionProductVector *
G4ExcitationHandler::BreakItUp(const G4Fragment & theInitialState)
{
// Variables existing until end of method
G4Fragment * theInitialStatePtr = new G4Fragment(theInitialState);
if(fVerbose > 1) {
G4cout << "@@@@@@@@@@ Start G4Excitation Handler @@@@@@@@@@@@@ " << G4endl;
G4cout << theInitialState << G4endl;
}
if(!isInitialised) { Initialise(); }
// pointer to fragment vector which receives temporal results
G4FragmentVector * theTempResult = nullptr;
theResults.clear();
theEvapList.clear();
// Variables to describe the excited configuration
G4double exEnergy = theInitialState.GetExcitationEnergy();
G4int A = theInitialState.GetA_asInt();
G4int Z = theInitialState.GetZ_asInt();
G4int nL = theInitialState.GetNumberOfLambdas();
// too much excitation
if(exEnergy > A*maxExcitation && A > 0) {
++fWarnings;
if(fWarnings < 0) {
G4ExceptionDescription ed;
ed << "High excitation Fragment Z= " << Z << " A= " << A
<< " Eex/A(MeV)= " << exEnergy/A;
G4Exception("G4ExcitationHandler::BreakItUp()","had0034",JustWarning,ed,"");
}
}
// for hyper-nuclei subtract lambdas from the projectile fragment
G4double lambdaF = 0.0;
G4LorentzVector lambdaLV = theInitialStatePtr->GetMomentum();
if(0 < nL) {
// is it a stable hyper-nuclei?
if(A >= 3 && A <= 5 && nL <= 2) {
G4int pdg = 0;
if(3 == A && 1 == nL) {
pdg = 1010010030;
} else if(5 == A && 2 == Z && 1 == nL) {
pdg = 1010020050;
} else if(4 == A) {
if(1 == Z && 1 == nL) {
pdg = 1010010040;
} else if(2 == Z && 1 == nL) {
pdg = 1010020040;
} else if(0 == Z && 2 == nL) {
pdg = 1020000040;
} else if(1 == Z && 2 == nL) {
pdg = 1020010040;
}
}
// initial state is one of hyper-nuclei
if(0 < pdg) {
const G4ParticleDefinition* part = thePartTable->FindParticle(pdg);
if(nullptr != part) {
G4ReactionProduct* theNew = new G4ReactionProduct(part);
G4ThreeVector dir = G4ThreeVector( 0.0, 0.0, 0.0 );
if ( lambdaLV.vect().mag() > CLHEP::eV ) {
dir = lambdaLV.vect().unit();
}
G4double mass = part->GetPDGMass();
G4double etot = std::max(lambdaLV.e(), mass);
dir *= std::sqrt((etot - mass)*(etot + mass));
theNew->SetMomentum(dir);
theNew->SetTotalEnergy(etot);
theNew->SetFormationTime(theInitialState.GetCreationTime());
theNew->SetCreatorModelID(theInitialState.GetCreatorModelID());
G4ReactionProductVector* v = new G4ReactionProductVector();
v->push_back(theNew);
return v;
}
}
}
G4double mass = theInitialStatePtr->GetGroundStateMass();
lambdaF = nL*(fLambdaMass - CLHEP::neutron_mass_c2)/mass;
// de-excitation with neutrons instead of lambda inside the fragment
theInitialStatePtr->SetZAandMomentum(lambdaLV*(1. - lambdaF), Z, A, 0);
// 4-momentum not used in de-excitation
lambdaLV *= lambdaF;
} else if(0 > nL) {
++fWarnings;
if(fWarnings < 0) {
G4ExceptionDescription ed;
ed << "Fragment with negative L: Z=" << Z << " A=" << A << " L=" << nL
<< " Eex/A(MeV)= " << exEnergy/A;
G4Exception("G4ExcitationHandler::BreakItUp()","had0034",JustWarning,ed,"");
}
}
// In case A <= 1 the fragment will not perform any nucleon emission
if (A <= 1 || !isActive) {
theResults.push_back( theInitialStatePtr );
// check if a fragment is stable
} else if(exEnergy < minExcitation &&
nist->GetIsotopeAbundance(Z, A) > 0.0) {
theResults.push_back( theInitialStatePtr );
// JMQ 150909: first step in de-excitation is treated separately
// Fragments after the first step are stored in theEvapList
} else {
if((A<maxAForFermiBreakUp && Z<maxZForFermiBreakUp)
|| exEnergy <= minEForMultiFrag*A) {
theEvapList.push_back(theInitialStatePtr);
// Statistical Multifragmentation will take place only once
} else {
theTempResult = theMultiFragmentation->BreakItUp(theInitialState);
if(!theTempResult) {
theEvapList.push_back(theInitialStatePtr);
} else {
size_t nsec = theTempResult->size();
// no fragmentation
if(0 == nsec) {
theEvapList.push_back(theInitialStatePtr);
// secondary are produced - sort out secondary fragments
} else {
G4bool deletePrimary = true;
for (auto ptr : *theTempResult) {
if(ptr == theInitialStatePtr) { deletePrimary = false; }
SortSecondaryFragment(ptr);
}
if( deletePrimary ) { delete theInitialStatePtr; }
}
delete theTempResult; // end multifragmentation
}
}
}
if(fVerbose > 2) {
G4cout << "## After first step of handler " << theEvapList.size()
<< " for evap; "
<< theResults.size() << " results. " << G4endl;
}
// -----------------------------------
// FermiBreakUp and De-excitation loop
// -----------------------------------
static const G4int countmax = 1000;
size_t kk;
for (kk=0; kk<theEvapList.size(); ++kk) {
G4Fragment* frag = theEvapList[kk];
if(fVerbose > 3) {
G4cout << "Next evaporate: " << G4endl;
G4cout << *frag << G4endl;
}
if(kk >= countmax) {
G4ExceptionDescription ed;
ed << "Infinite loop in the de-excitation module: " << kk
<< " iterations \n"
<< " Initial fragment: \n" << theInitialState
<< "\n Current fragment: \n" << *frag;
G4Exception("G4ExcitationHandler::BreakItUp","had0333",FatalException,
ed,"Stop execution");
}
A = frag->GetA_asInt();
Z = frag->GetZ_asInt();
results.clear();
if(fVerbose > 2) {
G4cout << "G4ExcitationHandler# " << kk << " Z= " << Z << " A= " << A
<< " Eex(MeV)= " << frag->GetExcitationEnergy() << G4endl;
}
// Fermi Break-Up
if(theFermiModel->IsApplicable(Z, A, frag->GetExcitationEnergy())) {
theFermiModel->BreakFragment(&results, frag);
size_t nsec = results.size();
if(fVerbose > 2) { G4cout << "FermiBreakUp Nsec= " << nsec << G4endl; }
// FBU takes care to delete input fragment or add it to the results
// The secondary may be excited - photo-evaporation should be applied
if(1 < nsec) {
for(auto & res : results) {
SortSecondaryFragment(res);
}
continue;
}
// evaporation will be applied
}
// apply Evaporation, residual nucleus is always added to the results
// photon evaporation is possible
theEvaporation->BreakFragment(&results, frag);
if(fVerbose > 3) {
G4cout << "Evaporation Nsec= " << results.size() << G4endl;
}
if(0 == results.size()) {
theResults.push_back(frag);
} else {
SortSecondaryFragment(frag);
}
// Sort out secondary fragments
for (auto & res : results) {
if(fVerbose > 4) {
G4cout << "Evaporated product #" << *res << G4endl;
}
SortSecondaryFragment(res);
} // end of loop on secondary
} // end of the loop over theEvapList
if(fVerbose > 2) {
G4cout << "## After 2nd step of handler " << theEvapList.size()
<< " was evap; "
<< theResults.size() << " results. " << G4endl;
}
G4ReactionProductVector * theReactionProductVector =
new G4ReactionProductVector();
// MAC (24/07/08)
// To optimise the storing speed, we reserve space
// in memory for the vector
theReactionProductVector->reserve( theResults.size() );
if(fVerbose > 2) {
G4cout << "### ExcitationHandler provides " << theResults.size()
<< " evaporated products:" << G4endl;
}
G4LorentzVector partOfLambdaLV;
if ( nL > 0 ) partOfLambdaLV = lambdaLV/(G4double)nL;
for (auto & frag : theResults) {
G4LorentzVector lv0 = frag->GetMomentum();
G4double etot = lv0.e();
// in the case of dummy de-excitation, excitation energy is transfered
// into kinetic energy of output ion
if(!isActive) {
G4double mass = frag->GetGroundStateMass();
G4double ptot = lv0.vect().mag();
G4double fac = (etot <= mass || 0.0 == ptot) ? 0.0
: std::sqrt((etot - mass)*(etot + mass))/ptot;
G4LorentzVector lv((frag->GetMomentum()).px()*fac,
(frag->GetMomentum()).py()*fac,
(frag->GetMomentum()).pz()*fac, etot);
frag->SetMomentum(lv);
}
if(fVerbose > 3) {
G4cout << *frag;
if(frag->NuclearPolarization()) {
G4cout << " " << frag->NuclearPolarization();
}
G4cout << G4endl;
}
G4int fragmentA = frag->GetA_asInt();
G4int fragmentZ = frag->GetZ_asInt();
G4double eexc = 0.0;
const G4ParticleDefinition* theKindOfFragment = nullptr;
G4bool isHyperN = false;
if (fragmentA == 0) { // photon or e-
theKindOfFragment = frag->GetParticleDefinition();
} else if (fragmentA == 1 && fragmentZ == 0) { // neutron
theKindOfFragment = theNeutron;
} else if (fragmentA == 1 && fragmentZ == 1) { // proton
theKindOfFragment = theProton;
} else if (fragmentA == 2 && fragmentZ == 1) { // deuteron
theKindOfFragment = theDeuteron;
} else if (fragmentA == 3 && fragmentZ == 1) { // triton
theKindOfFragment = theTriton;
if(0 < nL) {
const G4ParticleDefinition* p = thePartTable->FindParticle(1010010030);
if(nullptr != p) {
theKindOfFragment = p;
isHyperN = true;
--nL;
}
}
} else if (fragmentA == 3 && fragmentZ == 2) { // helium3
theKindOfFragment = theHe3;
} else if (fragmentA == 4 && fragmentZ == 2) { // alpha
theKindOfFragment = theAlpha;
if(0 < nL) {
const G4ParticleDefinition* p = thePartTable->FindParticle(1010020040);
if(nullptr != p) {
theKindOfFragment = p;
isHyperN = true;
--nL;
}
}
} else {
// fragment
eexc = frag->GetExcitationEnergy();
G4int idxf = frag->GetFloatingLevelNumber();
if(eexc < minExcitation) {
eexc = 0.0;
idxf = 0;
}
theKindOfFragment = theTableOfIons->GetIon(fragmentZ, fragmentA, eexc,
G4Ions::FloatLevelBase(idxf));
if(fVerbose > 3) {
G4cout << "### EXCH: Find ion Z= " << fragmentZ
<< " A= " << fragmentA
<< " Eexc(MeV)= " << eexc/MeV << " idx= " << idxf
<< G4endl;
}
}
// fragment identified
if(nullptr != theKindOfFragment) {
G4ReactionProduct * theNew = new G4ReactionProduct(theKindOfFragment);
if(isHyperN) {
G4LorentzVector lv = lv0 + partOfLambdaLV;
G4ThreeVector dir = lv.vect().unit();
G4double mass = theKindOfFragment->GetPDGMass();
etot = std::max(lv.e(), mass);
G4double ptot = std::sqrt((etot - mass)*(etot + mass));
dir *= ptot;
theNew->SetMomentum(dir);
// remaining not compensated 4-momentum
lambdaLV += (lv0 - G4LorentzVector(dir, etot));
} else {
theNew->SetMomentum(lv0.vect());
}
theNew->SetTotalEnergy(etot);
theNew->SetFormationTime(frag->GetCreationTime());
if(theKindOfFragment == theElectron) {
theNew->SetCreatorModelID(icID);
} else {
theNew->SetCreatorModelID(frag->GetCreatorModelID());
}
theReactionProductVector->push_back(theNew);
// fragment not found out ground state is created
} else {
theKindOfFragment =
theTableOfIons->GetIon(fragmentZ,fragmentA,0.0,noFloat,0);
if(theKindOfFragment) {
G4ThreeVector mom(0.0,0.0,0.0);
G4double ionmass = theKindOfFragment->GetPDGMass();
if(etot <= ionmass) {
etot = ionmass;
} else {
G4double ptot = std::sqrt((etot - ionmass)*(etot + ionmass));
mom = (frag->GetMomentum().vect().unit())*ptot;
}
G4ReactionProduct * theNew = new G4ReactionProduct(theKindOfFragment);
theNew->SetMomentum(mom);
theNew->SetTotalEnergy(etot);
theNew->SetFormationTime(frag->GetCreationTime());
theNew->SetCreatorModelID(frag->GetCreatorModelID());
theReactionProductVector->push_back(theNew);
if(fVerbose > 3) {
G4cout << " ground state, energy corrected E(MeV)= "
<< etot << G4endl;
}
}
}
delete frag;
}
// remaining lambdas are free; conserve quantum numbers but
// not 4-momentum
if(0 < nL) {
G4ThreeVector dir = G4ThreeVector( 0.0, 0.0, 0.0 );
if ( lambdaLV.vect().mag() > CLHEP::eV ) {
dir = lambdaLV.vect().unit();
}
G4double etot = std::max(lambdaLV.e()/(G4double)nL, fLambdaMass);
dir *= std::sqrt((etot - fLambdaMass)*(etot + fLambdaMass));
for(G4int i=0; i<nL; ++i) {
G4ReactionProduct* theNew = new G4ReactionProduct(theLambda);
theNew->SetMomentum(dir);
theNew->SetTotalEnergy(etot);
theNew->SetFormationTime(theInitialState.GetCreationTime());
theNew->SetCreatorModelID(theInitialState.GetCreatorModelID());
theReactionProductVector->push_back(theNew);
}
}
if(fVerbose > 3) {
G4cout << "@@@@@@@@@@ End G4Excitation Handler "<< G4endl;
}
return theReactionProductVector;
}
void G4ExcitationHandler::ModelDescription(std::ostream& outFile) const
{
outFile << "G4ExcitationHandler description\n"
<< "This class samples de-excitation of excited nucleus using\n"
<< "Fermi Break-up model for light fragments (Z < 9, A < 17), "
<< "evaporation, fission, and photo-evaporation models. Evaporated\n"
<< "particle may be proton, neutron, and other light fragment \n"
<< "(Z < 13, A < 29). During photon evaporation produced gamma \n"
<< "or electrons due to internal conversion \n";
}