ECCE @ EIC Software
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
G4INCLPauliGlobal.cc
Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file G4INCLPauliGlobal.cc
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 
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 }