181{
183
184 G4double totprob, prob, oldprob = 0.0;
185 size_t maxchannel, i;
186
187 G4int Amax = theResidualNucleus->GetA_asInt();
188 if(fVerbose > 1) {
189 G4cout <<
"### G4Evaporation::BreakItUp loop" <<
G4endl;
190 }
192
193
194
195 for(
G4int ia=0; ia<Amax; ++ia) {
196
197
198 G4int Z = theResidualNucleus->GetZ_asInt();
199 G4int A = theResidualNucleus->GetA_asInt();
200 if(
A <= 1) {
break; }
201 G4double Eex = theResidualNucleus->GetExcitationEnergy();
202
203
205
206
208
209 if(Eex <= minExcitation &&
210 (abun > 0.0 || (
A == 3 && (
Z == 1 ||
Z == 2)))) {
break; }
211
212 totprob = 0.0;
213 maxchannel = nChannels;
214 if(fVerbose > 1) {
215 G4cout <<
"Evaporation# " << ia <<
" Z= " <<
Z <<
" A= " <<
A
216 << " Eex(MeV)= " << theResidualNucleus->GetExcitationEnergy()
217 <<
" aban= " << abun <<
G4endl;
218 }
219
220 for(i=0; i<nChannels; ++i) {
221 prob = (*theChannels)[i]->GetEmissionProbability(theResidualNucleus);
222 if(fVerbose > 1 && prob > 0.0) {
223 G4cout <<
" Channel# " << i <<
" prob= " << prob <<
G4endl;
224 }
225 totprob += prob;
226 probabilities[i] = totprob;
227
228
229 if(i>=8 && prob > 0.0) {
230 if(prob <= totprob*1.e-8 && oldprob <= totprob*1.e-8) {
231 maxchannel = i+1;
232 break;
233 }
234 }
235 oldprob = prob;
236 }
237
238
239
240 if(0.0 < totprob && probabilities[0] == totprob) {
241 if(fVerbose > 1) {
242 G4cout <<
"$$$ Start chain of gamma evaporation" <<
G4endl;
243 }
244 (*theChannels)[0]->BreakUpChain(theResult, theResidualNucleus);
245
246
247 if(abun > 0.0) {
248 theResidualNucleus->SetLongLived(true);
249 break;
250 }
251
252 Eex = theResidualNucleus->GetExcitationEnergy();
254
255
256 if(theResidualNucleus->IsLongLived()) { break; }
257 totprob = 0.0;
258 }
259
260 if(0.0 == totprob &&
A < 30) {
261
262
263 if(fVerbose > 1) {
265 }
266 if(unstableBreakUp->
BreakUpChain(theResult, theResidualNucleus)) {
267 continue;
268 }
269
270 break;
271 }
272
273
274 totprob *= rndm->
flat();
275
276
277 for(i=0; i<maxchannel; ++i) { if(probabilities[i] >= totprob) { break; } }
278
279 if(fVerbose > 1) {
G4cout <<
"$$$ Channel # " << i <<
G4endl; }
280 G4Fragment* frag = (*theChannels)[i]->EmittedFragment(theResidualNucleus);
281 if(fVerbose > 2 && frag) {
G4cout <<
" " << *frag <<
G4endl; }
282
283
284 if(nullptr != frag) { theResult->push_back(frag); }
285 else { break; }
286 }
287}
G4GLOB_DLL std::ostream G4cout
virtual void InitialiseChannels() final
G4double GetIsotopeAbundance(G4int Z, G4int N) const
virtual G4bool BreakUpChain(G4FragmentVector *, G4Fragment *) final
virtual G4bool IsApplicable(G4int Z, G4int A, G4double mass) const =0