From 356b45104a08d195629351acbdcdb652e975526b Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Wed, 5 Oct 2011 12:52:14 -0400 Subject: [PATCH] Added output summary for variance reduction. --- src/output.f90 | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/src/output.f90 b/src/output.f90 index 554c369943..800f990f6e 100644 --- a/src/output.f90 +++ b/src/output.f90 @@ -692,6 +692,20 @@ contains end do end if + ! print summary of variance reduction + call header("VARIANCE REDUCTION") + if (survival_biasing) then + write(ou,100) "Survival Biasing:", "on" + else + write(ou,100) "Survival Biasing:", "off" + end if + write(ou,100) "Weight Cutoff:", trim(real_to_str(weight_cutoff)) + write(ou,100) "Survival weight:", trim(real_to_str(weight_survive)) + write(ou,*) + + ! Format descriptor for columns +100 format (1X,A,T35,A) + nullify(s) nullify(c) nullify(u)