From cabaed7763e4c72d77a5a8ae5f988c40a5b4cc10 Mon Sep 17 00:00:00 2001
From: Alain Hebert <alainhebert@Alains-MacBook-Pro.local>
Date: Mon, 29 Dec 2025 10:39:02 -0500
Subject: #19: Correct a remaining issue

---
 Dragon/src/LIBXS4.f | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Dragon/src/LIBXS4.f')

diff --git a/Dragon/src/LIBXS4.f b/Dragon/src/LIBXS4.f
index 459809d..fdd7263 100644
--- a/Dragon/src/LIBXS4.f
+++ b/Dragon/src/LIBXS4.f
@@ -950,8 +950,9 @@
 *        FISSION ENERGIES.
          CALL LCMLEN(IPAP,'EF',NV,ITYLCM)
          IF(NV.NE.0) THEN
+            CALL LCMLEN(KPLIB,'NFTOT',LENGT,ITYLCM)
             CALL LCMGET(IPAP,'EF',VALUE)
-            IF(VALUE.NE.0.0) THEN
+            IF((LENGT.EQ.NGRO).AND.(VALUE.NE.0.0)) THEN
               CALL LCMGET(KPLIB,'NFTOT',SECT)
               HFACT(:NGRO)=HFACT(:NGRO)+SECT(:NGRO)*VALUE*1.0E6
               LH=.TRUE.
-- 
cgit v1.2.3