From fbab98f3ca95fd3e35bf74c7be51dbac1cd63353 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Tue, 24 Oct 2017 13:34:27 -0500 Subject: [PATCH] Fix bug in displaying leakage fraction --- src/output.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/output.F90 b/src/output.F90 index 34134168b..f820ce4b9 100644 --- a/src/output.F90 +++ b/src/output.F90 @@ -652,7 +652,7 @@ contains t_n3 * k_combined(2) end if end if - x(:) = mean_stdev(global_tallies(:, LEAKAGE), n) + x(:) = mean_stdev(r(:, LEAKAGE), n) write(ou,102) "Leakage Fraction", x(1), t_n1 * x(2) end associate else