Geant4  10.03.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
G4SmpSpNugDistData.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: G4SmpSpNugDistData.cc 68799 2013-04-05 13:29:46Z gcosmo $
57 //
58 
59 #include "G4fissionEvent.hh"
60 
61 #define nSPfissg 30
62 
63 G4int G4fissionEvent::G4SmpSpNugDistData(G4int isotope) {
64 
65 /*
66  Description
67  Sample Number of Photons from spontaneous fission in
68  (a) Cf-252 using the double Poisson model from Brunson;
69  (b) Th-232,
70  U-232, U-233, U-234, U-235, U-236, U-238*,
71  Np-237,
72  Pu-238*, Pu-239, Pu-240*, Pu-241, Pu-242*,
73  Am-241,
74  Cm-242*, Cm-244*,
75  Bk-249
76  using the negative binomial distribution based on the
77  spontaneous fission neutron nubar from Ensslin's
78  tabulated data or Holden and Zucker's tabulated data
79  (for isotopes denoted with asterix *).
80 */
81 
82 /*
83  Input
84  iso - isotope
85  Output
86  G4SmpSpNugDistData - sampled multiplicity
87  -1 if there is no multiplicity data for that isotope
88 */
89 
90  G4int i;
91  G4double sum, nubar;
92  G4double r;
93 
94  static G4double Cf252spdist [nSPfissg] = {
95  5.162699e-4,3.742057e-3,1.360482e-2,3.312786e-2,6.090540e-2,
96  9.043537e-2,1.133984e-1,1.240985e-1,1.216759e-1,1.092255e-1,
97  9.137106e-2,7.219960e-2,5.438060e-2,3.923091e-2,2.714690e-2,
98  1.800781e-2,1.143520e-2,6.942099e-3,4.025720e-3,2.229510e-3,
99  1.179602e-3,5.966936e-4,2.888766e-4,1.340137e-4,5.965291e-5,
100  2.551191e-5,1.049692e-5,4.160575e-6,1.590596e-6,0.000000e+0
101  };
102 
103 /*
104  sample the spontaneous fission photon number distribution
105 */
106  nubar=0.;
107  if (isotope == 98252) {
108 // Cf-252 using the G4double Poisson model from Brunson;
109  r=fisslibrng();
110 
111  sum = 0.;
112  for (i = 0; i < nSPfissg-1; i++) {
113  sum = sum + Cf252spdist[i];
114  if (r <= sum || Cf252spdist[i+1] == 0.) return i;
115  }
116  } else if (isotope == 92238) {
117 /*
118  using the spontaneous fission nubar from
119  Holden and Zucker's tabulated data
120 */
121  nubar = 1.9900002;
122  } else if (isotope == 94240) {
123  nubar = 2.1540006;
124  } else if (isotope == 94242) {
125  nubar = 2.1489998;
126  } else if (isotope == 96242) {
127  nubar = 2.54;
128  } else if (isotope == 96244) {
129  nubar = 2.7200005;
130  } else if (isotope == 94238) {
131  nubar = 2.2100301;
132  }
133 
134  if (nubar != 0.) {
135  return G4SmpNugDist(isotope, nubar);
136  } else {
137 /*
138  using the spontaneous fission nubar from
139  N. Ensslin, et.al., "Application Guide to Neutron
140  Multiplicity Counting," LA-13422-M (November 1998)
141 */
142  nubar = G4SmpSpNubarData(isotope);
143  if (nubar != -1.) {
144  return G4SmpNugDist(isotope, nubar);
145  } else {
146 // There is no nubar information for that isotope, return -1,
147 // meaning no data available for that isotope
148  return -1;
149  }
150  }
151 }
int G4int
Definition: G4Types.hh:78
double G4double
Definition: G4Types.hh:76
#define nSPfissg