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

Make sure MT=3 cross section is not used

Browse source
This commit is contained in:
Paul Romano 2016-06-29 18:33:59 +07:00
parent 40b05fe94e
commit 70daa76e0e
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/ace.F90
View file

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

2
src/constants.F90
View file

@ -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 :: &