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

Fixed bug with non-default values of edist % n_interp.

Browse source
This commit is contained in:
Paul Romano 2011-07-01 04:31:08 -04:00
parent 034f6748fc
commit e4561826f4
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/ace.f90
View file

@ -690,6 +690,7 @@ contains
IDAT = XSS(LDIS + LOCC + 1)
NR = XSS(LDIS + LOCC + 2)
rxn % edist % law = LAW
rxn % edist % n_interp = NR
! allocate space for ENDF interpolation parameters
if (NR > 0) then