From 3e7aa0705f53723d3e9eeff174ec94e641ee2569 Mon Sep 17 00:00:00 2001 From: Jose Salcedo Perez Date: Fri, 15 Jun 2018 03:55:35 +0000 Subject: [PATCH] FTW, removing trail white-spaces in line 985 and 995 from nuclide-header.f90 --- 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 967c953a0..33ad2abb6 100644 --- a/src/nuclide_header.F90 +++ b/src/nuclide_header.F90 @@ -982,7 +982,7 @@ contains if (need_depletion_rx) then !Initialize entire array to zero in case we skip !any threshold reaction. - micro_xs % reaction(:) = ZERO + micro_xs % reaction(:) = ZERO !there shouldn't be a threshold check for (n,gamma). i_rxn = this % reaction_index(DEPLETION_RX(1)) if (i_rxn > 0) then @@ -992,7 +992,7 @@ contains f * xs % value(i_grid - xs % threshold + 2) end associate end if - !looping from element 2 to element 6. + !looping from element 2 to element 6. do j = 2, 6 !If reaction is present and energy is greater than threshold, set !the reaction xs appropriately