From 8b6f059c0b92cdbc7a5120b2d4176507f2a9589a Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Tue, 18 Jun 2013 21:32:43 -0400
Subject: [PATCH] Fix reporting of confidence interval on average keff.

---
 src/eigenvalue.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/eigenvalue.F90 b/src/eigenvalue.F90
index fc44489d00..82ad2d73a4 100644
--- a/src/eigenvalue.F90
+++ b/src/eigenvalue.F90
@@ -616,7 +616,7 @@ contains
         if (confidence_intervals) then
           ! Calculate t-value for confidence intervals
           alpha = ONE - CONFIDENCE_LEVEL
-          t_value = t_percentile(ONE - alpha/TWO, n_realizations - 1)
+          t_value = t_percentile(ONE - alpha/TWO, n - 1)
         else
           t_value = ONE
         end if