diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-28 15:55:41 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-28 15:55:41 -0500 |
| commit | 744b40856a035580b786378cae13d453edd26689 (patch) | |
| tree | d7056a5fcb559893c91df8d7533fa5fdb03d8480 /Dragon/src/XDRLXS.f | |
| parent | ec64ba52445d2d06deba1216471ccf3d289c78a3 (diff) | |
Resolve "Depreciate use of Version 4 and 5.0 Draglibs"
Diffstat (limited to 'Dragon/src/XDRLXS.f')
| -rw-r--r-- | Dragon/src/XDRLXS.f | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/Dragon/src/XDRLXS.f b/Dragon/src/XDRLXS.f index d49a89f..08e416a 100644 --- a/Dragon/src/XDRLXS.f +++ b/Dragon/src/XDRLXS.f @@ -43,23 +43,20 @@ TYPE(C_PTR) IPLIB INTEGER IGS,IPRINT,NPROC,IORD,NGROUP REAL XSREC(NGROUP,NPROC) - CHARACTER NAMDXS(NPROC)*6,NORD*6 + CHARACTER NAMDXS(NPROC)*8,NORD*4 *---- * LOCAL VARIABLES *---- INTEGER IOUT PARAMETER (IOUT=6) - INTEGER IODIV,IXSR,IG,JG,ILENG,ITYLCM + INTEGER IXSR,IG,JG,ILENG,ITYLCM * IF(IORD.EQ.1) THEN - NORD=' ' - IODIV=1 + NORD=' ' ELSE IF(IORD.EQ.2) THEN - NORD=' LIN' - IODIV=2 + NORD=' LIN' ELSE IF(IORD.EQ.3) THEN - NORD=' QUA' - IODIV=4 + NORD=' QUA' ENDIF IF(NPROC.LE.0) THEN CALL XABORT('XDRLXS: ZERO OR NEGATIVE VALUE OF NPROC') @@ -69,11 +66,13 @@ *---- * SAVE LOCAL DEFAULT XS IF REQUIRED *---- -* +! 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 |