From fa8254369723eee20530f81685b6a9d82e19519b Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Tue, 25 Apr 2017 12:34:19 -0500 Subject: [PATCH] When 1 temp is available, revert to nearest temp on all processes --- src/nuclide_header.F90 | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src/nuclide_header.F90 b/src/nuclide_header.F90 index ed4a9a0a6c..ea6eab328f 100644 --- a/src/nuclide_header.F90 +++ b/src/nuclide_header.F90 @@ -224,11 +224,12 @@ module nuclide_header call sort(temps_available) ! If only one temperature is available, revert to nearest temperature - if (size(temps_available) == 1 .and. & - method == TEMPERATURE_INTERPOLATION .and. master) then - call warning("Cross sections for " // trim(this % name) // " are only & - &available at one temperature. Reverting to nearest temperature & - &method.") + if (size(temps_available) == 1 .and. method == TEMPERATURE_INTERPOLATION) then + if (master) then + call warning("Cross sections for " // trim(this % name) // " are only & + &available at one temperature. Reverting to nearest temperature & + &method.") + end if method = TEMPERATURE_NEAREST end if