| Geant4 Cross Reference |
1 // 1
2 // *******************************************
3 // * License and Disclaimer
4 // *
5 // * The Geant4 software is copyright of th
6 // * the Geant4 Collaboration. It is provided
7 // * conditions of the Geant4 Software License
8 // * LICENSE and available at http://cern.ch/
9 // * include a list of copyright holders.
10 // *
11 // * Neither the authors of this software syst
12 // * institutes,nor the agencies providing fin
13 // * work make any representation or warran
14 // * regarding this software system or assum
15 // * use. Please see the license in the file
16 // * for the full disclaimer and the limitatio
17 // *
18 // * This code implementation is the result
19 // * technical work of the GEANT4 collaboratio
20 // * By using, copying, modifying or distri
21 // * any work based on the software) you ag
22 // * use in resulting scientific publicati
23 // * acceptance of all terms of the Geant4 Sof
24 // *******************************************
25 //
26 // neutron_hp -- source file
27 // J.P. Wellisch, Nov-1996
28 // A prototype of the low energy neutron trans
29 //
30 // 070523 bug fix for G4FPE_DEBUG on by A. How
31 // 080319 Compilation warnings - gcc-4.3.0 fix
32 //
33 // P. Arce, June-2014 Conversion neutron_hp to
34 //
35 #include "G4ParticleHPElastic.hh"
36
37 #include "G4ParticleHPElasticFS.hh"
38 #include "G4ParticleHPManager.hh"
39 #include "G4ParticleHPThermalBoost.hh"
40 #include "G4SystemOfUnits.hh"
41 #include "G4Threading.hh"
42
43 G4ParticleHPElastic::G4ParticleHPElastic() : G
44 {
45 overrideSuspension = false;
46 SetMinEnergy(0. * eV);
47 SetMaxEnergy(20. * MeV);
48 }
49
50 G4ParticleHPElastic::~G4ParticleHPElastic()
51 {
52 // the vectror is shared among threads, only
53 if (!G4Threading::IsWorkerThread()) {
54 if (theElastic != nullptr) {
55 for (auto it = theElastic->cbegin(); it
56 delete *it;
57 }
58 theElastic->clear();
59 }
60 }
61 }
62
63 G4HadFinalState* G4ParticleHPElastic::ApplyYou
64
65 {
66 return this->ApplyYourself(aTrack, aNucleus,
67 }
68
69 //--------------------------------------------
70 // New method added by L. Thulliez (CEA-Saclay
71 //--------------------------------------------
72 G4HadFinalState* G4ParticleHPElastic::ApplyYou
73
74 {
75 G4ParticleHPManager::GetInstance()->OpenReac
76 const G4Material* theMaterial = aTrack.GetMa
77 auto n = (G4int)theMaterial->GetNumberOfElem
78 std::size_t index = theMaterial->GetElement(
79
80 if (!isFromTSL) {
81 if (n != 1) {
82 G4int i;
83 auto xSec = new G4double[n];
84 G4double sum = 0;
85 const G4double* NumAtomsPerVolume = theM
86 G4double rWeight;
87 G4ParticleHPThermalBoost aThermalE;
88 for (i = 0; i < n; ++i) {
89 index = theMaterial->GetElement(i)->Ge
90 rWeight = NumAtomsPerVolume[i];
91 xSec[i] = ((*theElastic)[index])
92 ->GetXsec(aThermalE.GetThe
93
94 xSec[i] *= rWeight;
95 sum += xSec[i];
96 }
97 G4double random = G4UniformRand();
98 G4double running = 0;
99 for (i = 0; i < n; ++i) {
100 running += xSec[i];
101 index = theMaterial->GetElement(i)->Ge
102 if (sum == 0 || random <= running / su
103 }
104 delete[] xSec;
105 }
106 }
107 else {
108 G4int i;
109 if (n != 1) {
110 for (i = 0; i < n; ++i) {
111 if (aNucleus.GetZ_asInt() == (G4int)(t
112 index = theMaterial->GetElement(i)->
113 }
114 }
115 }
116 }
117
118 // The boolean "true", as last argument, spe
119 // that it is an elastic channel: this is ne
120 G4HadFinalState* finalState = ((*theElastic)
121
122 if (overrideSuspension) finalState->SetStatu
123
124 // Overwrite target parameters
125 aNucleus.SetParameters(G4ParticleHPManager::
126 G4ParticleHPManager::
127 const G4Element* target_element = (*G4Elemen
128 const G4Isotope* target_isotope = nullptr;
129 auto iele = (G4int)target_element->GetNumber
130 for (G4int j = 0; j != iele; ++j) {
131 target_isotope = target_element->GetIsotop
132 if (target_isotope->GetN()
133 == G4ParticleHPManager::GetInstance()-
134 break;
135 }
136 aNucleus.SetIsotope(target_isotope);
137
138 G4ParticleHPManager::GetInstance()->CloseRea
139 return finalState;
140 }
141
142 const std::pair<G4double, G4double> G4Particle
143 {
144 // max energy non-conservation is mass of he
145 return std::pair<G4double, G4double>(10.0 *
146 }
147
148 G4int G4ParticleHPElastic::GetVerboseLevel() c
149 {
150 return G4ParticleHPManager::GetInstance()->G
151 }
152
153 void G4ParticleHPElastic::SetVerboseLevel(G4in
154 {
155 G4ParticleHPManager::GetInstance()->SetVerbo
156 }
157
158 void G4ParticleHPElastic::BuildPhysicsTable(co
159 {
160 G4ParticleHPManager* hpmanager = G4ParticleH
161
162 theElastic = hpmanager->GetElasticFinalState
163
164 if (G4Threading::IsMasterThread()) {
165 if (theElastic == nullptr) theElastic = ne
166
167 if (numEle == (G4int)G4Element::GetNumberO
168
169 if (theElastic->size() == G4Element::GetNu
170 numEle = (G4int)G4Element::GetNumberOfEl
171 return;
172 }
173
174 auto theFS = new G4ParticleHPElasticFS;
175 if (G4FindDataDir("G4NEUTRONHPDATA") == nu
176 throw G4HadronicException(
177 __FILE__, __LINE__,
178 "Please setenv G4NEUTRONHPDATA to poin
179 dirName = G4FindDataDir("G4NEUTRONHPDATA")
180 G4String tString = "/Elastic";
181 dirName = dirName + tString;
182 for (G4int i = numEle; i < (G4int)G4Elemen
183 theElastic->push_back(new G4ParticleHPCh
184 ((*theElastic)[i])->Init((*(G4Element::G
185 // while(!((*theElastic)[i])->Register(t
186 ((*theElastic)[i])->Register(theFS);
187 }
188 delete theFS;
189 hpmanager->RegisterElasticFinalStates(theE
190 }
191 numEle = (G4int)G4Element::GetNumberOfElemen
192 }
193
194 void G4ParticleHPElastic::ModelDescription(std
195 {
196 outFile << "High Precision model based on Ev
197 "reaction of neutrons below 20MeV
198 }
199