From 744b40856a035580b786378cae13d453edd26689 Mon Sep 17 00:00:00 2001 From: HEBERT Alain Date: Sun, 28 Dec 2025 15:55:41 -0500 Subject: Resolve "Depreciate use of Version 4 and 5.0 Draglibs" --- Dragon/src/LIBXS2.f | 5 ----- 1 file changed, 5 deletions(-) (limited to 'Dragon/src/LIBXS2.f') diff --git a/Dragon/src/LIBXS2.f b/Dragon/src/LIBXS2.f index 2fdd82c..403f1ed 100644 --- a/Dragon/src/LIBXS2.f +++ b/Dragon/src/LIBXS2.f @@ -53,7 +53,6 @@ PARAMETER (IOUT=6) CHARACTER TEXT20*20,TEXT12*12,HNISOR*20,HITNAM*20,HSMG*131 DOUBLE PRECISION DBLINP - REAL E458(9) *---- * SCRATCH STORAGE ALLOCATION *---- @@ -115,19 +114,15 @@ CALL LCMLEN(IPAP,'EGAMM',NV,ITYLCM) IF(NV.NE.0) THEN KPAX(NEL+3,ISO)=1 - CALL LCMGET(IPAP,'EGAMM',BPAX(NEL+3,ISO)) ENDIF * FISSION ENERGIES. CALL LCMLEN(IPAP,'EF',NV,ITYLCM) IF(NV.NE.0) THEN KPAX(NEL+2,ISO)=1 - CALL LCMGET(IPAP,'EF',BPAX(NEL+2,ISO)) ENDIF CALL LCMLEN(IPAP,'ENER_458',NV,ITYLCM) IF(NV.NE.0) THEN KPAX(NEL+2,ISO)=1 - CALL LCMGET(IPAP,'ENER_458',E458) - BPAX(NEL+2,ISO)=E458(8) ENDIF * RADIOACTIVE DECAY CONSTANTS. CALL LCMLEN(IPAP,'LAMBD0',NCHANN,ITYLCM) -- cgit v1.2.3