diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-29 09:00:16 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-29 09:00:16 -0500 |
| commit | 02868d641588210bb3a70616830173495caf25fa (patch) | |
| tree | 8842e57b5c2faea93b795403036c0a0982fa7e94 /Dragon/src | |
| parent | 754ef58dfd2880f95dd9765d035389f391917492 (diff) | |
Resolve "Implement xsmdel in XSM file API"
Diffstat (limited to 'Dragon/src')
| -rw-r--r-- | Dragon/src/XDRLXS.f | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Dragon/src/XDRLXS.f b/Dragon/src/XDRLXS.f index 08e416a..aac4747 100644 --- a/Dragon/src/XDRLXS.f +++ b/Dragon/src/XDRLXS.f @@ -66,13 +66,12 @@ *---- * SAVE LOCAL DEFAULT XS IF REQUIRED *---- -! CALL LCMLEN(IPLIB,'H-FACTOR',ILENG,ITYLCM) -! IF(ILENG.NE.0) CALL LCMDEL(IPLIB,'H-FACTOR') + CALL LCMLEN(IPLIB,'H-FACTOR',ILENG,ITYLCM) + IF(ILENG.NE.0) CALL LCMDEL(IPLIB,'H-FACTOR') DO 100 IXSR=1,NPROC *---- * FIND IF XS NOT ALL 0.0 *---- - IF(NAMDXS(IXSR).EQ.'H-FACTOR') GO TO 115 DO 110 IG=1,NGROUP IF(XSREC(IG,IXSR).NE.0.0) GO TO 115 110 CONTINUE |