diff options
Diffstat (limited to 'Dragon/src/LIBXS4.f')
| -rw-r--r-- | Dragon/src/LIBXS4.f | 3 |
1 files changed, 2 insertions, 1 deletions
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. |