diff --git a/src/ace.F90 b/src/ace.F90 index cbe14b6ae8..170c885f02 100644 --- a/src/ace.F90 +++ b/src/ace.F90 @@ -913,7 +913,7 @@ contains ! Skip total inelastic level scattering, gas production cross sections ! (MT=200+), etc. - if (rxn % MT == N_LEVEL) cycle + if (rxn % MT == N_LEVEL .or. rxn % MT == N_NONELASTIC) cycle if (rxn % MT > N_5N2P .and. rxn % MT < N_P0) cycle ! Skip level cross sections if total is available diff --git a/src/constants.F90 b/src/constants.F90 index f6e82d9bdc..75c047e8d6 100644 --- a/src/constants.F90 +++ b/src/constants.F90 @@ -207,7 +207,7 @@ module constants N_4N2P = 194, N_4N2A = 195, N_4NPA = 196, N_3P = 197, N_N3P = 198, & N_3N2PA = 199, N_5N2P = 200, N_P0 = 600, N_PC = 649, N_D0 = 650, & N_DC = 699, N_T0 = 700, N_TC = 749, N_3HE0 = 750, N_3HEC = 799, & - N_A0 = 800, N_AC = 849, N_2N0 = 875, N_2NC = 891 + N_A0 = 800, N_AC = 849, N_2N0 = 875, N_2NC = 891, N_NONELASTIC = 3 ! ACE table types integer, parameter :: &