diff options
Diffstat (limited to 'Dragon/src/XDRLXS.f')
| -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 |