| Geant4 Cross Reference |
1 // 1 //
2 // ******************************************* 2 // ********************************************************************
3 // * License and Disclaimer 3 // * License and Disclaimer *
4 // * 4 // * *
5 // * The Geant4 software is copyright of th 5 // * The Geant4 software is copyright of the Copyright Holders of *
6 // * the Geant4 Collaboration. It is provided 6 // * the Geant4 Collaboration. It is provided under the terms and *
7 // * conditions of the Geant4 Software License 7 // * conditions of the Geant4 Software License, included in the file *
8 // * LICENSE and available at http://cern.ch/ 8 // * LICENSE and available at http://cern.ch/geant4/license . These *
9 // * include a list of copyright holders. 9 // * include a list of copyright holders. *
10 // * 10 // * *
11 // * Neither the authors of this software syst 11 // * Neither the authors of this software system, nor their employing *
12 // * institutes,nor the agencies providing fin 12 // * institutes,nor the agencies providing financial support for this *
13 // * work make any representation or warran 13 // * work make any representation or warranty, express or implied, *
14 // * regarding this software system or assum 14 // * regarding this software system or assume any liability for its *
15 // * use. Please see the license in the file 15 // * use. Please see the license in the file LICENSE and URL above *
16 // * for the full disclaimer and the limitatio 16 // * for the full disclaimer and the limitation of liability. *
17 // * 17 // * *
18 // * This code implementation is the result 18 // * This code implementation is the result of the scientific and *
19 // * technical work of the GEANT4 collaboratio 19 // * technical work of the GEANT4 collaboration. *
20 // * By using, copying, modifying or distri 20 // * By using, copying, modifying or distributing the software (or *
21 // * any work based on the software) you ag 21 // * any work based on the software) you agree to acknowledge its *
22 // * use in resulting scientific publicati 22 // * use in resulting scientific publications, and indicate your *
23 // * acceptance of all terms of the Geant4 Sof 23 // * acceptance of all terms of the Geant4 Software license. *
24 // ******************************************* 24 // ********************************************************************
25 // 25 //
26 // INCL++ intra-nuclear cascade model 26 // INCL++ intra-nuclear cascade model
27 // Alain Boudard, CEA-Saclay, France 27 // Alain Boudard, CEA-Saclay, France
28 // Joseph Cugnon, University of Liege, Belgium 28 // Joseph Cugnon, University of Liege, Belgium
29 // Jean-Christophe David, CEA-Saclay, France 29 // Jean-Christophe David, CEA-Saclay, France
30 // Pekka Kaitaniemi, CEA-Saclay, France, and H 30 // Pekka Kaitaniemi, CEA-Saclay, France, and Helsinki Institute of Physics, Finland
31 // Sylvie Leray, CEA-Saclay, France 31 // Sylvie Leray, CEA-Saclay, France
32 // Davide Mancusi, CEA-Saclay, France 32 // Davide Mancusi, CEA-Saclay, France
33 // 33 //
34 #define INCLXX_IN_GEANT4_MODE 1 34 #define INCLXX_IN_GEANT4_MODE 1
35 35
36 #include "globals.hh" 36 #include "globals.hh"
37 37
38 #ifndef G4INCLParticleTable_hh 38 #ifndef G4INCLParticleTable_hh
39 #define G4INCLParticleTable_hh 1 39 #define G4INCLParticleTable_hh 1
40 40
41 #include <string> 41 #include <string>
42 #include <vector> 42 #include <vector>
43 // #include <cassert> 43 // #include <cassert>
44 44
45 #include "G4INCLParticleType.hh" 45 #include "G4INCLParticleType.hh"
46 #include "G4INCLParticleSpecies.hh" 46 #include "G4INCLParticleSpecies.hh"
47 #include "G4INCLLogger.hh" 47 #include "G4INCLLogger.hh"
48 #include "G4INCLConfig.hh" 48 #include "G4INCLConfig.hh"
49 #include "G4INCLHFB.hh" <<
50 49
51 #ifdef INCLXX_IN_GEANT4_MODE 50 #ifdef INCLXX_IN_GEANT4_MODE
52 #include "G4IonTable.hh" 51 #include "G4IonTable.hh"
53 #include "G4ParticleTable.hh" 52 #include "G4ParticleTable.hh"
54 #endif 53 #endif
55 #include "G4INCLGlobals.hh" 54 #include "G4INCLGlobals.hh"
56 #include "G4INCLNaturalIsotopicDistributions.h 55 #include "G4INCLNaturalIsotopicDistributions.hh"
57 56
58 namespace G4INCL { 57 namespace G4INCL {
59 58
60 namespace ParticleTable { 59 namespace ParticleTable {
61 60
62 const G4int maxClusterMass = 12; 61 const G4int maxClusterMass = 12;
63 const G4int maxClusterCharge = 8; 62 const G4int maxClusterCharge = 8;
64 63
65 const G4int clusterTableZSize = maxCluster 64 const G4int clusterTableZSize = maxClusterCharge+1;
66 const G4int clusterTableASize = maxCluster 65 const G4int clusterTableASize = maxClusterMass+1;
67 const G4int clusterTableSSize = 4; <<
68 66
69 const G4double effectiveNucleonMass = 938. 67 const G4double effectiveNucleonMass = 938.2796;
70 const G4double effectiveNucleonMass2 = 8.8 68 const G4double effectiveNucleonMass2 = 8.8036860777616e5;
71 const G4double effectiveDeltaMass = 1232.0 69 const G4double effectiveDeltaMass = 1232.0;
72 const G4double effectiveDeltaWidth = 130.0 70 const G4double effectiveDeltaWidth = 130.0;
73 const G4double effectivePionMass = 138.0; 71 const G4double effectivePionMass = 138.0;
74 const G4double effectiveLambdaMass = 1115. <<
75 const G4double effectiveSigmaMass = 1197.4 <<
76 const G4double effectiveXiMass = 1321.71; <<
77 const G4double effectiveKaonMass = 497.614 <<
78 const G4double effectiveAntiKaonMass = 497 <<
79 const G4double effectiveEtaMass = 547.862; 72 const G4double effectiveEtaMass = 547.862;
80 const G4double effectiveOmegaMass = 782.65 73 const G4double effectiveOmegaMass = 782.65;
81 const G4double effectiveEtaPrimeMass = 957 74 const G4double effectiveEtaPrimeMass = 957.78;
82 const G4double effectivePhotonMass = 0.0; 75 const G4double effectivePhotonMass = 0.0;
83 extern G4ThreadLocal G4double minDeltaMass 76 extern G4ThreadLocal G4double minDeltaMass;
84 extern G4ThreadLocal G4double minDeltaMass 77 extern G4ThreadLocal G4double minDeltaMass2;
85 extern G4ThreadLocal G4double minDeltaMass 78 extern G4ThreadLocal G4double minDeltaMassRndm;
86 79
87 /// \brief Initialize the particle table 80 /// \brief Initialize the particle table
88 void initialize(Config const * const theCo 81 void initialize(Config const * const theConfig = 0);
89 82
90 /// \brief Get the isospin of a particle 83 /// \brief Get the isospin of a particle
91 G4int getIsospin(const ParticleType t); 84 G4int getIsospin(const ParticleType t);
92 85
93 /// \brief Get the native INCL name of the 86 /// \brief Get the native INCL name of the particle
94 std::string getName(const ParticleType t); 87 std::string getName(const ParticleType t);
95 88
96 /// \brief Get the short INCL name of the 89 /// \brief Get the short INCL name of the particle
97 std::string getShortName(const ParticleTyp 90 std::string getShortName(const ParticleType t);
98 91
99 /// \brief Get the native INCL name of the 92 /// \brief Get the native INCL name of the particle
100 std::string getName(const ParticleSpecies 93 std::string getName(const ParticleSpecies &s);
101 94
102 /// \brief Get the short INCL name of the 95 /// \brief Get the short INCL name of the particle
103 std::string getShortName(const ParticleSpe 96 std::string getShortName(const ParticleSpecies &s);
104 97
105 /// \brief Get the native INCL name of the 98 /// \brief Get the native INCL name of the ion
106 std::string getName(const G4int A, const G 99 std::string getName(const G4int A, const G4int Z);
107 100
108 /// \brief Get the native INCL name of the <<
109 std::string getName(const G4int A, const G <<
110 <<
111 /// \brief Get the short INCL name of the 101 /// \brief Get the short INCL name of the ion
112 std::string getShortName(const G4int A, co 102 std::string getShortName(const G4int A, const G4int Z);
113 103
114 /// \brief Get INCL nuclear mass (in MeV/c 104 /// \brief Get INCL nuclear mass (in MeV/c^2)
115 G4double getINCLMass(const G4int A, const << 105 G4double getINCLMass(const G4int A, const G4int Z);
116 106
117 /// \brief Get INCL particle mass (in MeV/ 107 /// \brief Get INCL particle mass (in MeV/c^2)
118 G4double getINCLMass(const ParticleType t) 108 G4double getINCLMass(const ParticleType t);
119 109
120 #ifndef INCLXX_IN_GEANT4_MODE 110 #ifndef INCLXX_IN_GEANT4_MODE
121 /// \brief Do we have this particle mass? 111 /// \brief Do we have this particle mass?
122 G4double hasMassTable(const unsigned int A 112 G4double hasMassTable(const unsigned int A, const unsigned int Z);
123 113
124 /** \brief Weizsaecker mass formula 114 /** \brief Weizsaecker mass formula
125 * 115 *
126 * Return the nuclear mass, as calculated 116 * Return the nuclear mass, as calculated from Weizsaecker's mass formula.
127 * Adapted from the Geant4 source. 117 * Adapted from the Geant4 source.
128 * 118 *
129 * \param A the mass number 119 * \param A the mass number
130 * \param Z the charge number 120 * \param Z the charge number
131 * \return the nuclear mass [MeV/c^2] 121 * \return the nuclear mass [MeV/c^2]
132 */ 122 */
133 G4double getWeizsaeckerMass(const G4int A, 123 G4double getWeizsaeckerMass(const G4int A, const G4int Z);
134 #endif 124 #endif
135 125
136 ///\brief Get particle mass (in MeV/c^2) 126 ///\brief Get particle mass (in MeV/c^2)
137 G4double getRealMass(const G4INCL::Particl 127 G4double getRealMass(const G4INCL::ParticleType t);
138 ///\brief Get nuclear mass (in MeV/c^2) 128 ///\brief Get nuclear mass (in MeV/c^2)
139 G4double getRealMass(const G4int A, const << 129 G4double getRealMass(const G4int A, const G4int Z);
140 130
141 /**\brief Get Q-value (in MeV/c^2) 131 /**\brief Get Q-value (in MeV/c^2)
142 * 132 *
143 * Uses the getTableMass function to compu 133 * Uses the getTableMass function to compute the Q-value for the
144 * following reaction: 134 * following reaction:
145 * \f[ (A_1,Z_1) + (A_2, Z_2) --> (A_1+A_2 135 * \f[ (A_1,Z_1) + (A_2, Z_2) --> (A_1+A_2,Z_1+Z_2) \f]
146 */ 136 */
147 G4double getTableQValue(const G4int A1, co << 137 G4double getTableQValue(const G4int A1, const G4int Z1, const G4int A2, const G4int Z2);
148 138
149 /**\brief Get Q-value (in MeV/c^2) 139 /**\brief Get Q-value (in MeV/c^2)
150 * 140 *
151 * Uses the getTableMass function to compu 141 * Uses the getTableMass function to compute the Q-value for the
152 * following reaction: 142 * following reaction:
153 * \f[ (A_1,Z_1) + (A_2, Z_2) --> (A_3,Z_3 143 * \f[ (A_1,Z_1) + (A_2, Z_2) --> (A_3,Z_3) + (A1+A2-A3,Z1+Z2-Z3) \f]
154 */ 144 */
155 G4double getTableQValue(const G4int A1, co << 145 G4double getTableQValue(const G4int A1, const G4int Z1, const G4int A2, const G4int Z2, const G4int A3, const G4int Z3);
156 146
157 G4double getTableSpeciesMass(const Particl 147 G4double getTableSpeciesMass(const ParticleSpecies &p);
158 148
159 /// \brief Get mass number from particle t 149 /// \brief Get mass number from particle type
160 G4int getMassNumber(const ParticleType t); 150 G4int getMassNumber(const ParticleType t);
161 151
162 /// \brief Get charge number from particle 152 /// \brief Get charge number from particle type
163 G4int getChargeNumber(const ParticleType t 153 G4int getChargeNumber(const ParticleType t);
164 <<
165 /// \brief Get strangeness number from par <<
166 G4int getStrangenessNumber(const ParticleT <<
167 154
168 G4double getNuclearRadius(const ParticleTy 155 G4double getNuclearRadius(const ParticleType t, const G4int A, const G4int Z);
169 G4double getLargestNuclearRadius(const G4i 156 G4double getLargestNuclearRadius(const G4int A, const G4int Z);
170 G4double getRadiusParameter(const Particle 157 G4double getRadiusParameter(const ParticleType t, const G4int A, const G4int Z);
171 G4double getMaximumNuclearRadius(const Par 158 G4double getMaximumNuclearRadius(const ParticleType t, const G4int A, const G4int Z);
172 G4double getSurfaceDiffuseness(const Parti 159 G4double getSurfaceDiffuseness(const ParticleType t, const G4int A, const G4int Z);
173 160
174 /// \brief Return the RMS of the momentum 161 /// \brief Return the RMS of the momentum distribution (light clusters)
175 G4double getMomentumRMS(const G4int A, con 162 G4double getMomentumRMS(const G4int A, const G4int Z);
176 163
177 /// \brief Return INCL's default separatio 164 /// \brief Return INCL's default separation energy
178 G4double getSeparationEnergyINCL(const Par 165 G4double getSeparationEnergyINCL(const ParticleType t, const G4int /*A*/, const G4int /*Z*/);
179 166
180 /// \brief Return the real separation ener 167 /// \brief Return the real separation energy
181 G4double getSeparationEnergyReal(const Par 168 G4double getSeparationEnergyReal(const ParticleType t, const G4int A, const G4int Z);
182 169
183 /// \brief Return the real separation ener 170 /// \brief Return the real separation energy only for light nuclei
184 G4double getSeparationEnergyRealForLight(c 171 G4double getSeparationEnergyRealForLight(const ParticleType t, const G4int A, const G4int Z);
185 172
186 /// \brief Getter for protonSeparationEner 173 /// \brief Getter for protonSeparationEnergy
187 G4double getProtonSeparationEnergy(); 174 G4double getProtonSeparationEnergy();
188 175
189 /// \brief Getter for neutronSeparationEne 176 /// \brief Getter for neutronSeparationEnergy
190 G4double getNeutronSeparationEnergy(); 177 G4double getNeutronSeparationEnergy();
191 178
192 /// \brief Setter for protonSeparationEner 179 /// \brief Setter for protonSeparationEnergy
193 void setProtonSeparationEnergy(const G4dou 180 void setProtonSeparationEnergy(const G4double s);
194 181
195 /// \brief Setter for protonSeparationEner 182 /// \brief Setter for protonSeparationEnergy
196 void setNeutronSeparationEnergy(const G4do 183 void setNeutronSeparationEnergy(const G4double s);
197 184
198 /// \brief Get the name of the element fro 185 /// \brief Get the name of the element from the atomic number
199 std::string getElementName(const G4int Z); 186 std::string getElementName(const G4int Z);
200 187
201 /// \brief Get the name of an unnamed elem 188 /// \brief Get the name of an unnamed element from the IUPAC convention
202 std::string getIUPACElementName(const G4in 189 std::string getIUPACElementName(const G4int Z);
203 190
204 /// \brief Get the name of the element fro 191 /// \brief Get the name of the element from the atomic number
205 G4int parseElement(std::string pS); 192 G4int parseElement(std::string pS);
206 193
207 /** \brief Parse a IUPAC element name 194 /** \brief Parse a IUPAC element name
208 * 195 *
209 * Note: this function is UGLY. Look at it 196 * Note: this function is UGLY. Look at it at your own peril.
210 * 197 *
211 * \param pS a normalised string (lowercas 198 * \param pS a normalised string (lowercase)
212 * \return the charge number of the nuclid 199 * \return the charge number of the nuclide, or zero on fail
213 */ 200 */
214 G4int parseIUPACElement(std::string const 201 G4int parseIUPACElement(std::string const &pS);
215 202
216 IsotopicDistribution const &getNaturalIsot 203 IsotopicDistribution const &getNaturalIsotopicDistribution(const G4int Z);
217 204
218 G4int drawRandomNaturalIsotope(const G4int 205 G4int drawRandomNaturalIsotope(const G4int Z);
219 206
220 // Typedefs and pointers for transparent h 207 // Typedefs and pointers for transparent handling of mass functions
221 //typedef G4double (*NuclearMassFn)(const << 208 typedef G4double (*NuclearMassFn)(const G4int, const G4int);
222 typedef G4double (*NuclearMassFn)(const G4 <<
223 typedef G4double (*ParticleMassFn)(const P 209 typedef G4double (*ParticleMassFn)(const ParticleType);
224 /// \brief Static pointer to the mass func 210 /// \brief Static pointer to the mass function for nuclei
225 extern G4ThreadLocal NuclearMassFn getTabl 211 extern G4ThreadLocal NuclearMassFn getTableMass;
226 /// \brief Static pointer to the mass func 212 /// \brief Static pointer to the mass function for particles
227 extern G4ThreadLocal ParticleMassFn getTab 213 extern G4ThreadLocal ParticleMassFn getTableParticleMass;
228 214
229 // Typedefs and pointers for transparent h 215 // Typedefs and pointers for transparent handling of separation energies
230 typedef G4double (*SeparationEnergyFn)(con 216 typedef G4double (*SeparationEnergyFn)(const ParticleType, const G4int, const G4int);
231 /// \brief Static pointer to the separatio 217 /// \brief Static pointer to the separation-energy function
232 extern G4ThreadLocal SeparationEnergyFn ge 218 extern G4ThreadLocal SeparationEnergyFn getSeparationEnergy;
233 219
234 // Typedefs and pointers for transparent h 220 // Typedefs and pointers for transparent handling of Fermi momentum
235 typedef G4double (*FermiMomentumFn)(const 221 typedef G4double (*FermiMomentumFn)(const G4int, const G4int);
236 extern G4ThreadLocal FermiMomentumFn getFe 222 extern G4ThreadLocal FermiMomentumFn getFermiMomentum;
237 223
238 /// \brief Return the constant value of th 224 /// \brief Return the constant value of the Fermi momentum
239 G4double getFermiMomentumConstant(const G4 225 G4double getFermiMomentumConstant(const G4int /*A*/, const G4int /*Z*/);
240 226
241 /** \brief Return the constant value of th 227 /** \brief Return the constant value of the Fermi momentum - special for light
242 * 228 *
243 * This function should always return Phys 229 * This function should always return PhysicalConstants::Pf for heavy
244 * nuclei, and values from the momentumRMS 230 * nuclei, and values from the momentumRMS table for light nuclei.
245 * 231 *
246 * \param A mass number 232 * \param A mass number
247 * \param Z charge number 233 * \param Z charge number
248 */ 234 */
249 G4double getFermiMomentumConstantLight(con 235 G4double getFermiMomentumConstantLight(const G4int A, const G4int Z);
250 236
251 /** \brief Return the value Fermi momentum 237 /** \brief Return the value Fermi momentum from a fit
252 * 238 *
253 * This function returns a fitted Fermi mo 239 * This function returns a fitted Fermi momentum, based on data from Moniz
254 * et al., Phys. Rev. Lett. 26 (1971) 445. 240 * et al., Phys. Rev. Lett. 26 (1971) 445. The fitted functional form is
255 * \f[ 241 * \f[
256 * p_F(A)=\alpha-\beta\cdot e^{(-A\cdot\ga 242 * p_F(A)=\alpha-\beta\cdot e^{(-A\cdot\gamma)}
257 * \f] 243 * \f]
258 * with \f$\alpha=259.416\f$ MeV/\f$c\f$, 244 * with \f$\alpha=259.416\f$ MeV/\f$c\f$, \f$\beta=152.824\f$ MeV/\f$c\f$
259 * and \f$\gamma=9.5157\cdot10^{-2}\f$. 245 * and \f$\gamma=9.5157\cdot10^{-2}\f$.
260 * 246 *
261 * \param A mass number 247 * \param A mass number
262 */ 248 */
263 G4double getFermiMomentumMassDependent(con 249 G4double getFermiMomentumMassDependent(const G4int A, const G4int /*Z*/);
264 250
265 /** \brief Get the value of the r-p correl 251 /** \brief Get the value of the r-p correlation coefficient
266 * 252 *
267 * \param t the type of the particle (Prot 253 * \param t the type of the particle (Proton or Neutron)
268 * \return the value of the r-p correlatio 254 * \return the value of the r-p correlation coefficient
269 */ 255 */
270 G4double getRPCorrelationCoefficient(const 256 G4double getRPCorrelationCoefficient(const ParticleType t);
271 257
272 /// \brief Get the thickness of the neutro 258 /// \brief Get the thickness of the neutron skin
273 G4double getNeutronSkin(); 259 G4double getNeutronSkin();
274 260
275 /// \brief Get the size of the neutron hal 261 /// \brief Get the size of the neutron halo
276 G4double getNeutronHalo(); 262 G4double getNeutronHalo();
277 263
278 /// \brief Get the type of pion 264 /// \brief Get the type of pion
279 ParticleType getPionType(const G4int isosp 265 ParticleType getPionType(const G4int isosp);
280 266
281 /// \brief Get the type of nucleon 267 /// \brief Get the type of nucleon
282 ParticleType getNucleonType(const G4int is 268 ParticleType getNucleonType(const G4int isosp);
283 269
284 /// \brief Get the type of delta 270 /// \brief Get the type of delta
285 ParticleType getDeltaType(const G4int isos 271 ParticleType getDeltaType(const G4int isosp);
286 272
287 /// \brief Get the type of sigma << 273 /// \brief Get particle width (in s)
288 ParticleType getSigmaType(const G4int isos << 274 G4double getWidth(const ParticleType t);
289 <<
290 /// \brief Get the type of kaon <<
291 ParticleType getKaonType(const G4int isosp <<
292 <<
293 /// \brief Get the type of antikaon <<
294 ParticleType getAntiKaonType(const G4int i <<
295 <<
296 /// \brief Get the type of xi <<
297 ParticleType getXiType(const G4int isosp); <<
298 <<
299 /// \brief Get the type of antinucleon <<
300 ParticleType getAntiNucleonType(const G4in <<
301 <<
302 /// \brief Get the type of antidelta <<
303 ParticleType getAntiXiType(const G4int iso <<
304 <<
305 /// \brief Get the type of antisigma <<
306 ParticleType getAntiSigmaType(const G4int <<
307 <<
308 /// \brief Get particle width (in s) <<
309 G4double getWidth(const ParticleType t); <<
310 } 275 }
311 } 276 }
312 277
313 #endif 278 #endif
314 279
315 280