Updated manual changed inverse velocities units

This commit is contained in:
Adam Nelson 2015-11-14 09:00:36 -05:00
parent f7ffa71e4f
commit 8afe3e8c41
3 changed files with 8 additions and 8 deletions

View file

@ -14,6 +14,7 @@ essential aspects of using OpenMC to perform simulations.
beginners
install
input
mgxs_library
output/index
processing
troubleshoot

View file

@ -1977,7 +1977,7 @@ attributes/sub-elements:
automatically assumes a one energy group calculation over the entire
energy range.
.. note:: When running in the multi-group :ref:`energy_mode`, these
.. note:: When running in the multi-group :ref:`energy_mode`, the
energy bins must match the data library's group boundaries.
:albedo:

View file

@ -4453,7 +4453,8 @@ contains
! assumed to be the midpoint
do i = 1, energy_groups
inverse_velocities(i) = &
(sqrt(TWO * energy_bin_avg(i) / (MASS_NEUTRON_MEV)) * C_LIGHT)
(sqrt(TWO * energy_bin_avg(i) / (MASS_NEUTRON_MEV)) * &
C_LIGHT * 100.0_8)
end do
end if
@ -4485,14 +4486,12 @@ contains
if (check_for_node(node_xsdata, "zaid")) then
call get_node_value(node_xsdata, "zaid", listing % zaid)
else
listing % zaid = 100
listing % zaid = -1
end if
if (check_for_node(node_xsdata, "kT")) &
call get_node_value(node_xsdata, "kT", listing % kT)
if (check_for_node(node_xsdata, "awr")) then
call get_node_value(node_xsdata, "awr", listing % awr)
if (check_for_node(node_xsdata, "kT")) then
call get_node_value(node_xsdata, "kT", listing % kT)
else
listing % awr = ONE
listing % kT = 2.53E-8_8
end if
! determine type of cross section