G4ExcitationHandler.cc

Go to the documentation of this file.

//
// ********************************************************************
// * 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.          *
// ********************************************************************
//
// $Id: G4ExcitationHandler.cc 74999 2013-10-25 10:56:56Z gcosmo $
//
// 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 <list>

#include "G4ExcitationHandler.hh"
#include "G4SystemOfUnits.hh"
#include "G4LorentzVector.hh"
#include "G4NistManager.hh"
#include "G4ParticleTable.hh"
#include "G4ParticleTypes.hh"
#include "G4Ions.hh"

#include "G4VMultiFragmentation.hh"
#include "G4VFermiBreakUp.hh"
#include "G4VFermiFragment.hh"

#include "G4VEvaporation.hh"
#include "G4VEvaporationChannel.hh"
#include "G4VPhotonEvaporation.hh"
#include "G4Evaporation.hh"
#include "G4StatMF.hh"
#include "G4PhotonEvaporation.hh"
#include "G4FermiBreakUp.hh"
#include "G4FermiFragmentsPool.hh"
#include "G4Pow.hh"

G4ExcitationHandler::G4ExcitationHandler():
  maxZForFermiBreakUp(9),maxAForFermiBreakUp(17),minEForMultiFrag(4*GeV),
  minExcitation(keV),OPTxs(3),useSICB(false),isEvapLocal(true)
{                                                                          
  theTableOfIons = G4ParticleTable::GetParticleTable()->GetIonTable();
  
  theMultiFragmentation = new G4StatMF;
  theFermiModel = new G4FermiBreakUp;
  thePhotonEvaporation = new G4PhotonEvaporation("ExcitationHandler",fDelayedEmission);
  theEvaporation = new G4Evaporation(thePhotonEvaporation);
  thePool = G4FermiFragmentsPool::Instance();
  SetParameters();
  G4Pow::GetInstance();
}

G4ExcitationHandler::~G4ExcitationHandler()
{
  if(isEvapLocal) { delete theEvaporation; }
  delete theMultiFragmentation;
  delete theFermiModel;
}

void G4ExcitationHandler::SetParameters()
{
  //for inverse cross section choice
  theEvaporation->SetOPTxs(OPTxs);
  //for the choice of superimposed Coulomb Barrier for inverse cross sections
  theEvaporation->UseSICB(useSICB);
  theEvaporation->Initialise();
}

G4ReactionProductVector * 
G4ExcitationHandler::BreakItUp(const G4Fragment & theInitialState) const
{   
  //G4cout << "@@@@@@@@@@ Start G4Excitation Handler @@@@@@@@@@@@@" << G4endl;
  
  // Variables existing until end of method
  G4Fragment * theInitialStatePtr = new G4Fragment(theInitialState);

  // pointer to fragment vector which receives temporal results
  G4FragmentVector * theTempResult = 0;     
 
  // list of fragments to apply Evaporation or Fermi Break-Up
  std::list<G4Fragment*> theEvapList;        

  // list of fragments to apply PhotonEvaporation 
  std::list<G4Fragment*> thePhotoEvapList;

  // list of fragments to store final result   
  std::list<G4Fragment*> theResults;
  //
  //G4cout << theInitialState << G4endl;  
  
  // Variables to describe the excited configuration
  G4double exEnergy = theInitialState.GetExcitationEnergy();
  G4int A = theInitialState.GetA_asInt();
  G4int Z = theInitialState.GetZ_asInt();

  G4NistManager* nist = G4NistManager::Instance();
  
  // In case A <= 1 the fragment will not perform any nucleon emission
  if (A <= 1)
    {
      theResults.push_back( theInitialStatePtr );
    }
  // check if a fragment is stable
  else if(exEnergy < minExcitation && nist->GetIsotopeAbundance(Z, A) > 0.0)
    {
      theResults.push_back( theInitialStatePtr );
    }  
  else  
    {      
      // JMQ 150909: first step in de-excitation is treated separately 
      // Fragments after the first step are stored in theEvapList 
      // Statistical Multifragmentation will take place only once
      //
      // move to evaporation loop
      if((A<maxAForFermiBreakUp && Z<maxZForFermiBreakUp) 
     || exEnergy <= minEForMultiFrag*A) 
    { 
      theEvapList.push_back(theInitialStatePtr); 
    }
      else  
        {
          theTempResult = theMultiFragmentation->BreakItUp(theInitialState);
      if(!theTempResult) { theEvapList.push_back(theInitialStatePtr); }
      else {
        size_t nsec = theTempResult->size();
        if(0 == nsec) { theEvapList.push_back(theInitialStatePtr); }
        else {
          // secondary are produced
          // Sort out secondary fragments
          G4bool deletePrimary = true;
          G4FragmentVector::iterator j;
          for (j = theTempResult->begin(); j != theTempResult->end(); ++j) {  
        if((*j) == theInitialStatePtr) { deletePrimary = false; }
        A = (*j)->GetA_asInt();  

        // gamma, p, n
        if(A <= 1) { theResults.push_back(*j); }

        // Analyse fragment A > 1
        else {
          G4double exEnergy1 = (*j)->GetExcitationEnergy();

          // cold fragments
          if(exEnergy1 < minExcitation) {
            Z = (*j)->GetZ_asInt(); 
            if(nist->GetIsotopeAbundance(Z, A) > 0.0) { 
              theResults.push_back(*j); // stable fragment 

            } else {

              // check if the cold fragment is from FBU pool
              const G4VFermiFragment* ffrag = thePool->GetFragment(Z, A);
              if(ffrag) {
            if(ffrag->IsStable()) { theResults.push_back(*j); }
            else                  { theEvapList.push_back(*j); }

            // cold fragment may be unstable
              } else {
            theEvapList.push_back(*j); 
              }
            }

            // hot fragments are unstable
          } else { theEvapList.push_back(*j); } 
        }
          }
          if( deletePrimary ) { delete theInitialStatePtr; }
        }
        delete theTempResult;
      }
    }
    }
  /*
  G4cout << "## After first step " << theEvapList.size() << " for evap;  "
   << thePhotoEvapList.size() << " for photo-evap; " 
   << theResults.size() << " results. " << G4endl; 
  */
  // -----------------------------------
  // FermiBreakUp and De-excitation loop
  // -----------------------------------
      
  std::list<G4Fragment*>::iterator iList;
  for (iList = theEvapList.begin(); iList != theEvapList.end(); ++iList)
    {
      //G4cout << "Next evaporate: " << G4endl;  
      //G4cout << *iList << G4endl;  
      A = (*iList)->GetA_asInt(); 
      Z = (*iList)->GetZ_asInt();
      
      // Fermi Break-Up 
      G4bool wasFBU = false;
      if (A < maxAForFermiBreakUp && Z < maxZForFermiBreakUp) 
    {
      theTempResult = theFermiModel->BreakItUp(*(*iList));
      wasFBU = true; 
      // if initial fragment returned unchanged try to evaporate it
          if(1 == theTempResult->size()) {
            delete theTempResult;
        theTempResult = theEvaporation->BreakItUp(*(*iList)); 
      }
    }
      else // apply Evaporation in another case
    {
      theTempResult = theEvaporation->BreakItUp(*(*iList));
    }
      
      G4bool deletePrimary = true;
      size_t nsec = theTempResult->size();
      //G4cout << "Nproducts= " << nsec << G4endl;  
          
      // Sort out secondary fragments
      if ( nsec > 0 ) {
    G4FragmentVector::iterator j;
    for (j = theTempResult->begin(); j != theTempResult->end(); ++j) {
      if((*j) == (*iList)) { deletePrimary = false; }

      //G4cout << *j << G4endl;  
      A = (*j)->GetA_asInt();
      exEnergy = (*j)->GetExcitationEnergy();

      if(A <= 1) { theResults.push_back(*j); }    // gamma, p, n

      // evaporation is not possible
      else if(1 == nsec) { 
        if(exEnergy < minExcitation) { theResults.push_back(*j); }
        else                         { thePhotoEvapList.push_back(*j); }

      } else { // Analyse fragment

        // cold fragment
        if(exEnergy < minExcitation) {
          Z = (*j)->GetZ_asInt();

          // natural isotope
          if(nist->GetIsotopeAbundance(Z, A) > 0.0) { 
        theResults.push_back(*j); // stable fragment 

          } else {
        const G4VFermiFragment* ffrag = thePool->GetFragment(Z, A);

        // isotope from FBU pool
        if(ffrag) {
          if(ffrag->IsStable()) { theResults.push_back(*j); }
          else                  { theEvapList.push_back(*j); }

          // isotope may be unstable
        } else {
          theEvapList.push_back(*j);
        }   
          }

          // hot fragment
        } else if (wasFBU) { 
          thePhotoEvapList.push_back(*j); // FBU applied only once 
        } else {  
          theEvapList.push_back(*j);        
        }
      }
    }
      }
      if( deletePrimary ) { delete (*iList); }
      delete theTempResult;
    } // end of the loop over theEvapList

  //G4cout << "## After 2nd step " << theEvapList.size() << " was evap;  "
  // << thePhotoEvapList.size() << " for photo-evap; " 
  // << theResults.size() << " results. " << G4endl; 
      
  // -----------------------
  // Photon-Evaporation loop
  // -----------------------
  
  // at this point only photon evaporation is possible
  for(iList = thePhotoEvapList.begin(); iList != thePhotoEvapList.end(); ++iList)
    {
      //G4cout << "Next photon evaporate: " << thePhotonEvaporation << G4endl;  
      //G4cout << *iList << G4endl;
      exEnergy = (*iList)->GetExcitationEnergy();

      // only hot fragments
      if(exEnergy > minExcitation) {  
    theTempResult = thePhotonEvaporation->BreakUpFragment(*iList);    
    size_t nsec = theTempResult->size();
    //G4cout << "Nproducts= " << nsec << G4endl;  
      
    // if there is a gamma emission then
    if (nsec > 0)
      {
        G4FragmentVector::iterator j;
        for (j = theTempResult->begin(); j != theTempResult->end(); ++j)
          {
        theResults.push_back(*j); 
          }
      }
    delete theTempResult;
      }

      // priamry fragment is kept
      theResults.push_back(*iList); 

    } // end of photon-evaporation loop

  //G4cout << "## After 3d step " << theEvapList.size() << " was evap;  "
  //     << thePhotoEvapList.size() << " was photo-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() );

  G4int theFragmentA, theFragmentZ;

  std::list<G4Fragment*>::iterator i;
  for (i = theResults.begin(); i != theResults.end(); ++i) 
    {
      theFragmentA = (*i)->GetA_asInt();
      theFragmentZ = (*i)->GetZ_asInt();
      G4double etot= (*i)->GetMomentum().e();
      G4ParticleDefinition* theKindOfFragment = 0;
      if (theFragmentA == 0) {       // photon or e-
    theKindOfFragment = (*i)->GetParticleDefinition();   
      } else if (theFragmentA == 1 && theFragmentZ == 0) { // neutron
    theKindOfFragment = G4Neutron::NeutronDefinition();
      } else if (theFragmentA == 1 && theFragmentZ == 1) { // proton
    theKindOfFragment = G4Proton::ProtonDefinition();
      } else if (theFragmentA == 2 && theFragmentZ == 1) { // deuteron
    theKindOfFragment = G4Deuteron::DeuteronDefinition();
      } else if (theFragmentA == 3 && theFragmentZ == 1) { // triton
    theKindOfFragment = G4Triton::TritonDefinition();
      } else if (theFragmentA == 3 && theFragmentZ == 2) { // helium3
    theKindOfFragment = G4He3::He3Definition();
      } else if (theFragmentA == 4 && theFragmentZ == 2) { // alpha
    theKindOfFragment = G4Alpha::AlphaDefinition();;
      } else {

    // ground state by default
        G4double eexc = (*i)->GetExcitationEnergy();
        G4double excitation = eexc;

    G4int level = 0;
    theKindOfFragment = 
      theTableOfIons->GetIon(theFragmentZ,theFragmentA,level);
    /*
    G4cout << "### Find ion Z= " << theFragmentZ << " A= " << theFragmentA
           << " Eexc(MeV)= " << excitation/MeV << "  " 
           << theKindOfFragment << G4endl;
    */
    // production of an isomer
        if(eexc > minExcitation) {
          G4double elevel1 = 0.0;
          G4double elevel2 = 0.0;
      G4ParticleDefinition* ion = 0; 
          for(level=1; level<9; ++level) {
        ion = theTableOfIons->GetIon(theFragmentZ,theFragmentA,level);
            //G4cout << level << "  " << ion << G4endl;
            if(ion) {
          G4Ions* ip = dynamic_cast<G4Ions*>(ion);
          if(ip) {
        elevel2 = ip->GetExcitationEnergy();
        //G4cout<<"   Level "<<level<<" E(MeV)= "<<elevel2/MeV<<G4endl;
        // close level
        if(std::fabs(eexc - elevel2) < minExcitation) {
          excitation = eexc - elevel2;
          theKindOfFragment = ion;
          break;
          // previous level was closer
        } else if(elevel2 - eexc >= eexc - elevel1) {
          excitation = eexc - elevel1;
          break;
          // will check next level and save current
        } else {
          theKindOfFragment = ion;
          excitation = eexc - elevel2;
          elevel1 = elevel2;
        }
          }
        } else {
          break;
        }
      }
    }
    // correction of total energy for ground state isotopes
    etot += excitation;
        G4double ionmass = theKindOfFragment->GetPDGMass();
        if(etot < ionmass) { etot = ionmass; }
      }
      if (theKindOfFragment != 0) 
    {
      G4ReactionProduct * theNew = new G4ReactionProduct(theKindOfFragment);
      theNew->SetMomentum((*i)->GetMomentum().vect());
      theNew->SetTotalEnergy(etot);
      theNew->SetFormationTime((*i)->GetCreationTime());
      theReactionProductVector->push_back(theNew);
    }
      delete (*i);
    }

  return theReactionProductVector;
}

void G4ExcitationHandler::SetEvaporation(G4VEvaporation* ptr)
{
  if(ptr && ptr != theEvaporation) {
    delete theEvaporation; 
    theEvaporation = ptr;
    thePhotonEvaporation = ptr->GetPhotonEvaporation();
    SetParameters();
    isEvapLocal = false;
  }
}

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;
  }
}

void 
G4ExcitationHandler::SetPhotonEvaporation(G4VEvaporationChannel* ptr)
{
  if(ptr && ptr != thePhotonEvaporation) {
    thePhotonEvaporation = ptr;
    theEvaporation->SetPhotonEvaporation(ptr);
  }
}

void G4ExcitationHandler::SetMaxZForFermiBreakUp(G4int aZ)
{
  maxZForFermiBreakUp = aZ;
}

void G4ExcitationHandler::SetMaxAForFermiBreakUp(G4int anA)
{
  maxAForFermiBreakUp = anA;
}

void G4ExcitationHandler::SetMaxAandZForFermiBreakUp(G4int anA, G4int aZ)
{
  SetMaxAForFermiBreakUp(anA);
  SetMaxZForFermiBreakUp(aZ);
}

void G4ExcitationHandler::SetMinEForMultiFrag(G4double anE)
{
  minEForMultiFrag = anE;
}