Added energy grid summary on output.

This commit is contained in:
Paul Romano 2011-11-30 20:58:43 -05:00
parent 585d353f68
commit d8af37eef7

View file

@ -704,6 +704,12 @@ contains
end do
end if
! print summary of unionized energy grid
call header("UNIONIZED ENERGY GRID")
write(ou,*) "Points on energy grid: " // trim(int_to_str(n_grid))
write(ou,*) "Extra storage required: " // trim(int_to_str(&
n_grid*n_nuclides_total*4)) // " bytes"
! print summary of variance reduction
call header("VARIANCE REDUCTION")
if (survival_biasing) then