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/LIBA20.f | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/Dragon/src/LIBA20.f b/Dragon/src/LIBA20.f
index 0b2a2c1..dd0f1a6 100644
--- a/Dragon/src/LIBA20.f
+++ b/Dragon/src/LIBA20.f
@@ -1330,8 +1330,9 @@
           LH=.TRUE.
         ENDIF
 *       FISSION ENERGIES.
+        CALL LCMLEN(KPLIB,'NFTOT',LENGT,ITYLCM)
         VALUE=QQF(ISO)
-        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