From 51b005ca67eb5c2bace81c8af7b52951ff82d3e6 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Fri, 20 Jan 2017 10:37:37 -0600 Subject: [PATCH] Write cross section warnings only from master. --- src/nuclide_header.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/nuclide_header.F90 b/src/nuclide_header.F90 index a329b5bcc..bf6a9b489 100644 --- a/src/nuclide_header.F90 +++ b/src/nuclide_header.F90 @@ -242,7 +242,7 @@ module nuclide_header ! If only one temperature is available, revert to nearest temperature if (size(temps_available) == 1 .and. & - method == TEMPERATURE_INTERPOLATION) then + 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.") @@ -364,7 +364,7 @@ module nuclide_header call close_group(urr_group) ! Check for negative values - if (any(this % urr_data(i) % prob < ZERO)) then + if (any(this % urr_data(i) % prob < ZERO) .and. master) then call warning("Negative value(s) found on probability table & &for nuclide " // this % name // " at " // trim(temp_str)) end if