Geant4
9.6.p02
Main Page
Related Pages
Modules
Namespaces
Classes
Files
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Groups
Pages
geant4_9_6_p02
source
processes
hadronic
models
lll_fission
src
G4FissLib.cc
Go to the documentation of this file.
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
//
27
// This software was developed by Lawrence Livermore National Laboratory.
28
//
29
// Redistribution and use in source and binary forms, with or without
30
// modification, are permitted provided that the following conditions are met:
31
//
32
// 1. Redistributions of source code must retain the above copyright notice,
33
// this list of conditions and the following disclaimer.
34
// 2. Redistributions in binary form must reproduce the above copyright notice,
35
// this list of conditions and the following disclaimer in the documentation
36
// and/or other materials provided with the distribution.
37
// 3. The name of the author may not be used to endorse or promote products
38
// derived from this software without specific prior written permission.
39
//
40
// THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
41
// WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
42
// MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
43
// EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
44
// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
45
// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
46
// OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
47
// WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
48
// OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
49
// ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
50
//
51
// Copyright (c) 2006 The Regents of the University of California.
52
// All rights reserved.
53
// UCRL-CODE-224807
54
//
55
//
56
// $Id: G4FissLib.cc 69860 2013-05-16 14:39:02Z gcosmo $
57
//
58
// neutron_hp -- source file
59
// J.M. Verbeke, Jan-2007
60
// A prototype of the low energy neutron transport model.
61
//
62
#include "
G4FissLib.hh
"
63
#include "
G4SystemOfUnits.hh
"
64
65
G4FissLib::G4FissLib
()
66
:xSec(0)
67
{
68
SetMinEnergy
(0.0);
69
SetMaxEnergy
(20.*
MeV
);
70
if
(!getenv(
"G4NEUTRONHPDATA"
)) {
71
G4cout
<<
"Please setenv G4NEUTRONHPDATA to point to the neutron cross-section files."
<<
G4endl
;
72
throw
G4HadronicException
(__FILE__, __LINE__,
"Please setenv G4NEUTRONHPDATA to point to the neutron cross-section files."
);
73
}
74
dirName = getenv(
"G4NEUTRONHPDATA"
);
75
G4String
tString =
"/Fission/"
;
76
dirName = dirName + tString;
77
numEle =
G4Element::GetNumberOfElements
();
78
theFission =
new
G4NeutronHPChannel
[numEle];
79
80
for
(
G4int
i=0; i<numEle; i++)
81
{
82
// G4cout << "G4FissLib::G4FissLib(): element "<< i << " : " << (*(G4Element::GetElementTable()))[i]->GetZ()<< G4endl;
83
if
((*(
G4Element::GetElementTable
()))[i]->GetZ()>89)
84
{
85
theFission[i].
Init
((*(
G4Element::GetElementTable
()))[i], dirName);
86
theFission[i].
Register
(&theLibrary);
87
}
88
}
89
}
90
91
G4FissLib::~G4FissLib
()
92
{
93
delete
[] theFission;
94
}
95
96
G4HadFinalState
*
97
G4FissLib::ApplyYourself
(
const
G4HadProjectile
& aTrack,
G4Nucleus
&)
98
{
99
const
G4Material
* theMaterial = aTrack.
GetMaterial
();
100
G4int
n
= theMaterial->
GetNumberOfElements
();
101
G4int
index
= theMaterial->
GetElement
(0)->
GetIndex
();
102
103
if
(n != 1) {
104
xSec =
new
G4double
[
n
];
105
G4double
sum = 0;
106
G4int
i;
107
G4int
imat;
108
const
G4double
* NumAtomsPerVolume = theMaterial->
GetVecNbOfAtomsPerVolume
();
109
G4double
rWeight;
110
G4NeutronHPThermalBoost
aThermalE;
111
for
(i = 0; i <
n
; i++) {
112
imat = theMaterial->
GetElement
(i)->
GetIndex
();
113
rWeight = NumAtomsPerVolume[i];
114
xSec[i] = theFission[imat].
GetXsec
(aThermalE.
GetThermalEnergy
(aTrack,
115
theMaterial->
GetElement
(i),
116
theMaterial->
GetTemperature
()));
117
xSec[i] *= rWeight;
118
sum+=xSec[i];
119
}
120
121
G4double
random =
G4UniformRand
();
122
G4double
running = 0;
123
for
(i = 0; i <
n
; i++) {
124
running += xSec[i];
125
index = theMaterial->
GetElement
(i)->
GetIndex
();
126
if
(random<=running/sum)
break
;
127
}
128
delete
[] xSec;
129
}
130
131
return
theFission[
index
].
ApplyYourself
(aTrack);
132
}
133
Generated on Sat May 25 2013 14:34:01 for Geant4 by
1.8.4