removed macroscopic nu_photon_total

This commit is contained in:
samuelshaner 2017-07-02 13:29:18 -04:00
parent d1b8efc5aa
commit 20b1113f17

View file

@ -58,7 +58,6 @@ contains
material_xs % absorption = ZERO
material_xs % fission = ZERO
material_xs % nu_fission = ZERO
material_xs % nu_photon_total = ZERO
! Exit subroutine if material is void
if (p % material == MATERIAL_VOID) return
@ -138,10 +137,6 @@ contains
! Add contributions to material macroscopic nu-fission cross section
material_xs % nu_fission = material_xs % nu_fission + &
atom_density * micro_xs(i_nuclide) % nu_fission
! Add contributions to material macroscopic nu-fission cross section
material_xs % nu_photon_total = material_xs % nu_photon_total + &
atom_density * micro_xs(i_nuclide) % nu_photon_total
end do
end associate