crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-25 20:45:35 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Make energy_bins/rev_energy_bins match F90 impl.

Browse source
This commit is contained in:
Sterling Harper 2018-10-31 10:20:29 -04:00
parent f7c45a3fd1
commit 009e1548d5
3 changed files with 8 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/source.cpp
View file

@ -292,8 +292,6 @@ void initialize_source()
}
}
extern "C" double* rev_energy_bins_ptr();
Bank sample_external_source()
{
// Set the random number generator to the source stream.
@ -320,11 +318,8 @@ Bank sample_external_source()
// If running in MG, convert site % E to group
if (!settings::run_CE) {
// Get pointer to rev_energy_bins array on Fortran side
double* rev_energy_bins = rev_energy_bins_ptr();
int n = num_energy_groups + 1;
site.E = lower_bound_index(rev_energy_bins, rev_energy_bins + n, site.E);
site.E = lower_bound_index(rev_energy_bins.begin(), rev_energy_bins.end(),
site.E);
site.E = num_energy_groups - site.E;
}