From d0d76a99479e91aefb7f13598712e81c5db43d99 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Sun, 28 Aug 2011 13:48:21 -0400 Subject: [PATCH] Initialized n_interp on delayed neutron energy distributions. Closes gh-30. --- src/cross_section.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/cross_section.f90 b/src/cross_section.f90 index 9444738840..af793bf46a 100644 --- a/src/cross_section.f90 +++ b/src/cross_section.f90 @@ -431,6 +431,7 @@ contains IDAT = XSS(LDIS + LOCC + 1) NR = XSS(LDIS + LOCC + 2) nuc % nu_d_edist(i) % law = LAW + nuc % nu_d_edist(i) % n_interp = NR ! allocate space for ENDF interpolation parameters if (NR > 0) then