crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 06:05:58 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Added output summary for variance reduction.

Browse source
This commit is contained in:
Paul Romano 2011-10-05 12:52:14 -04:00
parent 90a873e817
commit 356b45104a
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/output.f90
View file

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