From 52173756f61fb23db15fe04f33a50d17c03cd8c2 Mon Sep 17 00:00:00 2001 From: Jose Salcedo Perez Date: Fri, 15 Jun 2018 01:18:38 +0000 Subject: [PATCH] More cleaning-up, fixing style and comments. --- src/nuclide_header.F90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/nuclide_header.F90 b/src/nuclide_header.F90 index 8b71e6bf8..4a9a36351 100644 --- a/src/nuclide_header.F90 +++ b/src/nuclide_header.F90 @@ -985,8 +985,6 @@ contains micro_xs % reaction(:) = ZERO !there shouldn't be a threshold check for (n,gamma). - !I know this is not very clean but I don't want to overload the loop - !with too many conditional statements for now. i_rxn = this % reaction_index(DEPLETION_RX(1)) if (i_rxn > 0) then associate (xs => this % reactions(i_rxn) % xs(i_temp)) @@ -996,7 +994,7 @@ contains end associate end if !looping from element 2 to element 6. - !treating (n,gamma) differently because it is not a threshold reaction. + do j = 2, 6 ! If reaction is present and energy is greater than threshold, set