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

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

diff --git a/Dragon/src/LIBA30.f b/Dragon/src/LIBA30.f
index f90461c..67e7f3a 100644
--- a/Dragon/src/LIBA30.f
+++ b/Dragon/src/LIBA30.f
@@ -502,8 +502,9 @@
           VALUE=0.0
           IF(hdf5_group_exists(IPAP1,TRIM(RECNAM)//'/FISS')) THEN
             WRITE(RECNA2,'(A,16HFISS/EnergyValue)') TRIM(RECNAM)
+            CALL LCMLEN(KPLIB,'NFTOT',ILENG,ITYLCM)
             CALL hdf5_read_data(IPAP1,TRIM(RECNA2),VALUE)
-            IF(VALUE.NE.0.0) THEN
+            IF((ILENG.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