Geant4 Cross Reference |
1 // 2 // ******************************************************************** 3 // * License and Disclaimer * 4 // * * 5 // * The Geant4 software is copyright of the Copyright Holders of * 6 // * the Geant4 Collaboration. It is provided under the terms and * 7 // * conditions of the Geant4 Software License, included in the file * 8 // * LICENSE and available at http://cern.ch/geant4/license . These * 9 // * include a list of copyright holders. * 10 // * * 11 // * Neither the authors of this software system, nor their employing * 12 // * institutes,nor the agencies providing financial support for this * 13 // * work make any representation or warranty, express or implied, * 14 // * regarding this software system or assume any liability for its * 15 // * use. Please see the license in the file LICENSE and URL above * 16 // * for the full disclaimer and the limitation of liability. * 17 // * * 18 // * This code implementation is the result of the scientific and * 19 // * technical work of the GEANT4 collaboration. * 20 // * By using, copying, modifying or distributing the software (or * 21 // * any work based on the software) you agree to acknowledge its * 22 // * use in resulting scientific publications, and indicate your * 23 // * acceptance of all terms of the Geant4 Software license. * 24 // ******************************************************************** 25 // 26 // INCL++ intra-nuclear cascade model 27 // Alain Boudard, CEA-Saclay, France 28 // Joseph Cugnon, University of Liege, Belgium 29 // Jean-Christophe David, CEA-Saclay, France 30 // Pekka Kaitaniemi, CEA-Saclay, France, and Helsinki Institute of Physics, Finland 31 // Sylvie Leray, CEA-Saclay, France 32 // Davide Mancusi, CEA-Saclay, France 33 // 34 #define INCLXX_IN_GEANT4_MODE 1 35 36 #include "globals.hh" 37 38 #include "G4INCLPauliGlobal.hh" 39 #include "G4INCLRandom.hh" 40 41 namespace G4INCL { 42 43 PauliGlobal::PauliGlobal() {} 44 PauliGlobal::~PauliGlobal() {} 45 46 G4bool PauliGlobal::isBlocked(ParticleList const &pL, Nucleus const * const n) { 47 for(ParticleIter p=pL.begin(), e=pL.end(); p!=e; ++p) { 48 // Pauli blocking only applies to nucleons 49 if(!(*p)->isNucleon()) continue; 50 51 // If the particle is above T_F, it is never blocked 52 const ParticleType t = (*p)->getType(); 53 const G4double pFermi = n->getPotential()->getFermiMomentum(t); 54 const G4double pFermiSquared = pFermi*pFermi; 55 if((*p)->getMomentum().mag2() > pFermiSquared) continue; 56 57 // Count particles of the same type as p below the Fermi sea 58 ParticleList const &particles = n->getStore()->getParticles(); 59 G4int nSea = 0; 60 for(ParticleIter i=particles.begin(), end=particles.end(); i!=end; ++i) { 61 if((*i)->getType() != t) continue; 62 const G4double pmod2 = (*i)->getMomentum().mag2(); 63 if(pmod2<pFermiSquared) nSea++; 64 } 65 66 // Compute the blocking probability 67 G4double probBlocking; 68 if(t==Proton) 69 probBlocking = ((G4double) nSea)/((G4double) n->getInitialZ()); 70 else 71 probBlocking = ((G4double) nSea)/((G4double) (n->getInitialA() - n->getInitialZ())); 72 73 // The avatar is blocked if any particle is blocked 74 if(Random::shoot() < probBlocking) return true; 75 76 } 77 78 // Not blocked 79 return false; 80 81 } 82 } 83