From e4561826f47467c769d99e24ba48a023901d1098 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Fri, 1 Jul 2011 04:31:08 -0400
Subject: [PATCH] Fixed bug with non-default values of edist % n_interp.

---
 src/ace.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ace.f90 b/src/ace.f90
index 4bbaab0b1..8f42f9045 100644
--- a/src/ace.f90
+++ b/src/ace.f90
@@ -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