Fix reporting of confidence interval on average keff.

This commit is contained in:
Paul Romano 2013-06-18 21:32:43 -04:00
parent e88ef6e3b5
commit 8b6f059c0b

View file

@ -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