From 20b1113f17b18a55bad59e5461badaf50f6e7f7c Mon Sep 17 00:00:00 2001 From: samuelshaner Date: Sun, 2 Jul 2017 13:29:18 -0400 Subject: [PATCH] removed macroscopic nu_photon_total --- src/cross_section.F90 | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/cross_section.F90 b/src/cross_section.F90 index c16b1ee925..c3cf4cdf9f 100644 --- a/src/cross_section.F90 +++ b/src/cross_section.F90 @@ -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