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