| 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 // neutron_hp -- source file 26 // neutron_hp -- source file
27 // J.P. Wellisch, Nov-1996 27 // J.P. Wellisch, Nov-1996
28 // A prototype of the low energy neutron trans 28 // A prototype of the low energy neutron transport model.
29 // 29 //
30 // 12-Apr-06 fix in delayed neutron and photon 30 // 12-Apr-06 fix in delayed neutron and photon emission without FS data by T. Koi
31 // 07-Sep-11 M. Kelsey -- Follow change to G4H 31 // 07-Sep-11 M. Kelsey -- Follow change to G4HadFinalState interface
32 // P. Arce, June-2014 Conversion neutron_hp to 32 // P. Arce, June-2014 Conversion neutron_hp to particle_hp
33 // 33 //
34 34
35 #include "G4ParticleHPFissionFS.hh" <<
36 <<
37 #include "G4DynamicParticleVector.hh" <<
38 #include "G4Exp.hh" 35 #include "G4Exp.hh"
39 #include "G4IonTable.hh" << 36 #include "G4ParticleHPFissionFS.hh"
>> 37 #include "G4PhysicalConstants.hh"
40 #include "G4Nucleus.hh" 38 #include "G4Nucleus.hh"
>> 39 #include "G4DynamicParticleVector.hh"
41 #include "G4ParticleHPFissionERelease.hh" 40 #include "G4ParticleHPFissionERelease.hh"
42 #include "G4PhysicalConstants.hh" << 41 #include "G4IonTable.hh"
43 #include "G4PhysicsModelCatalog.hh" 42 #include "G4PhysicsModelCatalog.hh"
44 43
45 G4ParticleHPFissionFS::G4ParticleHPFissionFS() <<
46 { <<
47 secID = G4PhysicsModelCatalog::GetModelID("m <<
48 hasXsec = false; <<
49 produceFissionFragments = false; <<
50 } <<
51 <<
52 void G4ParticleHPFissionFS::Init(G4double A, G <<
53 const G4Strin <<
54 { <<
55 theFS.Init(A, Z, M, dirName, aFSType, projec <<
56 theFC.Init(A, Z, M, dirName, aFSType, projec <<
57 theSC.Init(A, Z, M, dirName, aFSType, projec <<
58 theTC.Init(A, Z, M, dirName, aFSType, projec <<
59 theLC.Init(A, Z, M, dirName, aFSType, projec <<
60 <<
61 theFF.Init(A, Z, M, dirName, aFSType, projec <<
62 if (G4ParticleHPManager::GetInstance()->GetP <<
63 G4cout << "Fission fragment production is <<
64 << "Z = " << (G4int)Z << ", A = " < <<
65 G4cout << "As currently modeled this optio <<
66 "fission fragments." <<
67 << G4endl; <<
68 produceFissionFragments = true; <<
69 } <<
70 } <<
71 <<
72 G4HadFinalState* G4ParticleHPFissionFS::ApplyY <<
73 { <<
74 // Because it may change by UI command <<
75 produceFissionFragments = G4ParticleHPManage <<
76 <<
77 // prepare neutron <<
78 if (theResult.Get() == nullptr) theResult.Pu <<
79 theResult.Get()->Clear(); <<
80 G4double eKinetic = theTrack.GetKineticEnerg <<
81 const G4HadProjectile* incidentParticle = &t <<
82 G4ReactionProduct theNeutron( <<
83 const_cast<G4ParticleDefinition*>(incident <<
84 theNeutron.SetMomentum(incidentParticle->Get <<
85 theNeutron.SetKineticEnergy(eKinetic); <<
86 <<
87 // prepare target <<
88 G4Nucleus aNucleus; <<
89 G4ReactionProduct theTarget; <<
90 G4double targetMass = theFS.GetMass(); <<
91 G4ThreeVector neuVelo = <<
92 (1. / incidentParticle->GetDefinition()->G <<
93 theTarget = <<
94 aNucleus.GetBiasedThermalNucleus(targetMas <<
95 theTarget.SetDefinition( <<
96 G4IonTable::GetIonTable()->GetIon(G4int(th <<
97 44
98 // set neutron and target in the FS classes << 45 G4ParticleHPFissionFS::G4ParticleHPFissionFS()
>> 46 {
>> 47 secID = G4PhysicsModelCatalog::GetModelID( "model_NeutronHPFission" );
>> 48 hasXsec = false;
>> 49 produceFissionFragments = false;
>> 50 }
>> 51
>> 52
>> 53 void G4ParticleHPFissionFS::Init (G4double A, G4double Z, G4int M, G4String & dirName, G4String & aFSType, G4ParticleDefinition* projectile )
>> 54 {
>> 55 //G4cout << "G4ParticleHPFissionFS::Init " << A << " " << Z << " " << M << G4endl;
>> 56 theFS.Init(A, Z, M, dirName, aFSType, projectile);
>> 57 theFC.Init(A, Z, M, dirName, aFSType, projectile);
>> 58 theSC.Init(A, Z, M, dirName, aFSType, projectile);
>> 59 theTC.Init(A, Z, M, dirName, aFSType, projectile);
>> 60 theLC.Init(A, Z, M, dirName, aFSType, projectile);
>> 61
>> 62 theFF.Init(A, Z, M, dirName, aFSType, projectile);
>> 63 if ( G4ParticleHPManager::GetInstance()->GetProduceFissionFragments() && theFF.HasFSData() )
>> 64 {
>> 65 G4cout << "Fission fragment production is now activated in HP package for "
>> 66 << "Z = " << (G4int)Z
>> 67 << ", A = " << (G4int)A
>> 68 //<< "M = " << M
>> 69 << G4endl;
>> 70 G4cout << "As currently modeled this option precludes production of delayed neutrons from fission fragments." << G4endl;
>> 71 produceFissionFragments = true;
>> 72 }
>> 73 }
>> 74 G4HadFinalState * G4ParticleHPFissionFS::ApplyYourself(const G4HadProjectile & theTrack)
>> 75 {
>> 76
>> 77 //Because it may change by UI command
>> 78 produceFissionFragments=G4ParticleHPManager::GetInstance()->GetProduceFissionFragments();
>> 79
>> 80 //G4cout << "G4ParticleHPFissionFS::ApplyYourself " << G4endl;
>> 81 // prepare neutron
>> 82
>> 83 if ( theResult.Get() == NULL ) theResult.Put( new G4HadFinalState );
>> 84 theResult.Get()->Clear();
>> 85 G4double eKinetic = theTrack.GetKineticEnergy();
>> 86 const G4HadProjectile *incidentParticle = &theTrack;
>> 87 G4ReactionProduct theNeutron( const_cast<G4ParticleDefinition *>(incidentParticle->GetDefinition()) );
>> 88 theNeutron.SetMomentum( incidentParticle->Get4Momentum().vect() );
>> 89 theNeutron.SetKineticEnergy( eKinetic );
>> 90
>> 91 // prepare target
>> 92 G4Nucleus aNucleus;
>> 93 G4ReactionProduct theTarget;
>> 94 G4double targetMass = theFS.GetMass();
>> 95 G4ThreeVector neuVelo = (1./incidentParticle->GetDefinition()->GetPDGMass())*theNeutron.GetMomentum();
>> 96 theTarget = aNucleus.GetBiasedThermalNucleus( targetMass, neuVelo, theTrack.GetMaterial()->GetTemperature());
>> 97 theTarget.SetDefinition( G4IonTable::GetIonTable()->GetIon( G4int(theBaseZ), G4int(theBaseA) , 0.0 ) ); //TESTPHP
>> 98 // set neutron and target in the FS classes
99 theFS.SetNeutronRP(theNeutron); 99 theFS.SetNeutronRP(theNeutron);
100 theFS.SetTarget(theTarget); 100 theFS.SetTarget(theTarget);
101 theFC.SetNeutronRP(theNeutron); 101 theFC.SetNeutronRP(theNeutron);
102 theFC.SetTarget(theTarget); 102 theFC.SetTarget(theTarget);
103 theSC.SetNeutronRP(theNeutron); 103 theSC.SetNeutronRP(theNeutron);
104 theSC.SetTarget(theTarget); 104 theSC.SetTarget(theTarget);
105 theTC.SetNeutronRP(theNeutron); 105 theTC.SetNeutronRP(theNeutron);
106 theTC.SetTarget(theTarget); 106 theTC.SetTarget(theTarget);
107 theLC.SetNeutronRP(theNeutron); 107 theLC.SetNeutronRP(theNeutron);
108 theLC.SetTarget(theTarget); 108 theLC.SetTarget(theTarget);
109 theFF.SetNeutronRP(theNeutron); <<
110 theFF.SetTarget(theTarget); <<
111 <<
112 // boost to target rest system and decide on <<
113 theNeutron.Lorentz(theNeutron, -1 * theTarge <<
114 109
115 // dice the photons <<
116 110
117 G4DynamicParticleVector* thePhotons; << 111 theFF.SetNeutronRP(theNeutron);
118 thePhotons = theFS.GetPhotons(); << 112 theFF.SetTarget(theTarget);
119 <<
120 // select the FS in charge <<
121 <<
122 eKinetic = theNeutron.GetKineticEnergy(); <<
123 G4double xSec[4]; <<
124 xSec[0] = theFC.GetXsec(eKinetic); <<
125 xSec[1] = xSec[0] + theSC.GetXsec(eKinetic); <<
126 xSec[2] = xSec[1] + theTC.GetXsec(eKinetic); <<
127 xSec[3] = xSec[2] + theLC.GetXsec(eKinetic); <<
128 G4int it; <<
129 unsigned int i = 0; <<
130 G4double random = G4UniformRand(); <<
131 if (xSec[3] == 0) { <<
132 it = -1; <<
133 } <<
134 else { <<
135 for (i = 0; i < 4; i++) { <<
136 it = i; <<
137 if (random < xSec[i] / xSec[3]) break; <<
138 } <<
139 } <<
140 <<
141 // dice neutron multiplicities, energies and <<
142 // no energy conservation on an event-to-eve <<
143 // also for mean, we rely on the consistancy <<
144 <<
145 G4int Prompt = 0, delayed = 0, all = 0; <<
146 G4DynamicParticleVector* theNeutrons = nullp <<
147 switch (it) // check logic, and ask, if par <<
148 // particles @@@ <<
149 { <<
150 case 0: <<
151 theFS.SampleNeutronMult(all, Prompt, del <<
152 if (Prompt == 0 && delayed == 0) Prompt <<
153 theNeutrons = theFC.ApplyYourself(Prompt <<
154 // take 'U' into account explicitly (see <<
155 break; <<
156 case 1: <<
157 theFS.SampleNeutronMult(all, Prompt, del <<
158 if (Prompt == 0 && delayed == 0) Prompt <<
159 theNeutrons = theSC.ApplyYourself(Prompt <<
160 break; <<
161 case 2: <<
162 theFS.SampleNeutronMult(all, Prompt, del <<
163 if (Prompt == 0 && delayed == 0) Prompt <<
164 theNeutrons = theTC.ApplyYourself(Prompt <<
165 break; <<
166 case 3: <<
167 theFS.SampleNeutronMult(all, Prompt, del <<
168 if (Prompt == 0 && delayed == 0) Prompt <<
169 theNeutrons = theLC.ApplyYourself(Prompt <<
170 break; <<
171 default: <<
172 break; <<
173 } <<
174 <<
175 // dice delayed neutrons and photons, and fa <<
176 // for Prompt in case channel had no FS data <<
177 <<
178 if (produceFissionFragments) delayed = 0; <<
179 <<
180 G4double* theDecayConstants; <<
181 <<
182 if (theNeutrons != nullptr) { <<
183 theDecayConstants = new G4double[delayed]; <<
184 for (i = 0; i < theNeutrons->size(); ++i) <<
185 theResult.Get()->AddSecondary(theNeutron <<
186 } <<
187 delete theNeutrons; <<
188 <<
189 G4DynamicParticleVector* theDelayed = null <<
190 theDelayed = theFS.ApplyYourself(0, delaye <<
191 for (i = 0; i < theDelayed->size(); i++) { <<
192 G4double time = -G4Log(G4UniformRand()) <<
193 time += theTrack.GetGlobalTime(); <<
194 theResult.Get()->AddSecondary(theDelayed <<
195 theResult.Get()->GetSecondary(theResult. <<
196 } <<
197 delete theDelayed; <<
198 } <<
199 else { <<
200 theFS.SampleNeutronMult(all, Prompt, delay <<
201 theDecayConstants = new G4double[delayed]; <<
202 if (Prompt == 0 && delayed == 0) Prompt = <<
203 theNeutrons = theFS.ApplyYourself(Prompt, <<
204 G4int i0; <<
205 for (i0 = 0; i0 < Prompt; ++i0) { <<
206 theResult.Get()->AddSecondary(theNeutron <<
207 } <<
208 <<
209 for (i0 = Prompt; i0 < Prompt + delayed; + <<
210 // Protect against the very rare case of <<
211 G4double time = 0.0; <<
212 if (theDecayConstants[i0 - Prompt] > 1.0 <<
213 time = -G4Log(G4UniformRand()) / theDe <<
214 } <<
215 else { <<
216 G4ExceptionDescription ed; <<
217 ed << " theDecayConstants[i0-Prompt]=" <<
218 << " -> cannot sample the time : <<
219 G4Exception("G4ParticleHPFissionFS::Ap <<
220 } <<
221 <<
222 time += theTrack.GetGlobalTime(); <<
223 theResult.Get()->AddSecondary(theNeutron <<
224 theResult.Get()->GetSecondary(theResult. <<
225 } <<
226 delete theNeutrons; <<
227 } <<
228 delete[] theDecayConstants; <<
229 <<
230 std::size_t nPhotons = 0; <<
231 if (thePhotons != nullptr) { <<
232 nPhotons = thePhotons->size(); <<
233 for (i = 0; i < nPhotons; ++i) { <<
234 theResult.Get()->AddSecondary(thePhotons <<
235 } <<
236 delete thePhotons; <<
237 } <<
238 <<
239 // finally deal with local energy deposition <<
240 113
241 G4ParticleHPFissionERelease* theERelease = t << 114 //TKWORK 120531
242 G4double eDepByFragments = theERelease->GetF << 115 //G4cout << theTarget.GetDefinition() << G4endl; this should be NULL
243 // theResult.SetLocalEnergyDeposit(eDepByFra << 116 //G4cout << "Z = " << theBaseZ << ", A = " << theBaseA << ", M = " << theBaseM << G4endl;
244 if (!produceFissionFragments) theResult.Get( << 117 // theNDLDataZ,A,M should be filled in each FS (theFS, theFC, theSC, theTC, theLC and theFF)
245 // clean up the primary neutron << 118 ////G4cout << "Z = " << theNDLDataZ << ", A = " << theNDLDataA << ", M = " << theNDLDataM << G4endl;
246 theResult.Get()->SetStatusChange(stopAndKill << 119
247 << 120 // boost to target rest system and decide on channel.
248 if (produceFissionFragments) { << 121 theNeutron.Lorentz(theNeutron, -1*theTarget);
249 G4int fragA_Z = 0; << 122
250 G4int fragA_A = 0; << 123 // dice the photons
251 G4int fragA_M = 0; << 124
252 // System is traget rest! << 125 G4DynamicParticleVector * thePhotons;
253 theFF.GetAFissionFragment(eKinetic, fragA_ << 126 thePhotons = theFS.GetPhotons();
254 if (0 == fragA_A) { return theResult.Get() << 127
255 G4int fragB_Z = (G4int)theBaseZ - fragA_Z; << 128 // select the FS in charge
256 G4int fragB_A = (G4int)theBaseA - fragA_A << 129
257 << 130 eKinetic = theNeutron.GetKineticEnergy();
258 G4IonTable* pt = G4IonTable::GetIonTable() << 131 G4double xSec[4];
259 // Excitation energy is not taken into acc << 132 xSec[0] = theFC.GetXsec(eKinetic);
260 G4ParticleDefinition* pdA = pt->GetIon(fra << 133 xSec[1] = xSec[0]+theSC.GetXsec(eKinetic);
261 G4ParticleDefinition* pdB = pt->GetIon(fra << 134 xSec[2] = xSec[1]+theTC.GetXsec(eKinetic);
262 << 135 xSec[3] = xSec[2]+theLC.GetXsec(eKinetic);
263 // Isotropic Distribution << 136 G4int it;
264 G4double phi = twopi * G4UniformRand(); << 137 unsigned int i=0;
265 // Bug #1745 DHW G4double theta = pi*G4Uni << 138 G4double random = G4UniformRand();
266 G4double costheta = 2. * G4UniformRand() - << 139 if(xSec[3]==0)
267 G4double theta = std::acos(costheta); << 140 {
268 G4double sinth = std::sin(theta); << 141 it=-1;
269 G4ThreeVector direction(sinth * std::cos(p << 142 }
270 << 143 else
271 // Just use ENDF value for this << 144 {
272 G4double ER = eDepByFragments; << 145 for(i=0; i<4; i++)
273 G4double ma = pdA->GetPDGMass(); << 146 {
274 G4double mb = pdB->GetPDGMass(); << 147 it =i;
275 G4double EA = ER / (1 + ma / mb); << 148 if(random<xSec[i]/xSec[3]) break;
276 G4double EB = ER - EA; << 149 }
277 auto dpA = new G4DynamicParticle(pdA, dire << 150 }
278 auto dpB = new G4DynamicParticle(pdB, -dir << 151
279 theResult.Get()->AddSecondary(dpA, secID); << 152 // dice neutron multiplicities, energies and momenta in Lab. @@
280 theResult.Get()->AddSecondary(dpB, secID); << 153 // no energy conservation on an event-to-event basis. we rely on the data to be ok. @@
281 } << 154 // also for mean, we rely on the consistancy of the data. @@
>> 155
>> 156 G4int Prompt=0, delayed=0, all=0;
>> 157 G4DynamicParticleVector * theNeutrons = 0;
>> 158 switch(it) // check logic, and ask, if partials can be assumed to correspond to individual particles @@@
>> 159 {
>> 160 case 0:
>> 161 theFS.SampleNeutronMult(all, Prompt, delayed, eKinetic, 0);
>> 162 if(Prompt==0&&delayed==0) Prompt=all;
>> 163 theNeutrons = theFC.ApplyYourself(Prompt); // delayed always in FS
>> 164 // take 'U' into account explicitly (see 5.4) in the sampling of energy @@@@
>> 165 break;
>> 166 case 1:
>> 167 theFS.SampleNeutronMult(all, Prompt, delayed, eKinetic, 1);
>> 168 if(Prompt==0&&delayed==0) Prompt=all;
>> 169 theNeutrons = theSC.ApplyYourself(Prompt); // delayed always in FS, off done in FSFissionFS
>> 170 break;
>> 171 case 2:
>> 172 theFS.SampleNeutronMult(all, Prompt, delayed, eKinetic, 2);
>> 173 if(Prompt==0&&delayed==0) Prompt=all;
>> 174 theNeutrons = theTC.ApplyYourself(Prompt); // delayed always in FS
>> 175 break;
>> 176 case 3:
>> 177 theFS.SampleNeutronMult(all, Prompt, delayed, eKinetic, 3);
>> 178 if(Prompt==0&&delayed==0) Prompt=all;
>> 179 theNeutrons = theLC.ApplyYourself(Prompt); // delayed always in FS
>> 180 break;
>> 181 default:
>> 182 break;
>> 183 }
>> 184
>> 185 // dice delayed neutrons and photons, and fallback
>> 186 // for Prompt in case channel had no FS data; add all paricles to FS.
>> 187
>> 188 //TKWORK120531
>> 189 if ( produceFissionFragments ) delayed=0;
>> 190
>> 191 G4double * theDecayConstants;
>> 192
>> 193 if( theNeutrons != 0)
>> 194 {
>> 195 theDecayConstants = new G4double[delayed];
>> 196 //
>> 197 //110527TKDB Unused codes, Detected by gcc4.6 compiler
>> 198 //G4int nPhotons = 0;
>> 199 //if(thePhotons!=0) nPhotons = thePhotons->size();
>> 200 for(i=0; i<theNeutrons->size(); i++)
>> 201 {
>> 202 theResult.Get()->AddSecondary(theNeutrons->operator[](i), secID);
>> 203 }
>> 204 delete theNeutrons;
>> 205
>> 206 G4DynamicParticleVector * theDelayed = 0;
>> 207 // G4cout << "delayed" << G4endl;
>> 208 theDelayed = theFS.ApplyYourself(0, delayed, theDecayConstants);
>> 209 for(i=0; i<theDelayed->size(); i++)
>> 210 {
>> 211 G4double time = -G4Log(G4UniformRand())/theDecayConstants[i];
>> 212 time += theTrack.GetGlobalTime();
>> 213 theResult.Get()->AddSecondary(theDelayed->operator[](i), secID);
>> 214 theResult.Get()->GetSecondary(theResult.Get()->GetNumberOfSecondaries()-1)->SetTime(time);
>> 215 }
>> 216 delete theDelayed;
>> 217 }
>> 218 else
>> 219 {
>> 220 // cout << " all = "<<all<<G4endl;
>> 221 theFS.SampleNeutronMult(all, Prompt, delayed, eKinetic, 0);
>> 222 theDecayConstants = new G4double[delayed];
>> 223 if(Prompt==0&&delayed==0) Prompt=all;
>> 224 theNeutrons = theFS.ApplyYourself(Prompt, delayed, theDecayConstants);
>> 225 //110527TKDB Unused codes, Detected by gcc4.6 compiler
>> 226 //G4int nPhotons = 0;
>> 227 //if(thePhotons!=0) nPhotons = thePhotons->size();
>> 228 G4int i0;
>> 229 for(i0=0; i0<Prompt; i0++)
>> 230 {
>> 231 theResult.Get()->AddSecondary(theNeutrons->operator[](i0), secID);
>> 232 }
>> 233
>> 234 //G4cout << "delayed" << G4endl;
>> 235 for(i0=Prompt; i0<Prompt+delayed; i0++)
>> 236 {
>> 237 // Protect against the very rare case of division by zero
>> 238 G4double time = 0.0;
>> 239 if ( theDecayConstants[i0-Prompt] > 1.0e-30 ) {
>> 240 time = -G4Log(G4UniformRand())/theDecayConstants[i0-Prompt];
>> 241 } else {
>> 242 G4ExceptionDescription ed;
>> 243 ed << " theDecayConstants[i0-Prompt]=" << theDecayConstants[i0-Prompt]
>> 244 << " -> cannot sample the time : set it to 0.0 !" << G4endl;
>> 245 G4Exception( "G4ParticleHPFissionFS::ApplyYourself ", "HAD_FISSIONHP_001", JustWarning, ed );
>> 246 }
>> 247
>> 248 time += theTrack.GetGlobalTime();
>> 249 theResult.Get()->AddSecondary(theNeutrons->operator[](i0), secID);
>> 250 theResult.Get()->GetSecondary(theResult.Get()->GetNumberOfSecondaries()-1)->SetTime(time);
>> 251 }
>> 252 delete theNeutrons;
>> 253 }
>> 254 delete [] theDecayConstants;
>> 255 // cout << "all delayed "<<delayed<<G4endl;
>> 256 unsigned int nPhotons = 0;
>> 257 if(thePhotons!=0)
>> 258 {
>> 259 nPhotons = thePhotons->size();
>> 260 for(i=0; i<nPhotons; i++)
>> 261 {
>> 262 theResult.Get()->AddSecondary(thePhotons->operator[](i), secID);
>> 263 }
>> 264 delete thePhotons;
>> 265 }
>> 266
>> 267 // finally deal with local energy depositions.
>> 268 // G4cout <<"Number of secondaries = "<<theResult.GetNumberOfSecondaries()<< G4endl;
>> 269 // G4cout <<"Number of photons = "<<nPhotons<<G4endl;
>> 270 // G4cout <<"Number of Prompt = "<<Prompt<<G4endl;
>> 271 // G4cout <<"Number of delayed = "<<delayed<<G4endl;
>> 272
>> 273 G4ParticleHPFissionERelease * theERelease = theFS.GetEnergyRelease();
>> 274 G4double eDepByFragments = theERelease->GetFragmentKinetic();
>> 275 //theResult.SetLocalEnergyDeposit(eDepByFragments);
>> 276 if ( !produceFissionFragments ) theResult.Get()->SetLocalEnergyDeposit(eDepByFragments);
>> 277 // cout << "local energy deposit" << eDepByFragments<<G4endl;
>> 278 // clean up the primary neutron
>> 279 theResult.Get()->SetStatusChange(stopAndKill);
>> 280 //G4cout << "Prompt = " << Prompt << ", Delayed = " << delayed << ", All= " << all << G4endl;
>> 281 //G4cout << "local energy deposit " << eDepByFragments/MeV << "MeV " << G4endl;
>> 282
>> 283 //TKWORK120531
>> 284 if ( produceFissionFragments )
>> 285 {
>> 286 G4int fragA_Z=0;
>> 287 G4int fragA_A=0;
>> 288 G4int fragA_M=0;
>> 289 // System is traget rest!
>> 290 theFF.GetAFissionFragment(eKinetic,fragA_Z,fragA_A,fragA_M);
>> 291 G4int fragB_Z=(G4int)theBaseZ-fragA_Z;
>> 292 G4int fragB_A=(G4int)theBaseA-fragA_A-Prompt;
>> 293 //fragA_M ignored
>> 294 //G4int fragB_M=theBaseM-fragA_M;
>> 295 //G4cout << fragA_Z << " " << fragA_A << " " << fragA_M << G4endl;
>> 296 //G4cout << fragB_Z << " " << fragB_A << G4endl;
>> 297
>> 298 G4IonTable* pt = G4IonTable::GetIonTable();
>> 299 //Excitation energy is not taken into account
>> 300 G4ParticleDefinition* pdA = pt->GetIon( fragA_Z , fragA_A , 0.0 );
>> 301 G4ParticleDefinition* pdB = pt->GetIon( fragB_Z , fragB_A , 0.0 );
>> 302
>> 303 //Isotropic Distribution
>> 304 G4double phi = twopi*G4UniformRand();
>> 305 // Bug #1745 DHW G4double theta = pi*G4UniformRand();
>> 306 G4double costheta = 2.*G4UniformRand()-1.;
>> 307 G4double theta = std::acos(costheta);
>> 308 G4double sinth = std::sin(theta);
>> 309 G4ThreeVector direction(sinth*std::cos(phi), sinth*std::sin(phi), costheta);
>> 310
>> 311 // Just use ENDF value for this
>> 312 G4double ER = eDepByFragments;
>> 313 G4double ma = pdA->GetPDGMass();
>> 314 G4double mb = pdB->GetPDGMass();
>> 315 G4double EA = ER / ( 1 + ma/mb);
>> 316 G4double EB = ER - EA;
>> 317 G4DynamicParticle* dpA = new G4DynamicParticle( pdA , direction , EA);
>> 318 G4DynamicParticle* dpB = new G4DynamicParticle( pdB , -direction , EB);
>> 319 theResult.Get()->AddSecondary(dpA, secID);
>> 320 theResult.Get()->AddSecondary(dpB, secID);
>> 321 }
>> 322 //TKWORK 120531 END
282 323
283 return theResult.Get(); << 324 return theResult.Get();
284 } << 325 }
285 326