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 | 754ef58dfd2880f95dd9765d035389f391917492 (patch) | |
| tree | d7056a5fcb559893c91df8d7533fa5fdb03d8480 /Dragon/src/LIBSUB.f | |
| parent | ec64ba52445d2d06deba1216471ccf3d289c78a3 (diff) | |
| parent | 744b40856a035580b786378cae13d453edd26689 (diff) | |
Merge branch '19-depreciate-use-of-version-4-and-5-0-draglibs' into 'main'
Resolve "Depreciate use of Version 4 and 5.0 Draglibs"
See merge request dragon/5.1!40
Diffstat (limited to 'Dragon/src/LIBSUB.f')
| -rw-r--r-- | Dragon/src/LIBSUB.f | 10 |
1 files changed, 10 insertions, 0 deletions
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)) |