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/LIBSUB.f | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'Dragon/src/LIBSUB.f') diff --git a/Dragon/src/LIBSUB.f b/Dragon/src/LIBSUB.f index 63095de..12adc45 100644 --- a/Dragon/src/LIBSUB.f +++ b/Dragon/src/LIBSUB.f @@ -129,6 +129,7 @@ *---- CALL LCMGET(IPLIB,'STATE-VECTOR',IPAR) NL=IPAR(4) + NDEPL=IPAR(11) NED=IPAR(13) NDEL=IPAR(19) IF(NED.GT.0) THEN @@ -185,6 +186,15 @@ * FIND THE DILUTION VALUES. NDIL=0 CALL LCMOP(IPTMP,'*TEMPORARY*',0,1,0) + IF(NDEPL.GT.0) THEN + CALL LCMLEN(IPLIB,'DEPL-CHAIN',ILENG,ITYLCM) + IF(ILENG.EQ.0)CALL XABORT('LIBSUB: MISSING DEPL-CHAIN DATA.') + CALL LCMSIX(IPLIB,'DEPL-CHAIN',1) + CALL LCMSIX(IPTMP,'DEPL-CHAIN',1) + CALL LCMEQU(IPLIB,IPTMP) + CALL LCMSIX(IPTMP,' ',2) + CALL LCMSIX(IPLIB,' ',2) + ENDIF WRITE(HNISOR,'(3A4)') (ISONRF(I0,ISOT),I0=1,3) WRITE(NAMLBT,'(2A4)') IHLIB(1,ISOT,1),IHLIB(2,ISOT,1) ALLOCATE(INAME(16*NLIB)) -- cgit v1.2.3