diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 4329903222..514244dded 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -885,8 +885,9 @@ contains if (check_for_node(node_res_scat, "energy_max")) then call get_node_value(node_res_scat, "energy_max", res_scat_energy_max) end if - if (res_scat_energy_max < ZERO) then - call fatal_error("Upper resonance scattering energy bound is negative") + if (res_scat_energy_max < res_scat_energy_min) then + call fatal_error("Upper resonance scattering energy bound is below the & + &lower resonance scattering energy bound.") end if ! Get nuclides that resonance scattering should be applied to @@ -5301,6 +5302,15 @@ contains end do end associate + ! Check to make sure resonance scattering upper energy is below URR + ! minimum, if present + if (nuc % urr_present) then + if (res_scat_energy_max > nuc % urr_data(1) % energy(1)) then + call fatal_error("Resonance scattering maximum energy is above the & + &bottom of the unresolved resonance region.") + end if + end if + exit end if end do diff --git a/tests/test_resonance_scattering/results_true.dat b/tests/test_resonance_scattering/results_true.dat index 622e12cca8..0db0e4a95a 100644 --- a/tests/test_resonance_scattering/results_true.dat +++ b/tests/test_resonance_scattering/results_true.dat @@ -1,2 +1,2 @@ k-combined: -1.439342E+00 1.224486E-02 +1.441041E+00 8.832991E-03