From a4615e38269661322593b8e61d080c64ba24b314 Mon Sep 17 00:00:00 2001 From: Jingang Liang Date: Mon, 26 Nov 2018 15:19:13 -0500 Subject: [PATCH] Hotfix: incomplete calculation of nu-fission energy grid length `n_grid` is different for different temperatures. --- src/nuclide_header.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/nuclide_header.F90 b/src/nuclide_header.F90 index dcd01da175..921dcd3bd2 100644 --- a/src/nuclide_header.F90 +++ b/src/nuclide_header.F90 @@ -759,6 +759,7 @@ contains ! Calculate nu-fission cross section do t = 1, n_temperature if (this % fissionable) then + n_grid = size(this % grid(t) % energy) do i = 1, n_grid this % xs(t) % value(XS_NU_FISSION,i) = & this % nu(this % grid(t) % energy(i), EMISSION_TOTAL) * &