G4INCLCDPP.cc

Go to the documentation of this file.
00001 //
00002 // ********************************************************************
00003 // * License and Disclaimer                                           *
00004 // *                                                                  *
00005 // * The  Geant4 software  is  copyright of the Copyright Holders  of *
00006 // * the Geant4 Collaboration.  It is provided  under  the terms  and *
00007 // * conditions of the Geant4 Software License,  included in the file *
00008 // * LICENSE and available at  http://cern.ch/geant4/license .  These *
00009 // * include a list of copyright holders.                             *
00010 // *                                                                  *
00011 // * Neither the authors of this software system, nor their employing *
00012 // * institutes,nor the agencies providing financial support for this *
00013 // * work  make  any representation or  warranty, express or implied, *
00014 // * regarding  this  software system or assume any liability for its *
00015 // * use.  Please see the license in the file  LICENSE  and URL above *
00016 // * for the full disclaimer and the limitation of liability.         *
00017 // *                                                                  *
00018 // * This  code  implementation is the result of  the  scientific and *
00019 // * technical work of the GEANT4 collaboration.                      *
00020 // * By using,  copying,  modifying or  distributing the software (or *
00021 // * any work based  on the software)  you  agree  to acknowledge its *
00022 // * use  in  resulting  scientific  publications,  and indicate your *
00023 // * acceptance of all terms of the Geant4 Software license.          *
00024 // ********************************************************************
00025 //
00026 // INCL++ intra-nuclear cascade model
00027 // Pekka Kaitaniemi, CEA and Helsinki Institute of Physics
00028 // Davide Mancusi, CEA
00029 // Alain Boudard, CEA
00030 // Sylvie Leray, CEA
00031 // Joseph Cugnon, University of Liege
00032 //
00033 #define INCLXX_IN_GEANT4_MODE 1
00034 
00035 #include "globals.hh"
00036 
00037 #include "G4INCLCDPP.hh"
00038 
00039 namespace G4INCL {
00040 
00041   CDPP::CDPP() {}
00042 
00043   CDPP::~CDPP() {}
00044 
00045   G4bool CDPP::isBlocked(ParticleList const created, Nucleus const * const nucleus) const {
00046     G4double S = nucleus->computeSeparationEnergyBalance();
00047 
00048     const G4double Sp = nucleus->getPotential()->getSeparationEnergy(Proton);
00049     const G4double Sn = nucleus->getPotential()->getSeparationEnergy(Neutron);
00050 
00051     ParticleList remnantParticles = nucleus->getStore()->getParticles();
00052     remnantParticles.insert(remnantParticles.end(), created.begin(), created.end());
00053 
00054     G4double Sk = 0.0;
00055     G4double TbelowTf = 0.0;
00056     for(ParticleIter i = remnantParticles.begin(); i != remnantParticles.end();
00057         ++i) {
00058 
00059       if((*i)->isNucleon()) {
00060         const G4double Tf = nucleus->getPotential()->getFermiEnergy(*i);
00061         const G4double T = (*i)->getKineticEnergy();
00062 
00063         if(T > Tf) {
00064           const G4double sep = nucleus->getPotential()->getSeparationEnergy(*i);
00065           Sk += sep;
00066         } else {
00067           TbelowTf += T - (*i)->getPotentialEnergy();
00068         }
00069       } else if((*i)->isResonance()) {
00070         const G4double Tf = nucleus->getPotential()->getFermiEnergy(*i);
00071         const G4double T = (*i)->getKineticEnergy();
00072 
00073         if(T > Tf) {
00074           const G4double sep = nucleus->getPotential()->getSeparationEnergy(*i);
00075           Sk += sep;
00076         } else { // Ugly! We should use total energies everywhere!
00077           TbelowTf += (*i)->getEnergy() - ParticleTable::getINCLMass(Proton) - (*i)->getPotentialEnergy();
00078         }
00079       } else if((*i)->getType() == PiPlus)
00080         Sk += Sp - Sn;
00081       else if((*i)->getType() == PiMinus)
00082         Sk += Sn - Sp;
00083 
00084     }
00085     G4double Tinitial = nucleus->getInitialInternalEnergy();
00086     G4double Eblock = TbelowTf - Tinitial - Sk - S;
00087 
00088     return (Eblock < 0.0);
00089   }
00090 }

Generated on Mon May 27 17:48:34 2013 for Geant4 by  doxygen 1.4.7