diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-29 11:17:17 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-29 11:17:17 -0500 |
| commit | 0e2eaa1f4619b6a38dc325d6d41def103c92caa5 (patch) | |
| tree | d477af059a772c29a8574202c750383b0b333c5b /Dragon/src/LIBA30.f | |
| parent | a7a4f2f847f479a302e0f7b3dafaf7ca3149df88 (diff) | |
| parent | cabaed7763e4c72d77a5a8ae5f988c40a5b4cc10 (diff) | |
Merge branch '19-depreciate-use-of-version-4-and-5-0-draglibs' into 'main'
#19: Correct a remaining issue
See merge request dragon/5.1!42
Diffstat (limited to 'Dragon/src/LIBA30.f')
| -rw-r--r-- | Dragon/src/LIBA30.f | 3 |
1 files changed, 2 insertions, 1 deletions
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. |