20080968915

Committed 09 Dec 2025 10:46PM UTC coverage: 82.084% (-0.03%) from 82.11%

Build # 20080968915

Build Type

Pull #3675

github

Committed by

web-flow

Commit Message

Merge 8ceb9f400 into a9dc84f75

Pull Request Pull Request #3675: Extend level scattering to support incident photons

Run Details

16958 of 23543 branches covered (72.03%)

Branch coverage included in aggregate %.

47 of 62 new or added lines in 3 files covered. (75.81%)

17 existing lines in 2 files now uncovered.

55062 of 64196 relevant lines covered (85.77%)

43480671.82 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

82.45

/src/distribution_energy.cpp

#include "openmc/distribution_energy.h"

#include <algorithm> // for max, min, copy, move
#include <cmath>     // for sqrt, abs
#include <cstddef>   // for size_t
#include <iterator>  // for back_inserter

#include "xtensor/xview.hpp"

#include "openmc/constants.h"
#include "openmc/endf.h"
#include "openmc/hdf5_interface.h"
#include "openmc/math_functions.h"
#include "openmc/particle.h"
#include "openmc/random_dist.h"
#include "openmc/random_lcg.h"
#include "openmc/search.h"

namespace openmc {

//==============================================================================
// DiscretePhoton implementation
//==============================================================================

DiscretePhoton::DiscretePhoton(hid_t group)
{
  read_attribute(group, "primary_flag", primary_flag_);
  read_attribute(group, "energy", energy_);
  read_attribute(group, "atomic_weight_ratio", A_);
}

double DiscretePhoton::sample(double E, uint64_t* seed) const
{
  if (primary_flag_ == 2) {
    return energy_ + A_ / (A_ + 1) * E;
  } else {
    return energy_;
  }
}

//==============================================================================
// LevelInelastic implementation
//==============================================================================

LevelInelastic::LevelInelastic(hid_t group)
{
  // for backwards compatibility:
  if (attribute_exists(group, "mass_ratio")) {
    read_attribute(group, "threshold", b_);
    read_attribute(group, "mass_ratio", a_);
    c_ = 0.0;
  } else {
    double A, Q;
    std::string temp;
    read_attribute(group, "mass", A);
    read_attribute(group, "q_value", Q);
    read_attribute(group, "particle", temp);
    auto particle = str_to_particle_type(temp);
    if (particle == ParticleType::neutron) {
      a_ = (A / (A + 1.0)) * (A / (A + 1.0));
      b_ = (A + 1.0) / A * std::abs(Q);
      c_ = 0.0;
    } else if (particle == ParticleType::photon) {
      a_ = (A - 1.0) / A;
      b_ = -Q;
      c_ = 1.0 / (2.0 * MASS_NEUTRON_EV * A);
    } else {
      fatal_error("Unrecognized particle: " + temp);
    }
  }
}

double LevelInelastic::sample(double E, uint64_t* seed) const
{
  return a_ * (E - b_ - c_ * (E * E));
}

//==============================================================================
// ContinuousTabular implementation
//==============================================================================

ContinuousTabular::ContinuousTabular(hid_t group)
{
  // Open incoming energy dataset
  hid_t dset = open_dataset(group, "energy");

  // Get interpolation parameters
  xt::xarray<int> temp;
  read_attribute(dset, "interpolation", temp);

  auto temp_b = xt::view(temp, 0); // view of breakpoints
  auto temp_i = xt::view(temp, 1); // view of interpolation parameters

  std::copy(temp_b.begin(), temp_b.end(), std::back_inserter(breakpoints_));
  for (const auto i : temp_i)
    interpolation_.push_back(int2interp(i));
  n_region_ = breakpoints_.size();

  // Get incoming energies
  read_dataset(dset, energy_);
  std::size_t n_energy = energy_.size();
  close_dataset(dset);

  // Get outgoing energy distribution data
  dset = open_dataset(group, "distribution");
  vector<int> offsets;
  vector<int> interp;
  vector<int> n_discrete;
  read_attribute(dset, "offsets", offsets);
  read_attribute(dset, "interpolation", interp);
  read_attribute(dset, "n_discrete_lines", n_discrete);

  xt::xarray<double> eout;
  read_dataset(dset, eout);
  close_dataset(dset);

  for (int i = 0; i < n_energy; ++i) {
    // Determine number of outgoing energies
    int j = offsets[i];
    int n;
    if (i < n_energy - 1) {
      n = offsets[i + 1] - j;
    } else {
      n = eout.shape()[1] - j;
    }

    // Assign interpolation scheme and number of discrete lines
    CTTable d;
    d.interpolation = int2interp(interp[i]);
    d.n_discrete = n_discrete[i];

    // Copy data
    d.e_out = xt::view(eout, 0, xt::range(j, j + n));
    d.p = xt::view(eout, 1, xt::range(j, j + n));

    // To get answers that match ACE data, for now we still use the tabulated
    // CDF values that were passed through to the HDF5 library. At a later
    // time, we can remove the CDF values from the HDF5 library and
    // reconstruct them using the PDF
    if (true) {
      d.c = xt::view(eout, 2, xt::range(j, j + n));
    } else {
      // Calculate cumulative distribution function -- discrete portion
      for (int k = 0; k < d.n_discrete; ++k) {
        if (k == 0) {
          d.c[k] = d.p[k];
        } else {
          d.c[k] = d.c[k - 1] + d.p[k];
        }
      }

      // Continuous portion
      for (int k = d.n_discrete; k < n; ++k) {
        if (k == d.n_discrete) {
          d.c[k] = d.c[k - 1] + d.p[k];
        } else {
          if (d.interpolation == Interpolation::histogram) {
            d.c[k] = d.c[k - 1] + d.p[k - 1] * (d.e_out[k] - d.e_out[k - 1]);
          } else if (d.interpolation == Interpolation::lin_lin) {
            d.c[k] = d.c[k - 1] + 0.5 * (d.p[k - 1] + d.p[k]) *
                                    (d.e_out[k] - d.e_out[k - 1]);
          }
        }
      }

      // Normalize density and distribution functions
      d.p /= d.c[n - 1];
      d.c /= d.c[n - 1];
    }

    distribution_.push_back(std::move(d));
  } // incoming energies
}

double ContinuousTabular::sample(double E, uint64_t* seed) const
{
  // Read number of interpolation regions and incoming energies
  bool histogram_interp;
  if (n_region_ == 1) {
    histogram_interp = (interpolation_[0] == Interpolation::histogram);
  } else {
    histogram_interp = false;
  }

  // Find energy bin and calculate interpolation factor -- if the energy is
  // outside the range of the tabulated energies, choose the first or last bins
  auto n_energy_in = energy_.size();
  int i;
  double r;
  if (E < energy_[0]) {
    i = 0;
    r = 0.0;
  } else if (E > energy_[n_energy_in - 1]) {
    i = n_energy_in - 2;
    r = 1.0;
  } else {
    i = lower_bound_index(energy_.begin(), energy_.end(), E);
    r = (E - energy_[i]) / (energy_[i + 1] - energy_[i]);
  }

  // Sample between the ith and [i+1]th bin
  int l;
  if (histogram_interp) {
    l = i;
  } else {
    l = r > prn(seed) ? i + 1 : i;
  }

  // Determine outgoing energy bin
  int n_energy_out = distribution_[l].e_out.size();
  int n_discrete = distribution_[l].n_discrete;
  double r1 = prn(seed);
  double c_k = distribution_[l].c[0];
  int k = 0;
  int end = n_energy_out - 2;

  // Discrete portion
  for (int j = 0; j < n_discrete; ++j) {
    k = j;
    c_k = distribution_[l].c[k];
    if (r1 < c_k) {
      end = j;
      break;
    }
  }

  // Continuous portion
  double c_k1;
  for (int j = n_discrete; j < end; ++j) {
    k = j;
    c_k1 = distribution_[l].c[k + 1];
    if (r1 < c_k1)
      break;
    k = j + 1;
    c_k = c_k1;
  }

  double E_l_k = distribution_[l].e_out[k];
  double p_l_k = distribution_[l].p[k];
  double E_out = E_l_k;
  if (distribution_[l].interpolation == Interpolation::histogram) {
    // Histogram interpolation
    if (p_l_k > 0.0 && k >= n_discrete) {
      E_out = E_l_k + (r1 - c_k) / p_l_k;
    }

  } else if (distribution_[l].interpolation == Interpolation::lin_lin) {
    // Linear-linear interpolation
    double E_l_k1 = distribution_[l].e_out[k + 1];
    double p_l_k1 = distribution_[l].p[k + 1];

    if (E_l_k != E_l_k1) {
      double frac = (p_l_k1 - p_l_k) / (E_l_k1 - E_l_k);
      if (frac == 0.0) {
        E_out = E_l_k + (r1 - c_k) / p_l_k;
      } else {
        E_out =
          E_l_k +
          (std::sqrt(std::max(0.0, p_l_k * p_l_k + 2.0 * frac * (r1 - c_k))) -
            p_l_k) /
            frac;
      }
    }
  } else {
    throw std::runtime_error {"Unexpected interpolation for continuous energy "
                              "distribution."};
  }

  // Now interpolate between incident energy bins i and i + 1
  if (!histogram_interp && n_energy_out > 1 && k >= n_discrete) {
    // Interpolation for energy E1 and EK
    n_energy_out = distribution_[i].e_out.size();
    n_discrete = distribution_[i].n_discrete;
    const double E_i_1 = distribution_[i].e_out[n_discrete];
    const double E_i_K = distribution_[i].e_out[n_energy_out - 1];

    n_energy_out = distribution_[i + 1].e_out.size();
    n_discrete = distribution_[i + 1].n_discrete;
    const double E_i1_1 = distribution_[i + 1].e_out[n_discrete];
    const double E_i1_K = distribution_[i + 1].e_out[n_energy_out - 1];

    const double E_1 = E_i_1 + r * (E_i1_1 - E_i_1);
    const double E_K = E_i_K + r * (E_i1_K - E_i_K);

    if (l == i) {
      return E_1 + (E_out - E_i_1) * (E_K - E_1) / (E_i_K - E_i_1);
    } else {
      return E_1 + (E_out - E_i1_1) * (E_K - E_1) / (E_i1_K - E_i1_1);
    }
  } else {
    return E_out;
  }
}

//==============================================================================
// MaxwellEnergy implementation
//==============================================================================

MaxwellEnergy::MaxwellEnergy(hid_t group)
{
  read_attribute(group, "u", u_);
  hid_t dset = open_dataset(group, "theta");
  theta_ = Tabulated1D {dset};
  close_dataset(dset);
}

double MaxwellEnergy::sample(double E, uint64_t* seed) const
{
  // Get temperature corresponding to incoming energy
  double theta = theta_(E);

  while (true) {
    // Sample maxwell fission spectrum
    double E_out = maxwell_spectrum(theta, seed);

    // Accept energy based on restriction energy
    if (E_out <= E - u_)
      return E_out;
  }
}

//==============================================================================
// Evaporation implementation
//==============================================================================

Evaporation::Evaporation(hid_t group)
{
  read_attribute(group, "u", u_);
  hid_t dset = open_dataset(group, "theta");
  theta_ = Tabulated1D {dset};
  close_dataset(dset);
}

double Evaporation::sample(double E, uint64_t* seed) const
{
  // Get temperature corresponding to incoming energy
  double theta = theta_(E);

  double y = (E - u_) / theta;
  double v = 1.0 - std::exp(-y);

  // Sample outgoing energy based on evaporation spectrum probability
  // density function
  double x;
  while (true) {
    x = -std::log((1.0 - v * prn(seed)) * (1.0 - v * prn(seed)));
    if (x <= y)
      break;
  }

  return x * theta;
}

//==============================================================================
// WattEnergy implementation
//==============================================================================

WattEnergy::WattEnergy(hid_t group)
{
  // Read restriction energy
  read_attribute(group, "u", u_);

  // Read tabulated functions
  hid_t dset = open_dataset(group, "a");
  a_ = Tabulated1D {dset};
  close_dataset(dset);
  dset = open_dataset(group, "b");
  b_ = Tabulated1D {dset};
  close_dataset(dset);
}

double WattEnergy::sample(double E, uint64_t* seed) const
{
  // Determine Watt parameters at incident energy
  double a = a_(E);
  double b = b_(E);

  while (true) {
    // Sample energy-dependent Watt fission spectrum
    double E_out = watt_spectrum(a, b, seed);

    // Accept energy based on restriction energy
    if (E_out <= E - u_)
      return E_out;
  }
}

} // namespace openmc

1	#include "openmc/distribution_energy.h"
2
3	#include <algorithm> // for max, min, copy, move
4	#include <cmath> // for sqrt, abs
5	#include <cstddef> // for size_t
6	#include <iterator> // for back_inserter
7
8	#include "xtensor/xview.hpp"
9
10	#include "openmc/constants.h"
11	#include "openmc/endf.h"
12	#include "openmc/hdf5_interface.h"
13	#include "openmc/math_functions.h"
14	#include "openmc/particle.h"
15	#include "openmc/random_dist.h"
16	#include "openmc/random_lcg.h"
17	#include "openmc/search.h"
18
19	namespace openmc {
20
21	//==============================================================================
22	// DiscretePhoton implementation
23	//==============================================================================
24
25	DiscretePhoton::DiscretePhoton(hid_t group)	2,276,023✔
26	{
27	read_attribute(group, "primary_flag", primary_flag_);	2,276,023✔
28	read_attribute(group, "energy", energy_);	2,276,023✔
29	read_attribute(group, "atomic_weight_ratio", A_);	2,276,023✔
30	}	2,276,023✔
31
32	double DiscretePhoton::sample(double E, uint64_t* seed) const	201,586✔
33	{
34	if (primary_flag_ == 2) {	201,586✔
35	return energy_ + A_ / (A_ + 1) * E;	29,392✔
36	} else {
37	return energy_;	172,194✔
38	}
39	}
40
41	//==============================================================================
42	// LevelInelastic implementation
43	//==============================================================================
44
45	LevelInelastic::LevelInelastic(hid_t group)	505,279✔
46	{
47	// for backwards compatibility:
48	if (attribute_exists(group, "mass_ratio")) {	505,279!
49	read_attribute(group, "threshold", b_);	505,279✔
50	read_attribute(group, "mass_ratio", a_);	505,279✔
51	c_ = 0.0;	505,279✔
52	} else {
53	double A, Q;
NEW 54	std::string temp;	×
NEW 55	read_attribute(group, "mass", A);	×
NEW 56	read_attribute(group, "q_value", Q);	×
NEW 57	read_attribute(group, "particle", temp);	×
NEW 58	auto particle = str_to_particle_type(temp);	×
NEW 59	if (particle == ParticleType::neutron) {	×
NEW 60	a_ = (A / (A + 1.0)) * (A / (A + 1.0));	×
NEW 61	b_ = (A + 1.0) / A * std::abs(Q);	×
NEW 62	c_ = 0.0;	×
NEW 63	} else if (particle == ParticleType::photon) {	×
NEW 64	a_ = (A - 1.0) / A;	×
NEW 65	b_ = -Q;	×
NEW 66	c_ = 1.0 / (2.0 * MASS_NEUTRON_EV * A);	×
67	} else {
NEW 68	fatal_error("Unrecognized particle: " + temp);	×
69	}
NEW 70	}	×
71	}	505,279✔
72
73	double LevelInelastic::sample(double E, uint64_t* seed) const	11,463,033✔
74	{
75	return a_ * (E - b_ - c_ * (E * E));	11,463,033✔
76	}
77
78	//==============================================================================
79	// ContinuousTabular implementation
80	//==============================================================================
81
82	ContinuousTabular::ContinuousTabular(hid_t group)	299,004✔
83	{
84	// Open incoming energy dataset
85	hid_t dset = open_dataset(group, "energy");	299,004✔
86
87	// Get interpolation parameters
88	xt::xarray<int> temp;	299,004✔
89	read_attribute(dset, "interpolation", temp);	299,004✔
90
91	auto temp_b = xt::view(temp, 0); // view of breakpoints	299,004✔
92	auto temp_i = xt::view(temp, 1); // view of interpolation parameters	299,004✔
93
94	std::copy(temp_b.begin(), temp_b.end(), std::back_inserter(breakpoints_));	299,004✔
95	for (const auto i : temp_i)	598,254✔
96	interpolation_.push_back(int2interp(i));	299,250✔
97	n_region_ = breakpoints_.size();	299,004✔
98
99	// Get incoming energies
100	read_dataset(dset, energy_);	299,004✔
101	std::size_t n_energy = energy_.size();	299,004✔
102	close_dataset(dset);	299,004✔
103
104	// Get outgoing energy distribution data
105	dset = open_dataset(group, "distribution");	299,004✔
106	vector<int> offsets;	299,004✔
107	vector<int> interp;	299,004✔
108	vector<int> n_discrete;	299,004✔
109	read_attribute(dset, "offsets", offsets);	299,004✔
110	read_attribute(dset, "interpolation", interp);	299,004✔
111	read_attribute(dset, "n_discrete_lines", n_discrete);	299,004✔
112
113	xt::xarray<double> eout;	299,004✔
114	read_dataset(dset, eout);	299,004✔
115	close_dataset(dset);	299,004✔
116
117	for (int i = 0; i < n_energy; ++i) {	4,480,657✔
118	// Determine number of outgoing energies
119	int j = offsets[i];	4,181,653✔
120	int n;
121	if (i < n_energy - 1) {	4,181,653✔
122	n = offsets[i + 1] - j;	3,882,649✔
123	} else {
124	n = eout.shape()[1] - j;	299,004✔
125	}
126
127	// Assign interpolation scheme and number of discrete lines
128	CTTable d;	4,181,653✔
129	d.interpolation = int2interp(interp[i]);	4,181,653✔
130	d.n_discrete = n_discrete[i];	4,181,653✔
131
132	// Copy data
133	d.e_out = xt::view(eout, 0, xt::range(j, j + n));	4,181,653✔
134	d.p = xt::view(eout, 1, xt::range(j, j + n));	4,181,653✔
135
136	// To get answers that match ACE data, for now we still use the tabulated
137	// CDF values that were passed through to the HDF5 library. At a later
138	// time, we can remove the CDF values from the HDF5 library and
139	// reconstruct them using the PDF
140	if (true) {
141	d.c = xt::view(eout, 2, xt::range(j, j + n));	4,181,653✔
142	} else {
143	// Calculate cumulative distribution function -- discrete portion
144	for (int k = 0; k < d.n_discrete; ++k) {
145	if (k == 0) {
146	d.c[k] = d.p[k];
147	} else {
148	d.c[k] = d.c[k - 1] + d.p[k];
149	}
150	}
151
152	// Continuous portion
153	for (int k = d.n_discrete; k < n; ++k) {
154	if (k == d.n_discrete) {
155	d.c[k] = d.c[k - 1] + d.p[k];
156	} else {
157	if (d.interpolation == Interpolation::histogram) {
158	d.c[k] = d.c[k - 1] + d.p[k - 1] * (d.e_out[k] - d.e_out[k - 1]);
159	} else if (d.interpolation == Interpolation::lin_lin) {
160	d.c[k] = d.c[k - 1] + 0.5 * (d.p[k - 1] + d.p[k]) *
161	(d.e_out[k] - d.e_out[k - 1]);
162	}
163	}
164	}
165
166	// Normalize density and distribution functions
167	d.p /= d.c[n - 1];
168	d.c /= d.c[n - 1];
169	}
170
171	distribution_.push_back(std::move(d));	4,181,653✔
172	} // incoming energies	4,181,653✔
173	}	299,004✔
174
175	double ContinuousTabular::sample(double E, uint64_t* seed) const	28,095,441✔
176	{
177	// Read number of interpolation regions and incoming energies
178	bool histogram_interp;
179	if (n_region_ == 1) {	28,095,441!
180	histogram_interp = (interpolation_[0] == Interpolation::histogram);	28,095,441✔
181	} else {
182	histogram_interp = false;	×
183	}
184
185	// Find energy bin and calculate interpolation factor -- if the energy is
186	// outside the range of the tabulated energies, choose the first or last bins
187	auto n_energy_in = energy_.size();	28,095,441✔
188	int i;
189	double r;
190	if (E < energy_[0]) {	28,095,441!
191	i = 0;	×
192	r = 0.0;	×
193	} else if (E > energy_[n_energy_in - 1]) {	28,095,441!
194	i = n_energy_in - 2;	×
195	r = 1.0;	×
196	} else {
197	i = lower_bound_index(energy_.begin(), energy_.end(), E);	28,095,441✔
198	r = (E - energy_[i]) / (energy_[i + 1] - energy_[i]);	28,095,441✔
199	}
200
201	// Sample between the ith and [i+1]th bin
202	int l;
203	if (histogram_interp) {	28,095,441✔
204	l = i;	2,211✔
205	} else {
206	l = r > prn(seed) ? i + 1 : i;	28,093,230✔
207	}
208
209	// Determine outgoing energy bin
210	int n_energy_out = distribution_[l].e_out.size();	28,095,441✔
211	int n_discrete = distribution_[l].n_discrete;	28,095,441✔
212	double r1 = prn(seed);	28,095,441✔
213	double c_k = distribution_[l].c[0];	28,095,441✔
214	int k = 0;	28,095,441✔
215	int end = n_energy_out - 2;	28,095,441✔
216
217	// Discrete portion
218	for (int j = 0; j < n_discrete; ++j) {	28,676,362✔
219	k = j;	727,397✔
220	c_k = distribution_[l].c[k];	727,397✔
221	if (r1 < c_k) {	727,397✔
222	end = j;	146,476✔
223	break;	146,476✔
224	}
225	}
226
227	// Continuous portion
228	double c_k1;
229	for (int j = n_discrete; j < end; ++j) {	2,147,483,647✔
230	k = j;	2,147,483,647✔
231	c_k1 = distribution_[l].c[k + 1];	2,147,483,647✔
232	if (r1 < c_k1)	2,147,483,647✔
233	break;	27,948,635✔
234	k = j + 1;	2,147,483,647✔
235	c_k = c_k1;	2,147,483,647✔
236	}
237
238	double E_l_k = distribution_[l].e_out[k];	28,095,441✔
239	double p_l_k = distribution_[l].p[k];	28,095,441✔
240	double E_out = E_l_k;	28,095,441✔
241	if (distribution_[l].interpolation == Interpolation::histogram) {	28,095,441✔
242	// Histogram interpolation
243	if (p_l_k > 0.0 && k >= n_discrete) {	722,235!
244	E_out = E_l_k + (r1 - c_k) / p_l_k;	575,759✔
245	}
246
247	} else if (distribution_[l].interpolation == Interpolation::lin_lin) {	27,373,206!
248	// Linear-linear interpolation
249	double E_l_k1 = distribution_[l].e_out[k + 1];	27,373,206✔
250	double p_l_k1 = distribution_[l].p[k + 1];	27,373,206✔
251
252	if (E_l_k != E_l_k1) {	27,373,206!
253	double frac = (p_l_k1 - p_l_k) / (E_l_k1 - E_l_k);	27,373,206✔
254	if (frac == 0.0) {	27,373,206!
255	E_out = E_l_k + (r1 - c_k) / p_l_k;	×
256	} else {
257	E_out =	27,373,206✔
258	E_l_k +
259	(std::sqrt(std::max(0.0, p_l_k * p_l_k + 2.0 * frac * (r1 - c_k))) -	27,373,206✔
260	p_l_k) /	27,373,206✔
261	frac;
262	}
263	}
264	} else {
265	throw std::runtime_error {"Unexpected interpolation for continuous energy "	×
266	"distribution."};	×
267	}
268
269	// Now interpolate between incident energy bins i and i + 1
270	if (!histogram_interp && n_energy_out > 1 && k >= n_discrete) {	28,095,441✔
271	// Interpolation for energy E1 and EK
272	n_energy_out = distribution_[i].e_out.size();	27,946,754✔
273	n_discrete = distribution_[i].n_discrete;	27,946,754✔
274	const double E_i_1 = distribution_[i].e_out[n_discrete];	27,946,754✔
275	const double E_i_K = distribution_[i].e_out[n_energy_out - 1];	27,946,754✔
276
277	n_energy_out = distribution_[i + 1].e_out.size();	27,946,754✔
278	n_discrete = distribution_[i + 1].n_discrete;	27,946,754✔
279	const double E_i1_1 = distribution_[i + 1].e_out[n_discrete];	27,946,754✔
280	const double E_i1_K = distribution_[i + 1].e_out[n_energy_out - 1];	27,946,754✔
281
282	const double E_1 = E_i_1 + r * (E_i1_1 - E_i_1);	27,946,754✔
283	const double E_K = E_i_K + r * (E_i1_K - E_i_K);	27,946,754✔
284
285	if (l == i) {	27,946,754✔
286	return E_1 + (E_out - E_i_1) * (E_K - E_1) / (E_i_K - E_i_1);	18,801,376✔
287	} else {
288	return E_1 + (E_out - E_i1_1) * (E_K - E_1) / (E_i1_K - E_i1_1);	9,145,378✔
289	}
290	} else {
291	return E_out;	148,687✔
292	}
293	}
294
295	//==============================================================================
296	// MaxwellEnergy implementation
297	//==============================================================================
298
299	MaxwellEnergy::MaxwellEnergy(hid_t group)	2,612✔
300	{
301	read_attribute(group, "u", u_);	2,612✔
302	hid_t dset = open_dataset(group, "theta");	2,612✔
303	theta_ = Tabulated1D {dset};	2,612✔
304	close_dataset(dset);	2,612✔
305	}	2,612✔
306
307	double MaxwellEnergy::sample(double E, uint64_t* seed) const	143,473✔
308	{
309	// Get temperature corresponding to incoming energy
310	double theta = theta_(E);	143,473✔
311
312	while (true) {
313	// Sample maxwell fission spectrum
314	double E_out = maxwell_spectrum(theta, seed);	143,473✔
315
316	// Accept energy based on restriction energy
317	if (E_out <= E - u_)	143,473!
318	return E_out;	143,473✔
319	}	×
320	}
321
322	//==============================================================================
323	// Evaporation implementation
324	//==============================================================================
325
326	Evaporation::Evaporation(hid_t group)	4,719✔
327	{
328	read_attribute(group, "u", u_);	4,719✔
329	hid_t dset = open_dataset(group, "theta");	4,719✔
330	theta_ = Tabulated1D {dset};	4,719✔
331	close_dataset(dset);	4,719✔
332	}	4,719✔
333
334	double Evaporation::sample(double E, uint64_t* seed) const	27,280✔
335	{
336	// Get temperature corresponding to incoming energy
337	double theta = theta_(E);	27,280✔
338
339	double y = (E - u_) / theta;	27,280✔
340	double v = 1.0 - std::exp(-y);	27,280✔
341
342	// Sample outgoing energy based on evaporation spectrum probability
343	// density function
344	double x;
345	while (true) {
346	x = -std::log((1.0 - v * prn(seed)) * (1.0 - v * prn(seed)));	32,120✔
347	if (x <= y)	32,120✔
348	break;	27,280✔
349	}
350
351	return x * theta;	27,280✔
352	}
353
354	//==============================================================================
355	// WattEnergy implementation
356	//==============================================================================
357
358	WattEnergy::WattEnergy(hid_t group)	197✔
359	{
360	// Read restriction energy
361	read_attribute(group, "u", u_);	197✔
362
363	// Read tabulated functions
364	hid_t dset = open_dataset(group, "a");	197✔
365	a_ = Tabulated1D {dset};	197✔
366	close_dataset(dset);	197✔
367	dset = open_dataset(group, "b");	197✔
368	b_ = Tabulated1D {dset};	197✔
369	close_dataset(dset);	197✔
370	}	197✔
371
372	double WattEnergy::sample(double E, uint64_t* seed) const	1,831,599✔
373	{
374	// Determine Watt parameters at incident energy
375	double a = a_(E);	1,831,599✔
376	double b = b_(E);	1,831,599✔
377
378	while (true) {
379	// Sample energy-dependent Watt fission spectrum
380	double E_out = watt_spectrum(a, b, seed);	1,831,599✔
381
382	// Accept energy based on restriction energy
383	if (E_out <= E - u_)	1,831,599!
384	return E_out;	1,831,599✔
385	}	×
386	}
387
388	} // namespace openmc

openmc-dev / openmc / 20080968915

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous