2 files changed, 2 insertions, 1 deletions
diff --git a/Dragon/src/COMCAL.f b/Dragon/src/COMCAL.f
index 821fa79..e304141 100644
--- a/Dragon/src/COMCAL.f
+++ b/Dragon/src/COMCAL.f
@@ -107,6 +107,7 @@
       NISOP=ISTATE(13)
       NGFF=ISTATE(14)
       NALBP=ISTATE(15)
+      IDF=ISTATE(16)
 *----
 *  RECOVER THE USER-REQUESTED PARTICULARIZED ISOTOPES
 *----
diff --git a/Dragon/src/COMPO.f b/Dragon/src/COMPO.f
index b8f8fcc..0645e8f 100644
--- a/Dragon/src/COMPO.f
+++ b/Dragon/src/COMPO.f
@@ -662,7 +662,7 @@
 *
       IF(IMPX.GT.0) THEN
          CALL LCMGET(IPCPO,'STATE-VECTOR',ISTATE)
-         WRITE(IOUT,400) NAMDIR,IMPX,(ISTATE(I),I=1,15)
+         WRITE(IOUT,400) NAMDIR,IMPX,(ISTATE(I),I=1,16)
       ENDIF
       IF(IMPX.GT.4) CALL LCMLIB(IPCPO)
       GO TO 390