From cabaed7763e4c72d77a5a8ae5f988c40a5b4cc10 Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Mon, 29 Dec 2025 10:39:02 -0500 Subject: #19: Correct a remaining issue --- Dragon/src/LIBA20.f | 3 ++- Dragon/src/LIBA30.f | 3 ++- Dragon/src/LIBXS4.f | 3 ++- 3 files changed, 6 insertions(+), 3 deletions(-) (limited to 'Dragon') 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. 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. 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